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Key Perfect 4.0 and 
Apple Checker 3.0 Tables 


Key Perfect and Apple Checker tables are 
presented in the text of the major articles to 
help you verify the entry of Nibble programs. 
Using Key Perfect or Apple Checker after you 
have keyed in one of our programs should 
result in tables identical to the ones shown. If 
they do not match, then you have made a 
typing error and should closely examine your 
keyed-in program. Key Perfect 4.0, which 
points out the portion of your program that 
contains the typing error, is available from 
MicroSpare Systems Division — see the ad 
elsewhere in this issue. If you purchased Key 
Perfect prior to 6/01/82, then you may receive 
a free update to version 4.0 by returning your 
disk to MicroSparc. The tables were created 
using the updated version. 

The Apple Checker tables were generated 
using Apple Checker 3.0, presented in Vol- 
ume 3, No. 4. NOTE: All Binary Files must be 
BLOADed at $B00 (e.g. BLOAD QUICKSORT, 
A$BO00) before using Apple Checker 3.0 


ED. NOTE 


In using Apple Checker and Key Perfect, it 
is important to be alert to several kinds of 
Assembly Language Statements which: 


1. Reserve memory locations for use by a 
published program... but... 


2. Do not physically put data into memory. 


Examples of such statements are: DS and 
DFS. Here, for example, is how a program 
might look with a series of DFS (or DS) state- 
ments using the Nibble M.L.E. program (Vol. 3 
#2 page 21): 


436B 60 459 RTS 
436C 460 * 

436C 461 * VAR 

436C 462 ENDADR DFS $2 
436E 463 IMADD DFS $2 


Notice the Hex $60 is stored in memory 
location $436B. This increases the memory 
counter to hex $436C. 

On line 462, there is a DFS instruction 
which reserves a 2-byte memory location and 
gives it the label ENDADR. This increases the 
memory counter by two positions to $436E, 
but does not put any data into memory loca- 
tions $436C and $436D. 

The same thing happens on line 463 where 
another 2-byte memory location is reserved 
and labelled IMADD. Again, the memory 
counter is increased by two positions, but no 
data is put into memory at this point. 

If no data is physically forced into memory, 
the Key Perfect or Checker Tables will be 
generated with whatever happened to be in 
memory and there will be inconsistent results. 

**Important«* Nibble will force zero entries 
into DS and DFS reserved memory locations 
prior to preparing Key Perfect and Checker 
Tables in order to assure consistent check- 
sums. 

In order to assure compatibility with the 
Checksums, you should plan to make a note 
of the occurrences of DS and DFS state- 
ments. Then you can force zero entries into 
those locations by entering the Monitor (by 
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typing CALL-151) and directly entering zeros 
into those locations. In the example above, 
you would: 


Type CALL -151 (to enter the Monitor) 


Type 436C:00 00 00 00 (to fill the reserved 
areas with zeros) 


Then you can BSAVE the program and 
then successfully run Key Perfect or Apple 
Checker against it for a consistent and accu- 
rate comparison with the published tables. 

Alternatively, with Key Perfect only, you 
can simply ignore the block of memory which 
covers the DFS or DS statements (since their 
contents will not affect the operation of a pro- 
gram), and concentrate on the comparison of 
those memory locations which contain actual 


program code. 





How to Enter Assembly/ 


Machine Language Programs 
in Nibble 


To use Machine Language programs in this 
issue, first enter the Apple Monitor by typing 
CALL -151. At this point an asterisk (*) should 
appear on your screen. 

Now, when you look at an Assembler List- 
ing in the magazine, remember first that the 
Apple Disassembler does not produce assem- 
bly listings such as those shown in the 
magazine. 

Typically, the assembler listings used in 
Nibble are produced by commercially availa- 
ble Assembler programs. In these listings, the 
first numbers/characters on the left margin 
are the memory locations of each machine 
language statement. An example is: 0300:A9 
FF. In this example, the 0300 is the memory 
location of the machine language statement. 

The second grouping of numbers/characters 
is the machine code for each statement in 
memory. In this example: 


0300-A9 01 

0302-8D 00 0A 
0305-AD 00 0A 
0308-20 A8 FC 
030B-20 E4 FB 
030E-4C 05 03 


The A9 01 8D 00 OA etc. is the actual 
machine code. 


These two groupings may be separated by 
either a colon (:) oradash (-) inthe listing. Itis 


very important, in typing in the machine code, 


to do three things: 


1. Separate the Memory Location from the 
first pair of Machine Code characters with 
a colon (:), regardless of the symbol used 
in the assembly listing. 


2. Immediately follow the colon with the first 
pair of Machine Code characters without 
an intervening space. 


3. Then type a space and the second pair of 
characters, a space and then the third pair 
of characters and so on. 


You can use this method to type in up to 85 
consecutive pairs of machine code instruc- 
tions without having to type in anew memory 
location address. Using the example above, 
you could type in: 


0300:A9 01 8D 00 0A AD 00 0A <Return> 
0308:20 A8 FC 20 E4 FB <Return> 
030E:4C 05 03 <Return> 


When you approach a large number (LESS 
THAN 85) of pairs of machine code charac- 
ters, you can press RETURN to store them in 
memory. Then begin again with the memory 
location address which follows the last pair of 
machine code characters you typed in . 
followed by acolon...and continue entering 
the Hex code until the program is completely 
entered into memory. 

Once the program has been entered, type 
CTRL C to re-enter Basic. Then save the pro- 
gram on disk by typing ina BSAVE command 
which is appropriate to the published pro- 
gram. In the example, the command is: 


BSAVE BUZZ, A$300, L$11 <Return> 


You will be given the values which follow 
the A$ and the L$ (starting Memory Address 
and program Length) in each article which 
contains an assembly/machine language 
program. 

Then you can run it by typing the following 
command: 


BRUN BUZZ <Return> 


To summarize, you can enter the entire 
machine language program by typing in the 
first two sets of characters from an assembler 
listing. They are: 


Memory Location 
followed by 
: (colon) 


followed by 
Pairs of Machine Language characters 


Finally, you can re-enter Basic by typing 
CTRL C and then use the BSAVE instruction 
to save the program. For more information on 
entering machine language instructions into 
memory, see the Apple Reference Manual, 
page 44. 


P.S. You might try exercising the example 
above. It is a small machine language pro- 
gram for sounding your Apple’s buzzer. You 
can run it by saving it to disk and then typing 
BRUN BUZZ as shown above. 2 


nibble 
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The Pain of Entering 


Machine Language Programs 


Let’s face it...typing machine language 
programs from magazines and books is 
a pain! And if you make an error or leave 
something out, you may have to go back 
and retype the whole thing! 


The NIBBLE MACHINE LANGUAGE 
EDITOR (MLE) uses word processing 
techniques to make the TYPING much 
easier. Automatic formatting and car- 
riage returns do the job! 


If you make a mistake and leave out 
some code, MLE lets you go back and 
INSERT the missing bytes. The rest of 
the program is automatically opened up 
to make room! 


Or if you mistakenly insert extra code, 
MLE lets you DELETE it, and the rest of 
the program is moved to fill in the space 


Telephone (617) 371-1660 — automatically. 


- APPLE CHECKER 3.9 TABLE 





CHECKSUM: 
ED 


FILE TYPE: LENGTH: 

A.L.E. B 3ED 
‘AMPERF IND B BC2 ae 
‘AMPERSPEED B 92F8 oar 
AMP-L-SOFT “B G6FE 98 
APPLESOFT COMPARE A. 9888 74 
APPLESOFT LINE CRUNCHER B G4B2 F9 
APPLESOFT VARIABLE CRUNCHER Bo 9383 F6 
‘APPLE ART GALLERY A 292C EE 
APPLE BOWL FOOTBALL << oe MLE 33 
APPLE CAL Ae a8 2828 AC 
APPLE CHECKER 3.9 8. $257 93 
‘APPLE DAR’ A OF4F F6 
‘APPLE SLUGGER A 13E3 E7 
pte “SPRINT A 24B9 25 
A.  35BA 25 
oone. Y MANAGE A 25AF BS 
DB SHAPES As9400/1 185 B QOB9 B6 
‘DISK COMMANDER B B4AB 66 
DISK DOCTOR A 1842 41 
DOS 3+2 ; B 9351 2E 
ELECTRONIC MESSAGE CENTER A 15F4 c8 
Go A OF55 81 
HIRES DUMP 2X B- G19E 2B 
INCOME TRAC. A 3788 Fl 
INITIALIZE A @BDS AA 
LIFE A 14E1 62 
WERGE FILES” A 163A 19 
‘MICRO-CALC > A 21B2 F6 
MICRO-CALC.II — A 1E@A Bo 
MERC Be Ws 8B @9DC 53 
MLE. DRIVER - A 229A 4A 
OTHELLO | A 9091 26 
QUASAR. BASIC es tea O5A5 De 
UASAR.OBJ — BB O4F5 48 
QUICKSORT 8B. 6242 aeons 
RECIPE BOX AS 2798 84 
SCRATCH-PAD A 1FA1 78 
TURTLE GRAPHICS OK 12A5 Ba 
THE SHAPE Re 172C Al 


To EDIT mistyped bytes all you do 
is move the cursor over the incorrect 
characters and retype them! 


Here’s what some new MLE users 
say! 


“MLE is one of those rare utilities 
that makes you wonder how you ever 
managed to get along without it.” 


“Il can enter programs | never would 
have attempted before!” 


So, if you want to kill the pain of 
typing and editing machine language, 
MLE is for you. 


MLE is available for $29.95 plus $1.50 
shipping/handling ($2.50 Outside the 
U.S.) from NIBBLE. 





Key Perfect Tables 


KEY PERFECT 4.8 
RUN ON 


AMPERF IND 
sesssesssssssessssssesS=se=== 
CODE ADDR# - ADDR# 
2844 9398 - O34F 
2A75 8358 - 939F 


GE69 @3A8 - 83C1 
PROGRAM CHECK IS : C2 


KEY PERFECT 4.0 
RUN ON 


AMPERSPEED 
SSS ewesesSsSsseseSseeees==: 

CODE ADDR# - ADDR# 
2785 @869 - S84F 
2211 8850 - O89F 
27108 @8A9 - O8EF 
2856 @8FO - O93F 
27C5 9948 - 098F 
2667 @999 - B9DF 
2957 B9E@ - BA2F 
26BA @A3@ - BA7F 
291F BA8H - BACF 

BADD - BAF7 


12EA * 
PROGRAM CHECK IS : 92F8 


continued on next page 
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KEY PERFECT 4.9 | 


LINE 
seessesssneesssecsss==s255=== 


ADDR# - ADDR# 


196 
283 — 


PROGRAM CHECK IS : 0462 


| Wis Se SE Fe a 


KEY PERFECT 4.9 
RUN ON 
APPLE CAL 


LINE# — LINE# 


LINE# — LINE# 
== 48 

bet) 138 
149 239 
248 326 
466 499 
58o 596 
690 698 
798 79B 


B1E87A 
E258 
6874 
5184 
45C5 
3E19 
5862 
4195 
51D8 
36C8 
2E26 
8996 
S8ia 
S@D8 
656F 
46F9 
494D 


7BDS 192 
665E ; 245 
A735 326 
725C 
C794 
7189 
962D 
E327 
3A6B @183C6 
4577 @16D61 
4A28 i TOTAL PROGRAM CHECK IS : 195A 
@1Be - 


KEY PERFECT 4.0 
RUN ON 
APPLE CHECKER LINE#® — LINE# 


3a ee 


Pumas 1128 - 7605 
70198 - 7360 

asin 7318 ~ 7347 
2A9B Saami 
2294 oon 
2789 bead 
2968 te 
bed #193C8 82498 
ie DAC2 B422 

‘ 57DB 8443 

TOTAL PROGRAM CHECK IS : @257 7FEC 8518 
@194CC 86368 

9768 8858 - 9616 

958 9948 - 9210 

OTAL PROGRAM CHECK IS : 1572 


Fok ae ote 











KEY PERFECT 4.9 KEY PERFECT 4.0 KEY PERFECT 4.@ 














RUN ON RUN ON 
APPLE SPRINT : A.R.C. oe we 
ASS Sesame xs a CODE. LINEN - LINE Bae Estsse see eee SSSR SSeS SSeS 
eine JO Maas ol TE ce tel 1 a aaa CODE LINE® — LINE# 
55F8 oo Ek CU Dect es sterner nei 
AAC9 110 - 2008 4ES? 1- 129 
6C4F 219 - 308 3D44 139 - 226 
AB73 318 - 499 3494 1996 - 1999 
eet ais % be) 29ED 1199 —- 1199 
ante eas oe 2C2E 1299 - 1296 
919002 716 - 820 SBCE 1399 - 2956 
6FD2 819 - 900 322E 2968 - 2156 
69EE 910 - 1000 29DD 2169 - 3B4G 
5930 1910 - 1198 97BD 3959 - 3149 
85BD 1110 - 1208 475A 3159 - 4949 
oe is. la a ee 
Sieve r ey Sco 5038 ~ 5120 
REE ke alga tepid SE4E 5230 ~ 5320 
899D 1610 - 1798 
A78D 1710 - 1800 6047 S339 - 6968 
BFC2 1818 - 1900 SIA? 6919 - 6196 
9630 1919 - 2000 ABzt 6119 -~ 6209 
7927 2010 - 2199 6453 6219 - 6309 
B516 2118 - 2200 4AS7 6319 - 6499 
pecs, asia. 2400 — ee: ee 
62AE 2418 - 2590 rier crea = spin 
7A36 2519 - 2689 Ea ceuat aan 
9191 2618 - 2700 
Q9EE 2719 - 2800 6399 7198 — 7289 
6ED2 28108 - 2900 46B2 7296 — 7388 
8D1E 2919 - 3600 AICI ‘7398 - 7489 
998 3016 - 3190 4B42 7496 ~ 7586 
BeD4 3118 - 3200 3D25 7598 -— 76sa 
ASO 3219 - 3300 fe 
aoe at SFFE 7698 - 7780 
0725 3410 - 3580 aati 7a70 =. 7908 
c983 3519 - 3600 peed jose — (anes 
936A 3619 - 3700 ; 
A364 3710 - 3800 4FBS 19619 — 19199 
8F56 3819 - 3989 ADOS 19118 -— 19266 
BABF 3919 - 4990 3471 19219 — 19396 
63DB 4918 - 4199 423B 1931G -— 19499 
a i: ie ae es 
8847 1g - 
KEY PERFECT 4. 5988 4318 - 4490 pages eles oe aus 
3631 4419 - 4509 one tite tone 
727 4510 - 4690 
eae 4610 - 4700 3B61 11238 — 11326 
— ADDR# GE83 4710 - 4736 7146 11336 - 11426 
peeves Gos PROGRAM CHECK IS : 3B6B 4068 11439 -— 12066 
- 995F 4GAS 12619 — 138308 
- 9BAF 974G 13849 -— 13136 
- 9OFF 76E9 13149 — 13236 
_ 914F 4FDS 13249 — 14956 
- 919F 7587 14968 — 14158 
Y rooms S4Bg 14168 — 14259 
- 928F 3E7F 14269 — 14350 
gar 4451 14369 - 15949 
~ 932F 6786 15956 - 15149 
- 937F 3518 15156 - 152498 
- 93CF 2EE9 1525@ - 15348 
- 93FC 3611 16998 -— 16139 
see KEY PERFECT 4.9 é6abs 16149 — 16239 
RUN ON 2ES6 16249 — 17956 
DISK DOCTOR TOTAL PROGRAM CHECK IS : 2B97 
see csee ers SSS SSS SSeS 
rev renee 4.8 Si rome 
RUN 55A7 w- 36 KEY PERFECT 4.9 
DISK COMMANDER 5242 49-580 cube cue 
Epa ee 9300 560 - 1048 : EMC 
lot ae mle aoiew if SETS FRE fue ee Pi; eye KVP STS SSS SSS SSS SST SVS SSS SS ese = sz! 
Bere een 8014 2015 - 2060 ner SsakG aE GSS 
82AG - 82EF 63FE 2065 - 2110 87C? 16 126 
82FD - 833F 4978 2115 - 2495 CCB4 ise — 270 
Sine = pas A418 2410 - 2455 97BB 239 - 1878 
83E0 - 842F ped eel ey 74F4 1988 - 1178 
8430 - 847F 4BDB 2545 - 2695 7A99 1186 — 2018 
BAN os CACT 9158 2700 - 2745 9A6F 2626 - 2119 
8406 - 851F 5973 2750 - 2820 8755 2128 - 3688 
8528 - B56F 401B 2825 - 2870 9194FB 3999 - 4916 
Se © sap eo Ga: ie oa ee oe 
8610 - 865F 8E97 3108 - 3190 Sate io i is 
8660 - 86AA 6990 3508 - 4939 vigil ARO ce) ee 
CK IS : O4AB 689E 4049 - 4139 Ser 4329 - 5009 
5FOA 4149 - 5910 SFD6 5919 - 35198 
7598 5028 - 19090 9373 5119 - 6939 
520D 19019 - 19100 A261 6949 - 6136 
pees. ieuie > 18808 ee ot oe 
7E9B 19319 - 19499 ep aatipd a iaed 
AD99 19416 - 10599 aes coos lathe 
716C 19518 - 19988 
§21D 19998 - 11980 A6SD 19148 - 150598 
PROGRAM CHECK IS : 189E 83B4 15968 -— 32988 


TOTAL PROGRAM CHECK IS : 164E 


continued on next page 
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APPLE TURTLE GRAPHICS 








Apple Turtle Graphics 


by David A. Krathwohl 
19 Tri St. 
Ashland, MA 01721 


TURTLE GRAPHICS is a hi-res graphics 
drawing program in which a “turtle” traces a 
drawing under control of written instructions. 
The instruction language though simple to 
learn, encompasses several levels of com- 
plexity, from simple line segments to curves, 
from simple repeating functions to recursion. 
Turtle instructions may be entered from the 
keyboard in a series as an instruction set. 
Picture names may be assigned to a specific 
instruction set and then used to call the pic- 
ture. Variables may be used, and picture 
instruction sets may be edited. Picture names 
and instruction sets may then be saved to disk 
as a text file for further use and development. 

Depending on your orientation, TURTLE 
GRAPHICS can either be an excellent tool to 
learn simple programming concepts, a fun 
way of working with math and learning geo- 
metry, or just an enjoyable “picture creator” 
For the programmer, it can also be an explo- 
ration of computer language creation on a 
small scale and the manipulation of the hi-res 
graphics mode of the Apple. Before examin- 
ing these possibilities, it would help to better 
understand what TURTLE GRAPHICS does 
and how it is used. 


THE TURTLE 

The “turtle” in TURTLE GRAPHICS is a set 
of five points on the hi-res graphics screen 
which indicate a position and a direction. 
When the program is run, you are first pre- 
sented with the turtle and a question, “What 
do you want the turtle to do?” In order to 
respond to this question, you must use a lan- 
guage with which the turtle is familiar. The 
four basic commands in turtle-ese are FD for 
forward, BK for back, RT for right, and LT for 
left. Each two letter command precedes either 
a positive or negative quantity. For example, 
FD40 moves the turtle forward 40 units. (Each 
unit corresponds to a point on the hi-res 
screen.) Acommand of RT90 would turn the 
turtle 90° to the right. 


Most simply, then, you could enter a series 
of these commands, each followed by “return” 
to move the turtle as you wish. Fortunately 
there are easier ways. Turtle-ese has several 
levels of complexity, each of which requires 
its own symbols and syntax. 


COMMAND SERIES 

First, when the turtle asks forinstructions, a 
series of commands can be entered on the 
same line as long as they are separated by 
periods. For example, FD20.RT90.FD20 will 
move the turtle forward 20 units, turn it right 
90° and then move it forward another 20 units 
before again requesting instructions. 

Before discussing the next level of com- 
plexity, there are three other commands which 
will help your drawing. The first is CL for 
clear. This command clears the screen and 
sends the turtle back to the center, pointed 
toward the top. This is the position of the 
turtle when the program is first run. 


TURTLE PEN 

The other two commands are PU for penup 
and PD for pendown. These commands switch 
the “ink supply” on or off. When the pen is up, 
the turtle still moves and turns, but does not 
draw. PD causes the “ink” to flow again. 
These commands can be used, just like 
the four movement commands, in a series 
separated by periods. For example, 
FD30.PU.FD10.PD.FD20 would draw a seg- 
ment of 30 units, skip over 10, and draw 
another segment of 20 units. 

By now you could probably deduce that to 
draw a square with a side of 20 units, the 
instructions would be FD20.RT90.FD20.RT90. 
FD20.RT90.FD20. But that is alot of typing for 
just a square. The next level of turtle-ese has a 
repeat command that lets you tell the turtle to 
repeatedly DO something a certain number 
of times. The above square, for instance, 
becomes DO4(FD20.RT90), which translates 
to “do four times the instructions move for- 
ward 20 units then turn right 90°”. Again, the 
DO command can be used serially with other 
commands such as FD30.D04(FD20.RT90). 
RT90. 

The one thing you cannot do is to put aDO 
inside another DO, such as DO2(D04 
(FD20.RT90)). But what if you want to draw 
two squares, one right after the other? The 
solution is in yet another level of turtle-ese. 


TURTLE PICTURES 

The turtle recognizes any word preceded 
by a> asa picture name. The first time you 
instruct it to draw a particular picture, the 
turtle asks for the specific directions. If you 
tell the turtle to >SQUARE, it will first ask, 
“How”. If you then tell it to DO4 (FD20.RT90) 
it will now know how to >SQUARE, and these 
instructions will be retained and re-used as 
long as the program is running (and has not 
been modified by a file command that will be 
explained later). Again, the picture command 
can be used serially with other commands. 
For example, >SQUARE.RT45, will first draw 
a square and then turn the turtle 45°. If you 


‘want to draw two squares, you can now write 


DO2(>SQUARE.RT45). (The RT45 turns the 
turtle so it won't just trace over the same 
square twice.) 


INVISIBLE TURTLE 

Before examining the next level of turtle- 
ese, there are three other commands that will 
make life easier. The first two of these allow 
you to determine if the turtle is actually drawn 
on the screen. The command NT for no- 
turtle, removes the turtle and the command 
TU for turtle, brings it back. The primary 
advantage in this is the speed with which the 
turtle can execute your instructions. If the 
program has to draw anderase the turtle each 
time it moves, it takes more time to draw your 
shapes. 


COMMAND EDITING 

The third command needed is ED for edit. 
The edit command has to be followed by the 
name of a picture in memory. For example, if 
you wanted to edit >SQUARE to give ita side 
of 30 instead of 20, you would type ED 
>SQUARE. This puts you into the picture edi- 
tor mode where you are presented with the 
name of the picture being edited and the 


instruction set for the picture, printed twice. 
The cursor sits at the beginning of the second 
instruction set. 

For minor changes you can simply move 
the cursor over the instructions by using the 
forward arrow (re-type) key until you reach a 
character you want to change. So, after “for- 
ward arrowing” over “DO4(FD”, you stop with 
the cursor over the “2” and type a “3”. Then 
“forward arrow” (using the repeat key, if you 
wish) to complete the instruction set, and 
press “return” to return to the graphics mode. 
Now whenever you tell the turtle to >SQUARE, 
it will draw a square with a side of 30 units. 


TURTLE VARIABLES 

Now assume that you want to draw a 
square, but you don’t know yet how big you 
want it. The next level of turtle-ese allows 
variables to be named. In the >SQUARE 
example, the instructions could be DO4(FD 
SIDE.RT90). When executing these instruc- 
tions, the turtle will ask only once for the 
value of SIDE. It will then assign that value 
any time the variable name SIDE is encoun- 
tered. A total of ten variable names are allowed 
in any instruction set. 

In some pictures, it would be useful to 
increase or decrease a value each time a vari- 
able name is encountered. The turtle-ese for 
this is IN forincrement. This command allows 
the creation of spiral-type shapes and may be 
used with either positive or negative numbers. 
(IN is most practical when used with only one 
variable. It wili increment all variables at the 
same rate if others are included.) 


CALLING PICTURES 

One of the most useful properties of the 
picture naming commandis the ability of one 
picture to “call” other pictures. For instance, 
assume you are trying to create a landscape 
which contains two identical birds. You might 
first create a picture called >BIRD, and then 
include it twice in a picture called >LAND- 
SCAPE. It would also be possible to have 


‘several layers of pictures calling others. For 


instance, >LANDSCAPE might call >BIRD 


‘which in turn might call >WING, >BEAK, 


and >TALON. This not only saves typing, but 
also allows your instruction set to effectively 
exceed the 256 character limitation of Apple 
string input. 


RECURSION 

A very special feature of this picture — cal- 
ling — pictures capability is the possibility of 
having a picture call itself. This is called 
recursion, and it allows you to create endless 
varieties of repetitive images. With the inclu- 
sion of the increment command, it allows for 
spiral-type figures of unlimited structure and 
design. An example of recursion is >TRIAN- 
GLES, where the instruction set is: DO3(FD 
SIDE.RT120).RT30.>TRIANGLES. This will 
draw a series of equilateral triangles, each 
rotated right 30° from the last one. 

(If you actually try this instruction set, you 
will also need to know how to stop the draw- 
ing without stopping the program. Pressing 
any key during the execution of a drawing will 
stop it and return you to a request for further 
instructions.) 


continued on next page 
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HOME 

A particularly useful command when you 
have pictures calling other pictures is HO for 
home. This moves the turtle to the center of 
the screen, pointed toward the top, without 
clearing. It makes a very convenient refer- 
ence point for starting your separate picture 
instructions. To effectively use it, your last 
three instructions for a picture might be 
PU.HO.PD. In this way, the location and 
orientation of the succeeding picture are not 
related to the end position of the last picture, 
and changes can be more easily made in 
either one. 


TURTLE PICTURE FILING 

After you have spent considerable time in 
creating your pictures, it would be ashame to 
lose your creations when you turn off your 
Apple. Fortunately the turtle understands the 
command FI for file. Using this command 
gives you a menu of five filing options: 1) Save 
pictures, 2) Retrieve previously saved pic- 
tures, 3) Delete a file, 4) Catalog and index 
files, or 5) Return to the graphics mode. 

The first option allows you to create a file 
name and store the pictures you have created 
on a disk. Saving pictures to disk does not 
remove them from the current memory space 
of the program. If you return to graphics after 
saving a picture file, you will still be able to 
call the “saved” picture names. 

The second option allows you to reload 
previously saved pictures into the current 
memory space of the program. By retrievinga 
picture file, you replace the current pictures 
with those from the disk. If you are uncertain 
of the current contents of memory, itis a good 
idea to save first and ask questions later. 

The third option allows you to clear the disk 
of unwanted files. This option lets you delete 
inadvertently created duplicate files as well 
as files which are no longer useful. 

The fourth option has two parts. The first 
part is the cataloging of the disk. Since pic- 
ture files are saved as text files, the file names 
preceded by a“T” are your picture files. If you 
want to find out which pictures are in a par- 
ticular file, the indexing option lets you step 
through each one, showing both name and 
instructions, by simply pressing any key. 

The fifth option brings you back to the gra- 
phics mode. The screen is cleared, and the 
turtle is in the “home” position. 

Finally, after the day’s work is saved to disk 
and you are in the graphics mode, the com- 
mand QU for quit, returns you to Applesoft in 
the text mode with a clear screen. 


WHY TURTLE GRAPHICS? 

The idea of turtle graphics is nota new one. 
It was developed at MIT and has been exten- 
sively discussed in a book called Mindstorms 
by Seymour Papert (Basic Books, N.Y., 1980). 
Unfortunately, it was not previously available 
in BASIC for the Apple. | first discovered it in 
a computer workshop for teachers and be- 
came so enthusiastic that | decided to write a 
program in BASIC for the Apple. 

The idea appealed to me for several rea- 
sons. First, it is obviously fun, and with the 
option of saving pictures, it could produce 
fairly complex drawings. 

Second, turtle graphics creates an easily 
learned minilanguage that has many of the 
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characteristics of high level programming 
languages. It has a set of commands and 
symbols, it has a specific syntactic form (and 
accompanying error messages), and it allows 
variables, incrementing (IN), loops (DO) and 
the creation of subroutines (a picture calling 
a picture). In addition, it involves editing and 
disk use. It therefore seems an excellent start- 
ing “language” in which people without com- 
puter backgrounds can obtain a conceptual 
foundation for programming. 

Finally, turtle graphics is an ideally open- 
ended “game” for the exploration of mathe- 
matical concepts, particularly plane geometry. 
Since the turtle’s language is units of length 
and degrees, discoveries (such as the 180° 
sum of the internal angles of a triangle) can 
easily be made through experience rather 
than merely the abstract medium of a geome- 
try book. Creative play could thus lead to an 
intuitive grasp of geometry. 

By using a picture which first creates a grid, 
the concept of area could also be explored. 
And since commands can be given in both 
negative and positive quantities, a picture 
which creates a number line could be used to 
explore the addition and subtraction of nega- 
tive (as well as positive) numbers. 


PROGRAMMING TECHNIQUES 

As acomputer program. TURTLE GRAPH- 
ICS consists of a very short main segment 
(lines 40-280) which controls the calls to 16 
subroutines or segments (see table of pro- 
gram segments). After the program has called 
the set-up subroutine (starting at line 2800), it 
asks for instructions (IN$ in line 45). To make 
life easier, the first two characters of the 
instructions are given their own variable 
names (I$ in line 80) and then checked 
against a series of conditional statements. Ifa 
recognizable command is found, the appro- 
priate series of subroutines is called. Once 
the command has been carried out, a parsing 
routine is executed (starting at line 300) 
which searches for the first period, removes 
the command preceding it (which has just 
been executed), and sends the remainder of 
the instructions back through the main seg- 
ment for execution. 

Forexample, the instructions FD40.RT90.NT 
are first interpreted in line 100 when the FDis 
“found”. This line calls the subroutine which 
determines the quantity of the command 
(starting at line 400). In this case the value of 
the instruction is 40. (It doesn’t matter at this 
point whether this is degrees or linear units.) 
The next subroutine called is “move turtle” 
(starting at line 500). This subroutine first 
calls the “erase turtle” subroutine (starting at 
line 700), then calculates the new position of 
the turtle (line 520) and plots a line to it (if the 
penis down), then calls the “draw turtle” sub- 
routine (starting at line 800). Finally, line 100 
branches to line 300 for parsing. There the 
FD40 is eliminated, RT90.NT becomes the 
new instruction set (IN$) and the main pro- 
gram segment is run again. All three of these 
program segments are called from the line 
(100) which “found” the FD. 

The other commands are treated similarly. 
The PD,PU,NT, and TU commands merely 
change flag values and are then parsed out of 
the action. DO, IN, HO, ED, CL, and FI (as well 
as the >symbol) all call subroutines. How- 
ever, since ED, CL, and FI branch to the 
request for instructions (line 40) instead of to 
the parsing segment, they are always effec- 


tively the final command inaseries. If aquan- 
tity in a move, turn or increment command 
evaluates to zero, a variable is assumed, and 
the subroutine which sets variable values 
(starting at line 1500) is called. 


STRUCTURE AND SPEED 

Since a major consideration for this pro- 
gram was its speed and efficiency, the main 
program segmentis as short as possible. The 
arrangement of the subroutines was deter- 
mined by their frequency of use. More fre- 
quently used subroutines, such as movement 
and turtle drawing, are near the beginning of 
the program, while those less frequently used, 
such as editing and filing, are nearer the end. 
The subroutine which sets up the screen, 
dimensions the variables and pokes a machine 
language subroutine into memory is at the 
end since it is used only once. 

If you look at the code, you will see that 
most lines are numbered in even tens and the 
subroutines in even hundreds. This is not 
only for neatness'sake, but to make it easier to 
remember the subroutines by their starting 
numbers. Remarks are contained in the 
preceding “99” line so no speed is lost by 
calling a remark line. 


SPECIAL FEATURES 

Perhaps the most important influence on 
the design of this program was the orienta- 
tion to the non-computer oriented user. Since 
one of its intended uses is in the classroom, 
the program needs to be essentially user- 
proof. The first consequence of this is the use 
of English instead of computer jargon in ask- 
ing questions and responding to the user. For 
example, instead of “Input instructions?”, the 
program asks, “What do you want the turtle to 
do?” 

The second result of this orientation is the 
careful attention to boundary checking and 
error trapping. If the turtle has been told to 
move past its boundary, the user is simply 
asked to try a different move, and the turtle is 
replaced on the screen at the last legal move 
(line 530). 

Error trapping is done in several ways. First 
are the double checks built into the program. 
If the instructions go through the main pro- 
gram without branching, the user is not using 
correct turtle-ese. The message, “| don’t under- 
stand,” followed by the incorrect instructions 
is displayed before the user is returned to the 
request for further instructions (line 280). 
When a picture is created with incorrect 
instructions, the user is automatically sent to 
the edit mode to correct the mistake (line 
270). 

When numeric responses are called for in 
the file option menu, they are accepted as 
strings and first converted to numbers, then 
checked for range errors (lines 2030-2040). 

Also, in the filing routines, the user is asked 
to confirm his response before deleting or 
retrieving picture files, since both of these 
operations have irreversible effects (lines 
2190-2230 and 2330-2340). If an attempt is 
made to save pictures when there are nonein 
memory, the program checks the picture 
counter (PI) before opening a file (line 2060). 
This avoids the creation of empty files which 
would later give “out of data” errors when 
indexed or retrieved. 

If all else fails, and the user does manage to 
create an error, two separate error traps are 
set (ONERR GOTO's in lines 50 and 2000). If 


the error occurs in the graphics part of the 
program, the useris told that the turtle doesn’t 
understand and is then returned to a request 
for instructions. 

If the error occurs in the filing section, the 
error trap first checks the type of error (witha 
PEEK(222), line 2640). This is necessary be- 
cause in order to read afile, the Apple first has 
to open it. If the user tries to retrieve or indexa 
non-existent file, the file is created in the act 
of searching, and an “out of data” (code 5 
error) results when itis read. If the PEEK(222) 
shows that this has happened, the bogus file 
is deleted before a message asking the user to 
check the file name is displayed. (Since trying 
to access a text file created by a different 
program might result in a code 5 error, there- 
by deleting the file, it is suggested that only 
turtle text files be used on the program disk.) 
With any other error in the file section, the 
same message is displayed without deleting 
the file named, and the user is returned to the 
file menu. 


MINI-LANGUAGE CREATION 

Another feature of TURTLE GRAPHICS is 
its method of creating a mini-language. It 
does this by employing a specific set of sym- 
bols, syntactic rules, and a method of parsing 
statements. 

For the sake of speed and simplicity, the 
commands consist of two letters (such as FD, 
Fl, and QU) and the symbols are the period, 
the greater than sign, and parentheses. 

The syntax is the order in which instruc- 
tions must be given. The commands must 
precede the quantity, a period must follow 
each command in a series, picture names 
must be preceded by a “>”, and instructions 
to be repeated must be contained within 
parentheses. 

Since the syntax of commands requires 
that the two letter designation precede any 
other information (such as the angle ora vari- 
able name) no time-consuming search is 
needed to locate the start of this information. 
In order to use a series of commands, how- 
ever, a search must be made to find the 
separate commands. Parsing is simply a 
method of dissecting the input to determine 
its meaning. 

The BASIC MID$ command is used to 
determine where one command stops and 
another begins. Depending on the program 
segment, a FOR,NEXT loop uses MID$ 
(IN$,J,1) to search for either a period, a 
greater than sign, or parentheses. When the 
symbol is found, the program branches to a 
line which reassigns the instruction variables 
by using a RIGHT$ or LEFT$ command and 
the value (J) of the loop variable. In this way, 
the instruction set is read and executed one 
command ata time. 


ONE COMMAND AT A TIME 

One advantage to the “one command ata 
time” parsing method is the ability of the pic- 
ture to call other pictures or themselves. Each 
picture name (PI$(n)) calls a separate string 
variable containing the picture instructions 
(FI$(n)). When a picture name is encountered 
in an instruction set, the picture instructions 
(plus a period) are concatenated onto the 
instruction set (line 1170). This means that 
picture instructions which contain the name 
of the picture that called them will create an 
endless string of instructions through con- 
catenation. 


TURTLE PROBLEMS AND SOLUTIONS 

One of the most difficult challenges in the 
development of this program was the crea- 
tion and manipulation of the turtle itself. The 
turtle started out as a shape table using the 
DRAW, XDRAW, and ROT commands for 
control. However, there were several prob- 
lems. Foremost was the fact that the ROT 
command cannot be incremented in single 
degrees. To solve this, the turtle was drawn 
using trigonometric functions to determine 
placement (lines 900-950). In both this and 
the trigonometry employed for movement, 
the Apple had to be adapted to accept de- 
grees. Since the Apple only accepts trigono- 
metric functions expressed as radians, acon- 
version factor was used (Degrees X pi/2 = 
Radians). 

But this still left the more annoying prob- 
lem of the disappearing drawing. Each time a 
part of the turtle coincided with a part of the 
drawing, the next move of the turtle erased 
that part. A partial solution was a turtle made 
of dots instead of lines. The whole solution 
came in the form of a borrowed ampersand 
subroutine that does for hi-res graphics what 
the SCRN command does for low-res. (The 
source of this subroutine is “Apple Il Peeks 
Pokes & Calls” published by A.P. Computer 
Products, Holtsville, N.Y.) 

The subroutine is poked into memory (lines 
2830-2880) from the initial set up subroutine 
(starting at line 2800) and is called into use 
during the turtle’s creation (lines 960-1010). A 
new variable is created for each point of the 
turtle and evaluated by the amper-routine. 
The syntax is &C=X,Y. If the value of C 
returned is one, the point X,Y is lit. Its color is 
disregarded. If the value is zero, the point is 
not lit. 

For the turtle, this means checking five 
points. If the point is lit, the Y coordinate of 
that point is changed so that itis plotted inthe 
text portion (bottom four lines) of the screen. 
Since the erase routine uses this new Y value 
to erase a “non-existent” point, the drawing is 
unaffected. 


OTHER TRICKS 

The program has other minor features which 
are worth mentioning. First is the LOMEM 
command in line 20. The Apple stores varia- 
bles beginning at LOMEM (which is usually 
the end of the program) and builds upwards. 
Since this program occupies the memory 
space right up to hi-res graphics page one, 
any variables stored there would be seen as 
white dots moving across the screen and dis- 
rupting your drawing. The command, LOMEM 
16400, sets the beginning of the variable 
space above the hi-res screen. 

Another feature is the use of the right arrow 
(re-type) key for editing. By printing the pic- 
ture instructions twice, the second time 
VTAB-bing to a specific line, the location of 
the line is known (lines 1950-1960). To get the 
cursor to fall on the first character of this line, 
a VTAB to the same line precedes the input 
statement for the corrected instruction set. 
(Notice the HTAB 2 before printing the in- 
structions to account for the “?” printed by 
the input statement.) 

A third feature is the periodic clearing of 
old string variable space. Since the Apple 
stores the old values of strings when they are 
reassigned, memory slowly fills up with old 
strings as new instructions are given. This is 
particularly true if several picture files are 


indexed, as each new file reassigns values to 
the same temporary indexing variables. To 
clear out this space, the program keeps track 
of the number of times instructions are re- 
quested. When this number reaches 25, the 
statement FC = FRE(1) is executed (line 40). 
This clears memory of strings which are no 
longer being used. You will notice this hap- 
pening when there is a short pause before the 
turtle requests new instructions. 


PROGRAM MODIFICATIONS 

There are many possibilities for customiz- 
ing TURTLE GRAPHICS. One would be to 
include a color command which would let 
you change the colors of the lines being 
plotted. Another would be to modify the !N 
command so that only a specified variable 
would be incremented. 

For math exploration, the ability to save 
and retrieve the entire hi-res screen would be 
useful. This would allow for a much quicker 
creation of background graphics such as a 
grid or numberline. 

The difficulty with modifying TURTLE GRAPH- 
ICS is that it presently occupies almost all of 
the available space below hi-res graphics 
page one. Any serious modification will re- 
quire either shortening other parts of the pro- 
gram, bridging the hi-res screen, or relocat- 
ing the entire program above it. 

A simple “modification” which would be 
helpful is to create a “turnkey” system. Sucha 
system would be most helpful for non-com- 
puter oriented users. Using an entire disk 
exclusively for TURTLE GRAPHICS with the 
following HELLO program will do the trick 
nicely. 


10 HOME 
20 VTAB 10: HTAB 16: PRINT “LOADING”: 
PRINT:INVERSE : HTAB 12: PRINT “ 
”: HTAB 12: PRINT 
“TURTLE GRAPHICS”: HTAB 12: PRINT 
- ”: NORMAL: PRINT: HTAB 13: 
PRINT “PLEASE WAIT...” 
30 D$ = ““: REM CONTROL D BETWEEN ”” 
40 PRINT D$;“RUN TURTLE GRAPHICS” 
50 END 
(The spaces in line 20 are 15 characters long.) 


Now all you have to dois load the disk, turn 
on the machine, and be ready to talk turtle- 
ese. 


TURTLE GRAPHICS 
SYNTAX AND USE 


1. Pressing any key during the execution of a 
drawing will stop the execution and return 
the user to a request for instructions. 


2. Thecommands CL, Fl, and QU should not 
be followed by other commands as the 
extra commands will be ignored. 


3. Spaces between a command and a varia- 
ble name are not significant. (They are 
treated as a part of the variable name.) 
However, both spaces and control charac- 
ters are significant if included in picture 
names. 


4. Twoslash marks (//) are used internally as 
a flag for the DO function. An error mes- 
sage with these symbols at the end indi- 
cates an error in the DO instructions. 


5. The DO function may be repeated serially, 
but may not be used inside another DO 
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command. However, a picture name which 
uses the DO command in its instruction 
set may be used inside another DO com- 
mand. 


6. Aquantity of zero in the DO command will 
result in endless repetition as the DO 
counter increments toward the Apple’s 
negative integer limit. 


7. If the first character (other than a space) 
after a FD, BK, RT, LT, or IN command is 
non-numeric or zero, the program as- 
sumes a variable has been named. Whena 
variable is encountered, the program will 
ask for its value. It will retain and use this 
value for the remainder of the instruction 
set. 


800 Draw turtle 


900 Determine turtle location (hi- 
res screen test) 


1100 Check for picture 

1300 Repeat function (DO) 

1500 Variable determination 

1600 Home 

1700 Clear 

1800 Picture editor 

2000 File options and filing 

2700 Time delay for message 
display 

2800 Set up variables and screen 


TURTLE GRAPHICS 
COMMANDS 


COMMAND 
FDn 
BKn 
RTn 
LTn 


EXPLANATION 
Move forward n units 
Move backward n units 
Turn right n degrees 
Turn left n degrees 


EXAMPLE 
FD40 
BK30 
RT45 


PU Pen-up (move without drawing) 


PD Pen-down 


NT No turtle (speeds execution) 


TU Turtle 
DOn(xxx) 


Repeat (do instructions xxx, 


DO4(FD20.RT90) 


n number of times) 


Increment all variables by n 


IN2 


(used with repetition) 


Period is used to separate 


instructions 


FD20.RT45.BK60 


> XXX 


any name 


HO 


ED >xxx 


CL 


FI 
QU 


TURTLE GRAPHICS 
PROGRAM SEGMENTS 


Greater than symbol is used 
to indicate a picture name 


Variable name (may be used 
with FD, BK, RT, LT, and IN) 


Home (sends turtle to the 


>HEXAGON 


FDSIDE or 
RT ANGLE 


HO 


center of the screen, headed | 


toward the top of the screen) 
Edit picture xxx 


Clear (clears screen and sends 
turtle home) 


File (presents filing options) 


Quit (ends program, clears 
screen and returns user to 
Applesoft in text mode) 


ED>SQUARE 
CL 


FI 
Qu 





TURTLE GRAPHICS 
VARIABLE LISTING 


STARTING Command Variables 
LINE # FUNCTION IN$ Instructions 
10 Set up, ask instructions, I$ First two letters of IN$ 
check instructions KY Keyboard strobe forinterrupt 
300 Parse instructions Turtle Variables 
400 Determine quantity (QU) x 
500 Move turtle x Positions for start and end 
x1 of movement 
600 Turn turtle and change Y1 
heading wl 
Dimensions of turtle 
700 Erase turtle TA 
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X2 
X3 
x4 
X5 
ne Positions of turtle dots 
Y3 
Y4 
Y5 
Y6 
‘BT 
Hi-res screen test for 
ET turtle dots 
FT 
TU Turn — amount in degrees 
QU Quantity of move or angle 
CV Conversion factor — radians 
to degrees 
NI Conversion factor for turtle 
location 
a9 Turtle/Noturtle flag 
DR Penup/Pendown flag 
B Backward movement flag 
LE Left turn flag 
Picture Variables 
PI Picture counter 
BP Bad picture instructions flag 
PI$(n) Picture names 


FI$(n) Picture instructions 
File System Variables 
NU Temporary picture counter 
PX$(n) Temporary picture name 
FX$(n) Temporary picture 
instructions 
OP$ File option response 
OP Value of OP$ 
NAS Name of file 
K$ Miscellaneous keyboard 
responses 
D$ Control D for DOS 
commands 
Editor Variable 
ED$ Picture to be edited 
DO Function Variables 
D(C) DO counter 
Cc DO level counter 
SAS$(n) DO loop command 
SB$(n) Remainder of IN$ for DO 


function 
Increment Function Variables 


IG Increment flag 
ic Increment counter 
IV Increment value 


Variable-Name Variables 


vc Variable counter 
VAS$(n) Variable value 


Miscellaneous Variables 


FC Frees memory of old string 
variable values 
H, I,J, Loop variables 


L,L1 


Turtle Graphics 

by David Krathwohl 
Copyright © 1982 

by Micro SPARC Inc. 


28 
48 
45 
50 


68 
78 


89 
98 


188 
118 
120 
139 


149 
15 
169 


178 
1898 
198 


195 
2008 


219 
220 
239 
249 
259 
269 


2768 
289 


285 
299 
388 
3198 


328 
338 
399 
496 
419 


428 
430 
446 
450 


468 
499 
588 
518 
528 


538 


549 
559 
555 
569 
578 
589 


599 
599 
629 
619 
626 


638 
699 
728 


7108 
729 


730 
748 
799 


LOMEM: 16498: TEXT : HOME : GOSUB 28@@: HGR 
: GOSUB 88% 

HOME :FC = FC + 1: IF FC = 25 THEN FC = FRE 
(1):FC = @ 


VTAB 22: INPUT "WHAT DO YOU WANT THE TURT 
LE TO DO? "; IN$ 
BP = 9:VC = @:IV = @:IC = @:C = @: ONERR GOTO 


IF IN$ = "" THEN 48 
IF RIGHT$ (IN$,1) = "." THEN IN$ = 
CIN$,( LEN (IN$) - 1)) 
I$ = LEFT$ (IN$,2) 
KY = PEEK ( - 16384): IF KY > 127 THEN POKE 
- 16368,8: GOTO 40 


LEFT$ 


IF I$ = "FD" THEN GOSUB 488: GOSUB 590: 
GOTO 389 
IF I$ = "BK" THEN B = 1: GOSUB 488: GOSUB 
598: GOTO 388 
IF I$ = "RT" THEN GOSUB 488: GOSUB 609: 
GOTO 399 
IF I$ = "LT" THEN LE = 1: GOSUB 488: GOSUB 
609: GOTO 399 
IF LEFT$ (IN$,1) = ">" THEN 1199 
IF I$ = "DO" THEN 13998 
IF I$ = "//" THEN D(C) = D(C) - 1: GOTO 
1470 
IF I$ = "PU" THEN DR = 8: GOTO 389 
IF I$ = "PD" THEN DR = 1: GOTO 309 
IF I$ = "NT" THEN T = 1: GOSUB 799: GOTO 
3989 
IF I$ = “TU" AND T = © THEN 389 
IF I$ = "TU" THEN T = 8: GOSUB 898: GOTO 
390 
IF I$ = "HO" THEN GOSUB 1688: GOTO 399 
IF I$ = "CL" THEN GOSUB 1798: GOTO 40 
IF I$ = "FI" THEN 2968 
IF I$ = "ED" THEN 1889 
IF I$.= "QU" THEN TEXT : HOME : END 
IF I$ = "IN" THEN IG = 1: GOSUB 498: GOTO 
388 
IF BP = 1 THEN ED$ = PI$(PI): TEXT : HOME 
: GOTO 1989 
HOME : VTAB 22: PRINT "I DON'T UNDERSTAN 
D ";IN$: GOSUB 2788: GOTO 49 
CALL 887: GOTO 289 
REM « PARSE INSTRUCTIONS « 
FOR J = 1 TO ( LEN (IN$) - 1) 
IF MID$ (IN$,J,1) = "." THEN IN$ = RIGHTS 
CIN$,( LEN (IN$) - J)): GOTO 69 
NEXT J 
GOTO 49 
REM + DETERMINE QUANTITY « 
FOR J = 1 TO LEN (IN$) 
IF MID$ (IN$,J,1) = "." THEN QU = VAL 
( MID$ (IN$,3,J - 3)): GOTO 446 
NEXT J 
QU = VAL ( MID$ (IN$,3)) 
IF QU = 9 THEN GOSUB 1590: GOTO 469 
IF IG = 1 THEN IC = IC + 1:IV = QU: IG = 
@ 
RETURN 
REM + MOVE TURTLE + 
GOSUB 729 
IF B = 1 THEN TU = 188 + TU 
X1 = X + SIN (TU * CV) » QU + .@9985:Y1 = 


Y - COS (TU « CV) + QU + . 98895 

IF Xl<9.OR YV10<) 9) OR Xl) > 2798 OR Y1-> 
139 THEN 589 

IF DR = @ THEN 555 

HPLOT X,Y TO X1,Y1 

IF B = 1 THEN TU = TU - 189 
B= @:X = X1:¥ = Yl 

GOSUB 88%: RETURN 


HOME : VTAB 22: PRINT "THE TURTLE WOULD 

BE OUT OF BOUNDS. TRY A DIFFERENT M 
OVE. "; GOSUB 2782:X1 = 
XY) = ¥en 1F.8 = 1 THEN,B =.8:TU = TU - 

189 


POP : GOSUB 88%: GOTO 49 
REM * TURN TURTLE »« 
GOSUB 798 
IF LE = 1 THEN QU = 36@ - QU:LE = 9 
IF ABS (QU) > 368 THEN QU = _ INT ((QU / 
360 - INT (QU / 360)) « 368.05) * SGN 
(QU) 
TU = TU + QU: GOSUB 89%: RETURN 
REM + ERASE TURTLE « 
lets = Le THEN Th = T+ 1s TFT >: 2 THEN 
RETURN 
HCOLOR= 9 
HPLOT X2,Y2: HPLOT X3,Y3: HPLOT X4,Y4: HPLOT 
X5,Y5: HPLOT X6,Y6 
HCOLOR= 3 
RETURN 
REM + DRAW TURTLE « 


800 
819 
899 


IF T > 1 THEN RETURN 
GOSUB 908: RETURN 
REM «* TURTLE LOCATION « 


988 WI = 6:TA = 7 


918 X2 = XI - ( COS (TU * CV)) « WI:Y2 = Yl - 
( SIN (TU « CV)) »« WI 

928 X3 = X1 + ( SIN (TU « CV)) «* TA:Y3 = Y1 = 
( COS (TU « CV)) « TA 

938 X4 = X1 + ( COS (TU * CV)) » WI:Y4 = Yl + 
( SIN (TU « CV)) « WI 

940 XS) = X24 CCS = X2) / 2)iYS = Y2-4 C(YS = 
Y¥2y 7 2) 

958 X6 = X3 - ((X3 - X4) / 2):Y6 = Y3 - ((Y3 - 


969 


978 
988 
998 
1888 
1819 
1920 


1999 
1108 
1128 
1130 


1148 
1159 
1169 
1178 


1188 
1198 


1208 
1218 


1228 


1299 
1388 
1318 
1320 
1339 
1348 
1358 
1368 
1378 
1388 
1398 
1488 
141 
1428 
1430 
1449 


1445 
1459 
1469 
1478 


1486 


1498 
1499 
1580 
1519 
1528 
1532 


1548 
1558 


1560 
1599 
1600 


1610 
1620 
1630 


1699 
1788 
1718 
1799 
1808 
1818 
1829 
1830 
1849 
1859 
1869 
1878 
1889 
1898 
1986 


& BT = X2,Y2: & CT = X3,Y3: & DT = X4,Y4 

: & ET = X5,Y5: & FT = X6,Y6 

= 1 THEN Y2 172 
IF CT = 1 THEN Y3 17 
= 1 THEN Y4 178 

IF ET = 1 THEN YS 178 

IF FT = 1 THEN Y6 178 

HPLOT X2,Y2: HPLOT X3,Y3: HPLOT X4,Y4: HPLOT 
X5,Y5: HPLOT X6,Y6: RETURN 

REM « CHECK FOR PICTURE + 
PI = PI +1 

FOR J = 1 TO ( LEN (IN$) - 1) 

IF MID$ (IN$,J,1) = "." THEN PI$(PI) = 
LEFT$ (IN$,J - 1):IN$ = RIGHT$ (IN$,( LEN 
(IN$) - J)): GOTO 1169 

NEXT J 

PI$(PI) = IN$:IN$ = "" 

FOR I= PaO CPT cb) 

IF PI$(1) = PI$(PI) THEN IN$ = FI$(I) + 
"." + IN$:PI = PI - 1; GOTO 698 


NEXT I 

HOME : VTAB 22: PRINT "I DON'T KNOW HOW 
TO ";PI$(PI): PRINT : PRINT "PLEASE TEL 
L ME HOW" 

GOSUB 2788 

HOME : VTAB 22: PRINT "TO ";PI$(PI);: INPUT 
PRE ISCPR)) 

IN$ = FI$(PI) + "." + IN$:BP = 1: GOTO 6 
4) 

REM » REPEAT FUNC. (DO) « 
C=C+ti 


FOR J = 1 TO LEN (IN$) 
IF MID$ (IN$,J,1) = "(" THEN 1359 
NEXT J 
C=C - 1: GOTO 289 
FOR Lo =~ EEN) CINS)). 10, 1 STER. =" 3 
IF MID$ (IN$,L,1) = ")" THEN 1399 
NEXT L 
C=C - 1: GOTO 288 
FOR SED = J 7T0)E 
IF MID$ (IN$,L1,1) = ")" 
NEXT L1 
TF La <EeTHEN C™= EL 
SA$(C) = MID$ CIN$,J + 1,L - J - 2) 
IF L < LEN (IN$) THEN SB$(C) = MID$ ( 
IN$,L + 2): GOTO 1459 
SB$(C) = "" 
D(C) = VAL ( MID$ (IN$,3,J - 3)) 
IN$ = SA$(C) + ".//": GOTO 69 
IF D(C) = @ AND SB$(C) = "" THEN C = @: 
GOTO 48 
IF D(C) = @ THEN IN$ = SB$(C):SB$(C) = 
"":C = C = 12 GOTO 69 
IN$ = SA$(C) + ".//": GOTO 68 
REM »* VARIABLE FUNCTION + 
ve = VC +1 
VA$(VC) = MID$ (IN$,3,J - 3) 
FOR L=@TOVC - 1 
IF VA$(L) = VA$(VC) THEN QU = VA(L) + I 
V » IC:VC = VC - 1: GOTO 469 
NEXT L 
HOME : VTAB 22: PRINT "WHAT IS THE VALU 
E OF ";VA$(VC);: INPUT VA(VC) 
QU = VA(VC): RETURN 
REM « HOME » 
GOSUB 70@:X = X1:Y = Y1:X1 = 139:Y1 = 7 


THEN 1426 


9 

IF DR = @ THEN 16308 

HPLOT X,Y TO X1,Y1 
TU = @:X = X1:Y = Y1: GOSUB 888: RETURN 


REM »* CLEAR (CL) « 

HGR :X = 139:Y = 79:X1 = X:Yl = Y 
TU = 9:T = O:DR = 1: GOSUB 888: RETURN 
REM «* PICTURE EDITOR + 

TEXT : HOME 

FOR J = 1 TO LEN (IN$) 

IF MID$ (IN$,J,1) = ">" THEN 1859 


NEXT J 

GOTO 289 
ED$ = MID$ (IN$,J) 

FOR I = 1 TO PI 

IF PI$(I) = ED$ THEN HOME : GOTO 1999 
NEXT I 

IN$ = ED$: GOTO 1199 

INVERSE : PRINT : HTAB 18: PRINT "+ PI 


CTURE EDITOR «*": NORMAL 


continued on next page 
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Apple Turtle Graphics (Cont.) 


1918 PRINT : PRINT : INVERSE : PRINT "EDITIN 
G:";: NORMAL : PRINT ED$ 

1926 PRINT : INVERSE : PRINT "THE INSTRUCTIO 
NS FOR THIS PICTURE ARE:": NORMAL 

1939 PRINT : PRINT FI$(I) 

1949 INVERSE : VTAB 15: PRINT "WHAT SHOULD T 
HEY BE?": NORMAL 

1959 VTAB 17: HTAB 2: PRINT FI$(1I) 

1969 VTAB 17: INPUT FI$(I) 

1978 IN$ = "CL": GOTO 59 

1999 REM « FILING SYSTEM +» 

2006 TEXT : HOME :D$ = CHR$ (4): ONERR GOTO 
2649 

2818 VTAB 5: PRINT "OPTIONS AVAILABLE: 


<1> SAVE PICTURES TO 
A FILE <2> RETRIEVE PICTURE 
S FROM A FILE <3> DELETE A FILE" 
2928 PRINT " <4> CATALOG AND INDEX FILES 
<5> RETURN TO GRAPHICS MODE 
2038 VTAB 22: PRINT SPC( 48): VTAB 22: INPUT 
"TYPE THE NUMBER OF YOUR CHOICE. ";OP$:0 
P = VAL (OP$) 
2049 IF OP < 1 OR OP > 5 THEN 2039 
2858 ON OP GOTO 2966, 21998, 2320 , 2388, 2639 
2060 IF PI = @ THEN HOME : VTAB 12: PRINT “ 
THERE ARE NO PICTURES TO SAVE": GOSUB 27 
9B: GOTO 2889 
2878 GOSUB 2629 
2088 HOME : VTAB 12: HTAB 15: FLASH : PRINT 
"SAVING": NORMAL 
2899 PRINT D$;"OPEN ";NA$ 
2198 PRINT D$;"DELETE ";NA$ 
2119 PRINT D$;"OPEN ";NA$ 
2128 PRINT D$; "WRITE ";NA$ 
2138 PRINT PI 
2149 FOR I = 1 TO PI 
2158 PRINT PI$(I): PRINT FI$(1) 
2168 NEXT I 
2178 PRINT D$;"CLOSE ";NA$ 
2188 GOTO 28088 
2198 HOME : VTAB 5: INVERSE : PRINT "WARNING 
>": NORMAL 
2206 PRINT "RETRIEVING A FILE WILL DESTROY A 
NY PICTURES YOU CURRENTLY HAVE IN M 
EMORY.” 
2218 PRINT : PRINT “IF YOU WISH TO CONTINUE, 
PRESS ‘C' PRESS ANY OTHER KEY TO R 
ETURN TO FILE ACCESS OPTIONS." 
2228 INPUT K$ 
2230 IF K$ < > "C" THEN 28099 
2248 GOSUB 2628 
2258 HOME : FLASH : VTAB 12: HTAB 14: PRINT 
"RETRIEVING": NORMAL 
2268 GOSUB 25998 
2278 PI = NU 
2288 FOR I = 1 TO PI 
2298 PI$(I) = PX$(I):FI$(I) = FX$(I) 
2388 NEXT I 
2318 GOTO 29008 
2328 GOSUB 2629 
2338 PRINT : PRINT : INPUT "ARE YOU SURE? "; 
K$ 
2349 IF LEFT$ (K$,1) < > "Y" THEN 2000 
235@ HOME : FLASH : VTAB 12: HTAB 14: PRINT 
" DELETING ": NORMAL 
2368 PRINT D$;"DELETE ";NAS$ 
2378 GOTO 20208 
2388 HOME : PRINT "YOUR FILE ENTRIES ARE PRE 
CEDED BY A "; CHR$ (34);"T"; CHR$ (34) 
2398 PRINT D$; "CATALOG" 
2498 PRINT : INVERSE : INPUT "DO YOU WANT TO 
SEE WHICH DRAWINGS ARE IN A CERTAIN FIL 
E? ";K$: NORMAL 
2419 IF LEFT$ (K$,1) < > "Y" THEN 20908 
2426 GOSUB 26298 
2438 HOME : VTAB 12: HTAB 14: FLASH : PRINT 
" SEARCHING ": NORMAL 
2448 GOSUB 2599 
2458 HOME : FOR L = 1 TO NU 
2468 PRINT PX$(L);": ";FX$(L) 
2478 GOSUB 2600: PRINT 
2488 NEXT L 
2499 GOSUB 2598: GOTO 28008 
2509 PRINT D$;"OPEN ";NA$ 
2518 PRINT D$;"READ ";NA$ 
2528 INPUT NU 
2530 FOR I = 1 TO NU 
2549 INPUT PX$(I): INPUT FX$(1) 
2550 NEXT I 
2568 PRINT D$;"CLOSE ";NA$ 
2578 RETURN 
2588 GOSUB 2599: GOTO 2990 
2599  VTAB 24: HTAB 5: INVERSE : PRINT "PRESS 
ANY KEY TO CONTINUE"; : NORMAL 
2698 GET K$: IF K$ = "" THEN 2608 
2618 RETURN 


16 NIBBLE EXPRESS/VOL. II1/1983 


2628 


26308 
2649 


2658 
2699 
2709 
2799 
2889 
2818 


28208 
28308 


2848 
28508 
2868 
2878 
2875 


2880 
28908 





HOME : VTAB 12: INPUT "FILE NAME? “;NA$ 
: RETURN 

IN$ = "CL": GOTO 69 

CALL 887: IF PEEK (222) = 5 THEN PRINT 
D$; "DELETE ";NAS$ 

HOME : VTAB 12: PRINT “CHECK YOUR FILE 
NAME AND TRY AGAIN.": GOSUB 2788: GOTO 2 
88 

REM «+ TIME DELAY «+ 

FOR H = 1 TO 1900: NEXT H: RETURN 

REM « SET UP VARIABLES «+ 
TU = O:X = 139:Y = 79:CV = 3.14159265 / 
188:DR = 1: HCOLOR= 3 

DIM PI$(198): DIM FI$(198):PI = 8: DIM 
PX$(188): DIM FX$(1988) 

POKE - 16381,9 

FOR J = 768 TO 816: READ K: POKE J,K: NEXT 


DATA 32,227, 223,133,133,132,134,169,2 
DATA 192,222 166,18 ,72,165, 17 72,32; 1 
DATA 246 ,32,17,244,165,48,49,38,248,2 


DATA 169,1,168,32,1,227,76,91,218 
DATA 104,168,104,166,223,154,72,152,72 
,96: REM ERROR TRAP SUBROUTINE FROM P.8 
2 OF APPLESOFT MANUAL. STARTS AT 887 
POKE 1013,76: POKE 1814,8: POKE 1815,3 
Xl = X:Y1 = Y: RETURN 


3’ 


APPLESOFT LINE CRUNCHER 








Applesoft Line Cruncher 


by Alan and Valerie Floeter 
The Software Experience 
4333 N. 717 St. 

Milwaukee, WI 53216 


In the past few years we have published 
several utilities to automatically shorten 
Applesoft programs. These include methods 
such as renumbering programs to lower num- 
bered lines, removing REM statements, and 
reducing variable names to single characters. 

There is yet another method available to 
Appie users. Applesoft allows more than one 
statement onaline. By separating them witha 
colon(:), several statements can be placed on 
a single line. This is very commonly used in 
programs. An example of this is as follows 


4100 X=3 : INPUT Y : REM EXAMPLE OF 
MULTI-STATEMENTS 


This line contains three statements that could 
have been written separately and still execute 
the same. 

But there obviously would be a difference 
internally in how they are stored. A line in 
Applesoft is always at least six bytes long. 
Bytes 1 and 2 store the address of the next 
line in memory. Bytes 3 and 4 hold the line 
number in hexadecimal. Bytes 5 and beyond 
hold any Applesoft tokens in the line, and the 
last byte in a line is a 0. 

If two lines are combined into one, the sav- 
ings in memory is four bytes. If multiple lines 
are combined, it is easy to see that the savings 
in memory will really add up. 

For this reason the Applesoft Line Cruncher 
was written. It searches through an Applesoft 
program, automatically joining lines when 
possible. 


CRUNCH CRITERIA 

Several criteria need to be met before two 
lines are joined. Generally, when you join two 
lines, separated by a colon, the execution will 
be the same. However, this is not the case 
with the REM, IF-THEN, and ONERR GOTO 
commands. Any executable code following a 
REM command is treated as part of a remark 
and therefore not executed. So a line could 
not be added to a line already containing a 
REM. 

The IF-THEN statement in Applesoft is very 
different from that in an Integer program. In 
Integer, when the IF part of a statement is 
false, only the THEN portion is skipped. 
However, in Applesoft, when the IF portion is 
false, the rest of the line is skipped, and exe- 
cution continues with the next line number. 
You can see that combining a line after an 
IF-THEN would also cause an error in the 
execution. 

It is also interesting to note that any code 
following an ONERR GOTO command is not 
executed when onthe same line. Therefore, it 
is treated the same as the REM statement. 

Besides checking for REM’s and IF-THEN's, 
the line number to be dropped must be 
checked to see if it is referenced in another 
statement. Line numbers are used in GOTO's, 
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WOMONOOLWND 


91C8 
91C3 


91C5 
91C8 
91C9 
91CC 
91CD 
91CF 
91D1 
91D3 
91D5 
91D8 
91DA 
91DC 
91DE 
91E9 
91E3 
91E5 
91E7 
91E8 
91E9 
91EB 
91ED 
91EE 
91FO 
91F3 
91F4 
91F7 
91F8 
91FB 


91FC 
91FE 
9261 
9203 
9286 
9268 
920A 
920D 
920F 
9211 
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C5 
J) 


59 
59 


67 
FC 
68 
FD 
8E 
G1 
FC 
15 
94 
FC 
4) 
FC 


FC 
FD 


FC 
D8 


59 
59 


FD 
C2 
)) 
CE 
FC 
97 
CE 
24 
1F 
B2 


91 


6A 


FD 


91 


91 


6A 


95 
95 


95 


SOURCE FILE - LINE CRUNCHER 


LINE COMPRESSOR 
APPLESOFT LINE CRUNCHER 


BY AL AND VALERIE FLOETER 
THE SOFTWARE EXPERIENCE 
COPYRIGHT (C) 1982 

BY MICROSPARC, INC. 
LINCOLN, MA 91773 

ALL RIGHTS RESERVED 


REVISED NOV 19,1984 


THIS ROUTINE COMPRESSES LINES INTO 
MULTI- STATEMENT LINES FOR AN APPLESOFT 
PROGRAM . 


THIS IS DONE BY CHECKING IF LINE NUMBERS 
ARE USED, AND COMBINING THOSE UNUSED 
WHENEVER IT CAN. 


IT CHECKS THAT AN IF-THEN STATEMENT OR REM 
DOESN'T INTERFERE WITH PROPER EXECUTION. 


IT ALSO MAKES SURE THAT A LINE IN MEMORY 
DOES NOT TAKE MORE THAN MAXL BYTES. 
(SET TO 239 FOR APPLESOFT MAX) 


TO RUN, LOAD IN THE APPLESOFT ROUTINE 
AND CALL 37312, OR BRUN LINE CRUNCHER 


CR EQU $FD8E 


NEXTLN 


QUITIT 


EQU $FDED 
EQU $FC 
EQU $FE 
EQU $FB 
EQU $67 
EQU $AF 
EQU $69 


DSC $19 
DFS 1 
DFS 2 


ORG $91CB 


JMP START 
DFC 239,239/256 


LDA $AA59 
PHA 

LDA $6A59 
PHA 

LDA BEGN 
STA IND 

LDA BEGN+1 
STA IND+1 
JSR CR 

LDY #1 

LDA (IND) ,Y 
BEQ QUITIT 
LDY #4 

JSR MAINLP 
LDY #9 

LDA (IND) ,Y 
PHA 
INY 
LDA 
STA 
PLA 
STA IND 
JMP NEXTLN 
PLA 

STA $6A59 
PLA 

STA $AA59 
RTS 


;FOR BRUN FROM DOS 


(IND) ,Y 


IND+1 ;NEW HI ORDER 


;LO ORDER 


‘MAIN LOOP 


MAINLP 


MAIN 


MAIN1 


LDA IND+1 
STA INDSAV 
LDA #@ 

STA QUOTE 
LDA (IND) ,Y 
BNE MAIN1 
LDA QUOTE 
BEQ ENDMAN 
BNE NOCOLONG 
CMP #178 


;QUOTE FLAG 

;GET TOKEN 

;NOT END OF LINE 

;EVEN # OF QUOTES FOUND? 
YES 

;NO-DONT COMBINE 

;REM? 
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Applesoft Line Cruncher 
(Cont.) 


GOSUB’s, THEN’s, DEL’s, LIST’s, and RUN's. 
Obviously, if a line number is used, then it 
can’t be combined. 

Lastly, the total length of a line can’t be too 
long, or the crunched program will not be 
able to be edited. The Program Line Editor 
(PLE) sold through Call-A.P.P.L.E. can only 
edit lines containing less than 239 characters, 
(as distinguished). For instance, PRINT is 5 
characters, but only a one byte token. So 
obviously, if you use PLE or a program similar 
to it, you would want to restrict the line length 
to something acceptable to those utilities. So, 
before joining lines, the length must also be 
checked. Applesoft cannot run with line 
lengths greater than 256. 

With these four considerations, the Apple- 
soft Line Cruncher will check each line for 
joining. The Applesoft program is compressed 
and transformed into as few lines as possible. 


SYSTEM REQUIREMENTS 

The Line Cruncher is written in assembly 
language and can be run “as is” on 48K sys- 
tems, with either disk or cassette. Re-ORG 
the program to $5200 for a 32K system. 


ENTERING CRUNCHER 

Toenter the program, type in either the hex 
codes or instructions from the source listing. 
NOTE: At the symbol MAXL a pseudo-op is 
used that will not be accepted by the mini- 
assembler and possibly other assemblers as 
well. DFC means to store the hex values fol- 
lowing it directly into memory. You must use 
the monitor to enter those directly into mem- 
ory, unless you have an assembler with sim- 
ilar pseudo-ops. But also be aware that these 
are data, not executable instructions, so that 
if you try to disassemble that part of the pro- 
gram, you may find “???"s and other assorted 
nonsense. Do not let this bother you as long 
as the hex codes match those given in the 
listing. 

To save the program 


BSAVE LINECRCH,A$91C0,L$402 


To run the program, 


1) Load in Applesoft program to be 
compressed. 


2) Bload in LINECRCH 
3) CALL 37312 


LINECRCH can also be BRUN'd. 


IN OPERATION 

During execution the program lists out any 
lines that are being merged. This is shown by 
the line number that will result from the 
merge, an arrow, and the number of the line 
that is being merged into the first line. If a 
hardcopy listing of these changes is desired, 
activate the printer before BRUN-ing the pro- 
gram. When the program is finished execut- 
ing, the Applesoft prompt will appear on the 
screen. You can then continue working with 
your compressed program. 


We have allowed the user to select the 
length of the line. At the symbol MAXL there 
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98 

91 

92 

93 

94 

95 

96 

97 

98 

99 
1988 
191 
182 
193 
104 
195 
196 
187 
198 
1989 
118 
111 
112 
113 
114 
115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 
129 
138 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 
152 
153 
154 
155 
156 
157 
158 
159 
168 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
171 
172 
173 
174 
175 
176 
177 
178 
179 
188 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 


9213 
9215 
9217 
9219 
921B 
921D 
921F 
9221 
9224 
9226 
9229 
922A 
922C 
922E 
9238 
9233 
9236 
9238 
9239 
923C 
923E 
9249 
9242 
9244 
9245 
9247 
9249 
924B 
924D 
924F 
92598 
9252 
9255 
9256 
9258 
925B 
925E 
9268 
9263 
9266 
9269 
926B 
926D 
9278 
9273 
9275 
9277 
9279 
927B 
927D 
927E 
9288 
9282 
9285 
9288 
9289 
928B 
928D 
928F 
9298 
9292 
9295 
9297 
929A 
929C 
929F 
92AD 
92A3 
92A5 


92A6 
92A8 
92AA 
92AC 
92AD 
92AF 
92B1 
92B2 
92B5 
92B7 
92B9 
92BB 
92BD 
92BE 
92BF 
92C1 
92C2 
92C3 
92C5 
92C7 
92C8 
92CA 
92CC 
92CE 
92CF 
92D1 
92D2 
92D4 
9206 
92D7 


95 
95 


92 
95 


95 


95 
95 
93 
94 


95 
91 


95 
91 


95 
95 


92 
95 
92 
95 


95 


MAIN2 


NOCOLONG 
ENDMAN 


DOCOMB 


KEEP 


ZMOR 


BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
LDA 
EOR 
STA 
INY 
BNE 
INC 
BNE 
JMP 
STY 
LDA 
PHA 
LDX 
STX 
LDY 
LDA 
STA 
INY 
LDA 
BEQ 
STA 
LDA 
BEQ 
INY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
BEQ 
JSR 
LDA 
CMP 
BCC 
BNE 
LDA 
CMP 
BCC 
BNE 
LDY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
LDY 
PLA 
STA 
LDA 
STA 
INY 
STY 
JSR 
LDY 
LDA 
STA 
JMP 
PLA 
LDA 
STA 
RTS 


LDA 
STA 
LDA 
PHA 
STA 
LDA 
PHA 
LDA 
STA 
LDY 
LDA 
BEQ 
PHA 
DEY 
LDA 
PHA 
SEC 
SBC 
STA 
INY 
LDA 
SBC 
STA 
PLA 
STA 
PLA 
STA 
BCS 
CLC 
LDA 


NOCOLONG 
#173 
NOCOLONG 
#165 


INDSAV 
IND+1 
4B 
(IND) ,Y 
PIND 


(IND) ,Y 
NOCMB2 
PIND+1 
(PIND) ,Y 
NOCMB2 


(PIND) ,Y 
TLO 


(PIND) ,Y 
THI 

SEAR 
NOCMB2 
GETSIZ 
TOT+1 
MAXL+1 
DOCOMB 
NOCMB2 
TOT 

MAXL 
DOCOMB 
NOCMB2 
#2 
(PIND) ,Y 
(IND) ,Y 


(PIND) ,Y 
(IND) ,Y 
PRINT 
TEMP 


IND+1 
#":-$89 
(IND) ,Y 


YPOS 
PACK 
aa 
INDSAV 
IND+1 
MAIN 


INDSAV 
IND+1 


#4 
YSAV 
IND 


PIND 
IND+1 


INDSAV 
PIND+1 
#1 
(PIND) ,Y 
ZMOR 


(PIND) ,Y 
YSAV 
(PIND) ,Y 
(PIND) ,Y 
#B 
(PIND) ,Y 
PIND 


PIND+1 
KEEP 


YPOS 


;YES-DONT COMBINE 

TTR? 

:YES-DONT COMBINE 

;ON ERR? 

“YES 

; QUOTE? 

;NO 

:KEEP TRACK OF EVEN OR ODD 


;NEXT CHARACTER 


; JUMP TO NOCOMB 
;SAVE END OF LINE 


;GET ADDRESS OF NEXT LINE 


;HI ORDER 

;END OF PROGRAM 
;NONE THERE 

;GET LINE NUMBER 


; SEARCH FOR THIS LINE USED 
;USED SO DONT COMBINE 


;CHECK HI ORDER 
;DO COMBINE 
;TOO LARGE 
;CHECK LO ORDER 
;DO IT 

; DONT 


;FOR COMBINING 
;GET END OF LINE 


;TO SEPARATE NEW LINE 
; IN PLACE OF @ 


;PACK IT DOWN 


; TRY AGAIN 


;POSITION FOR END OF LINE 
;SAVE IT 


;CHANGE ADDRESS POINTERS 
; END 
; SAVE HI ORDER 


;LO ORDER 
;SAVE IT TOO 


;BACK IT OFF 
;NEW LO ORDER 


;HI, ORDER 


; IF OVERFLOW 
;NEW HI ORDER 


;NEXT LINE 
;CARRY SET HERE 


;GET WHERE TO PACK TO 


191 
192 
193 
194 
195 
196 
197 
198 
199 
288 
261 
282 
283 
204 
205 
206 
207 
288 
289 
219 
211 
212 
213 
214 
215 
216 
217 
218 
eg 
228 
221 
222 
223 
224 
225 
226 
227 
228 
229 
2308 
231 
232 
233 
234 
235 
236 
237 
238 
239 
246 
241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
278 
271 
272 
273 
274 
275 
276 
277 
278 
279 
288 
281 
282 
283 
284 
285 
286 
287 
288 
289 


92D9 
92DB 
92DD 
92DE 
92E1 
92E3 
92E5 
92E6 
92E8 
92EA 
92EC 
92EE 
92F8 
92F2 
92F4 
92F6 
92F8 
92FA 
92FC 
92FE 
93898 
9392 
9394 
9386 
9398 
939A 
938C 
939E 
9319 
9312 
9314 
9316 
9318 
931A 
931C 
931E 
9326 
9322 
9324 
9326 
9328 
9329 
932B 
932C 
932E 
932F 
9331 
9332 
9334 
9335 
9337 


9338 
933A 
933C 
933E 
9348 
9342 
9344 
9345 
9347 
9349 
934B 
934D 
934F 
9351 
9353 
9355 
9357 
9359 
935B 
935D 
935F 
9361 
9363 
9365 
9367 
9368 
936A 
936C 
936E 
9378 
9371 
9373 
9375 
9376 
9377 
9379 
937B 
937C 
937E 
9389 
9382 
9384 


9385 


FC ADC IND 
FC STA IND 
PHA ;SAVE IT FOR PIND 
C2 95 LDA INDSAV 
4) ADC #0 
FD STA IND+1 
PLA 
FB ADC YSAV ;TO OLD NEXT LINE 
FE STA PIND 
FD LDA IND+1 
J) ADC #2 
FF STA PIND+1 
BD LDY #2 
EE OK LDA (PIND) ,Y ;MOVE DOWN EVERYBODY! ! 
FC STA (IND) ,Y 
FC INC IND 
@2 BNE NOHI 
FD INC IND+1 
FE NOHI INC PIND 
G2 BNE NOHI2 
EF INC PIND+1 ;NEXT LOCATION 
FF NOHI2 LDA PIND+1 
Bo CMP PEND+1 ;END OF APPLESOFT? 
EA BCC OK ;NO 
FE LDA PIND 
AF CMP PEND ;LO ORDER END? 
E4 BCC OK ;NO 
AF LDA PEND 
FB SBC YSAV ; CHANGE END 
AF STA PEND ;NEW END 
69 STA LOM ;LOMEM TOO 
6B STA LOM+2 
6D STA LOM+4 
BO LDA PEND+1 
v4) SBC #2 ;HI ORDER 
BS STA PEND+1 
6A STA LOM+1 
6C STA LOM+3 
6E STA LOM+5 
14) LDY #9 
TYA , Y= 
FC STA (IND) ,Y ;END OF PROGRAM HAS 9'S 
INY 
FC STA (IND) ,Y 
INY 
FC STA (IND) ,Y 
PLA 
FD STA IND+1 
PLA 
FC STA IND 
RTS 
; SEARCH FOR LINE USED 
67 SEAR LDA BEGN ; START OF PROGRAM 
1A STA SER 
68 LDA BEGN+1 
1B STA SER+1 
24 NOT8 LDY #4 
1B LDA SER+1 
PHA 
1A NOTY LDA (SER) ,Y 
ae BEQ LINE 
c5 CMP #197 
1A BCS NO ;NOT VALID TOKENS 
85 CMP #133 
16 BCC NO ;NONE HERE EITHER 
32 BEQ FOUD ;GOT ONE 
AB CMP #171 ;LOOK FOR TOKENS 
2E BEQ FOUD 
AC CMP #172 
2A BEQ FOUD 
C4 CMP #196 
26 BEQ FOUD 
BO CMP #176 
22 BEQ FOUD 
BC CMP #188 
1E BEQ FOUD 
NO INY ;NONE FOUND 
DB BNE NOTY 
1B INC SER+1 
D7 BNE NOTY 
J) LINE LDY #2 
PLA 
1B STA SER+1 
1A LDA (SER) ,Y ;GET NEXT LINE 
PHA 
INY 
1A LDA (SER) ,Y ;GET HI ORDER 
1B STA SER+1 
PLA 
1A STA SER 
1A LDA (SER) ,Y ; END? 
BE BNE NOT8 ;NO 
G1 LDA #1 ;NOT EQUAL 
RTS ; YES 
AA 93 FOUD JSR BASE ;CONVERT TO BASE 198 


continued on next page 


Applesoft Line Cruncher 
(Cont.) 


are two locations to set. This is currently set 
up for a 239 character maximum for those 
who use PLE. To set this from Applesoft the 
following instructions could be used. 


POKE 37315,200 


This sets the line length to 200 characters. Itis 
interesting to note that this program could 
create such long lines, that they couldn't be 
edited by copying over them or by entering 
them from the keyboard. So if you're develop- 
ing a program which others will enter manu- 
ally into their machines, make sure that you 
have MAXL set to 239 or less. However, if you 
give them a copy on tape or diskette, by hav- 
ing lines longer than 239, you make it hard to 
modify without a lot of typing. 


SAVES TIME 

Another indirect benefit of using the Line 
Compressor is a reduction in execution time. 
If your Applesoft program has quite a few 
GOTO’s, etc., the savings could be substan- 
tial. However, this isn’t really a very predicta- 
ble occurrence. In one test we ran the speed 
improved by only 1%, so this shouldn't be the 
main reason for using the Line Compressor. 

When it comes to shortening an Applesoft 
program, using multi-statements on alineisa 
good method. The Applesoft Line Cruncher 
is a nice utility to add to your collection. It 
sure beats doing the editing by hand. 


LINE CRUNCHER 
DEMO 


ILIST 

10 X = 1 
20 Y=2 
30 Z=3 
40 A=1 
50 B#2 


70 IF A= X THENB=B+223 

80 REM THIS LINE WILL HAVE NOTH 
ING APPENDED TO IT. 

90 ON A GOTO 100,200 

100 PRINT "LINE 100"3 END 

200 PRINT "LINE 200"; END 

400 PRINT "THIS WILL BE A VERY V 
ERY LONG LINE IN ORDER TO IL 
LUSTRATE THE LINE LENGTH COU 
NTING CHARACTERISTICS OF APP 
LESOFT LINE CRUNCHER. SINCE 

IT VIRTUALLY FILLS THE LINE 

» IT WILL HAVE NO VARIABLES 
APPENDED TO IT BY LINE CRUNC 
HER" 

410 XX = 1 

420 YY = 2 

450 XX = XX +A+B+tX+V+Z 

500 Z = 10:0 = i:P = 2:T = 3:0 = 
Q@ + P + Ti PRINT "END" 


JCALL37312 
10) <=—— 20 
1075 =— 30 
10: <=— 40 
10 °<— So 
10° <== 7O 
410 <-- 420 
410 <-- 450 
410 <-- 500 
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(Cont.) 


ILIST 


10 X = 18¥ = 2:Z = 3:3A = 1:3B = 23 


IF A= X THENB = B+283 


80 REM THIS LINE WILL HAVE NOTH 


TING APPENDED TO IT. 


90 ON A GOTO 100,200 


100 
200 
400 


410 


PRINT "LINE 100": END 
PRINT “LINE 200": END 
PRINT "THIS WILL BE A VERY V 
ERY LONG LINE IN ORDER TO IL 
LUSTRATE THE LINE LENGTH COU 
NTING CHARACTERISTICS OF APP 
LESOFT LINE CRUNCHER. SINCE 
IT VIRTUALLY FILLS THE LINE 
> IT WILL HAVE NO VARIABLES 
APPENDED TO IT BY LINE CRUNC 
HER" 


XX = 1nVYY = 22XX = XX + A+B 


+X + Y + ZZ = 10:0 = 1:P = 
21T = 3390 = Q + P + Tr PRINT 
“END" 
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299 
291 
292 
293 
294 
295 
296 
297 
298 
299 
320 
301 
302 
393 
304 
305 
306 
397 
308 
309 
319 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
349 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 


366 


367 


368 


369 


3768 


371 


372 


373 


9388 
938B 
938D 
9398 
9393 
9395 
9398 
939B 
939D 
939E 
93A8 
93A1 
93A3 
93A5 
93A7 


93AA 
93AC 
93AF 
93B2 
93B5 
93B6 
93B8 
93BA 
93BC 
93BE 
93C8 
93C2 
93C3 
93C5 
93C7 
93C9 
93CB 
93CE 
93CF 
93D2 
93D5 
93D8 
93DB 
93DE 
93E1 
93E4 
93E7 
93EA 
93ED 
93EE 
93F1 
93F4 
93F5 
93F8 
93FB 
93FD 
9486 
9461 
9463 
9485 
9467 


9468 
9469 
949B 
949D 
946F 
9411 
9412 
9415 
9416 
9418 


9419 


941B 


9425 


942F 


9439 


9443 


944D 


9457 


9461 


946B 


AD 
FO 
AD 
cD 
DS 
AD 
cD 
Dg 
68 
AQ 
69 
Bl 
c9 
FO 
4c 


AQ 
8D 
8D 
8D 
c8 
Dg 
E6 
Bl 
c9 
FO 
Bl 
38 
E9 
98 
cg 
BS 
EE 
48 
GE 
2E 
AE 
AD 
GE 
2E 
GE 
2E 
6D 
8D 
8A 
6D 
8D 
68 
6D 
8D 
98 
EE 
c8 
DS 
E6 
DS 
69 


38 
EQ 
98 
c9 
Bg 
AA 
BD 
69 
AQ 
68 


@5 
86 
@5 
95 
26 
86 
97 
G6 
08 
7 
88 
08 
88 
@5 
84 
06 
04 
06 
97 
85 
B4 
96 
83 
83 
83 
@5 
95 
95 


C6 
14 
C7 
C4 
@C 
c8 
cS 
94 


)4) 


1A 
2c 
DE 
45 


iy) 
C7 
c8 
C6 


82 
1B 
1A 
28 
F5 
1A 


38 
48 
BA 
3c 
C6 


C7 
c8 
c8 
C7 
C7 
c8 
C7 
cs 
C7 
C7 


cs 
cs 


C7 
C7 
@3 
c8 


BD 
1B 
B9 


89 
@9 
6B 
@5 


19 
81 
95 
26 
85 


86 
06 


86 
08 


85 
88 


96 
9 


6 
95 


95 
24 


83 
3 


25 
@5 


95 


95 
95 


95 
95 


93 


95 
95 
95 


95 


95 
95 
95 
95 
95 
95 
95 
95 
95 
95 


95 
95 


95 
95 


95 


94 


07 
96 


6 
@5 


86 
@7 


06 
07 


@5 
83 


06 
06 


06 
86 


83 
5 


@5 
97 


NOT3 


: CONVERT 


BASE 


NOS 


STN 


NEXD 


DRTS 


’ 


LDA 
BEQ 
LDA 
CMP 
BNE 
LDA 
CMP 
BNE 
PLA 
LDA 
RTS 
LDA 
CMP 
BEQ 
JMP 


;ANY FOUND? 
;NO 


FLAG 
NOT3 
TOT 
TLO 
NOT3 
TOT+1 
THI 
NOT3 


; SAME? 


;STILL SAME? 
;NO 


#8 
;FLAGS EQUAL 
(SER) ,Y 
#" ,-$89 
FOUD 
NOTY 


;MORE NUMBERS? 
; YES 
;NO 


TO BASE 19 


LDA 
STA 
STA 
STA 
INY 
BNE 
INC 
LDA 
CMP 
BEQ 
LDA 
SEC 
SBC 
BCC 
CMP 
BCS 
INC 
PHA 
ASL 
ROL 
LDX 
LDA 
ASL 
ROL 
ASL 
ROL 
ADC 
STA 
TXA 
ADC 
STA 
PLA 
ADC 
STA 
BCC 
INC 
INY 
BNE 
INC 
BNE 
RTS 


#2 
TOT 
TOT+1 
FLAG 


+4 
SER+1 
(SER) ,¥ 
#" -$88 
NOS 
(SER) ,Y 


; SPACE? 
;YES-IGNORE IT 


#"B-$89 
DRTS 
#SA 
DRTS 
FLAG 


; THATS IT 
; OK? 
;NO 


TOT 
TOT+1 
TOT+1 
TOT 
TOT 
TOT+1 +4 
TOT 

TOT+1 +28 
TOT 

TOT 


;#2 


TOT+1 
TOT+1 


;ADD +2 


; VALUE 
TOT 
TOT 
NEXD 
TOT+1 


STN 
SER+1 
STN 


; A - TOKEN ON INPUT TO COUNT 
A - # OF CHARS ON OUTPUT 


CNTCHR 


NOGD 


CHRTAB 


04 86 O5 


@9 


99 


08 


88 


87 


86 


84 


95 


87 


08 


98 


88 


05 


84 


83 


95 


6 


@9 


87 


95 


05 


@5 


83 


95 


SEC 
SBC 
BCC 
CMP 
BCS 
TAX 
LDA 
RTS 
LDA 
RTS 


DFC 


DFC 


DFC 


DFC 


DFC 


DFC 


DFC 


DFC 


DFC 


DFC 


#128 
NOGD 
#ENDTAB 
NOGD 


;128 IS LOWEST TOKEN 


CHRTAB , X 


#1 


5,5 ; 128-129 
6,6,7,5,5,6,4,6,5,5 


6,6,6,6,6,5,9,7,6,7 
6,6,6,8,8,7,9,8,9,7;158-159 
8,5,6,8,8,7,8,8,7,8 
5,6,5,4,9,3,8,8,5,6 
4/6,6,6, 5,677) 5, 52 
5,5,6,4,4,6,6,4,5,6 
855, 9)0)3 0; aiosaee 


5, 5,5,5, 5.7794 0, o70 


374 


375 


376 
377 
378 
379 
389 
381 
382 
383 
384 
385 
386 
387 
388 
389 
398 
391 
392 
393 
394 
395 
396 
397 
398 
399 
499 
491 
482 
493 
494 
495 
496 
497 
468 
499 
419 
411 
412 
413 
414 
415 
416 
417 
418 
419 
428 
421 
422 
423 
424 
425 
426 
427 
428 
429 
439 
431 
432 
433 
434 
435 
436 
437 
438 
439 
448 
441 
442 
443 
444 
445 
446 
447 
448 
449 
459 
451 
452 
453 
454 
455 
456 
457 
458 
459 
4609 
461 
462 
463 
464 
465 
466 
467 
468 
469 
476 
471 
472 
473 
474 


9475 


947F 


9484 
9486 
9488 
948A 
948C 
948E 
9498 
9492 
9494 
9496 
9498 
949A 
949C 
949E 
94A9 
94A2 
94A4 
94A6 
94A8 
94AA 
94AC 
94AE 


94AF 
94B1 
94B3 
94B4 
94B6 
94B9 
94BC 
94BE 
94BF 
94C8 
94C2 
94C3 
94C6 
94C9 
94CB 
94CD 
94CE 
94D1 
94D2 
94D5 
94D8 
94DA 
94DD 
94DE 
94E9 
94E2 
94E3 
94E5 
94E6 
94E8 
94EA 
94EC 
94ED 
94EF 
94FO 
94F3 
94F4 
94F7 
94FA 
94FC 
94FF 
9588 
9592 
9594 
9505 
95987 
9598 
958A 


952B 
959D 
950F 
9512 
9513 
9515 
9518 
951B 
951D 
9528 
9522 
9525 
9526 
9528 


85 
@5 
95 
95 
08 


AQ 
E@ 
98 
DS 
co 
Bo 
AQ 
EO 
99 
Dg 
Co 
Bo 
AQ 
Eg 
DS 
Co 
Bo 
AQ 
co 
Ba 
AQ 
68 


95 95 
95 05 06 85 96 


96 87 


86 


@5 
27 
96 
22 
1g 
1E 
04 
83 
86 
16 
E8 
12 
83 
V4) 
@C 
64 
88 
G2 
GA 
G2 
1 


93 
FD 


V1} ) 
C7 
cs 
FC 


FC 


84 
C7 
84 
FC 


8 


C7 
C7 
93 
cs 


G2 
FD 


E6 


FD 
24 
FF 


FE 
98 


C7 
C7 
93 
c8 


92 
FF 


E6 
FF 


@2 
FC 
C4 


FC 
cS 
4C 
)) 
BC 
96 
ED 


FS 
@2 


95 
95 


94 
95 


94 


95 
95 


95 


94 


95 
95 


95 


95 
95 
95 
95 


FD 


ENDTAB 


DFC 


DFC 
EQU 


5,5,5,5,5,5,6,5,6,5 


5,6,,7,0,0 


. -CHRTAB 


X,Y - LINE NUMBER ON INPUT 
A - # OF CHARS ON OUTPUT 


LNCHR 
M1 


M2 


DN 


; GET LENGTH OF PRESENT LINE AND NEXT LINE 
; IF THEY WERE COMBINED 
LENGTH IN TOT AND TOT+1 


GETSIZ 


GETSZ 


SZ 


$Z5 


$Z2 


$Z3 


SZ4 


LDA 
CPX 
BCC 
BNE 
CPY 
BCS 
LDA 
CPX 
BCC 
BNE 
CPY 
BCS 
LDA 
CPX 
BNE 
CPY 
BCS 
LDA 
CPY 
BCS 
LDA 
RTS 


LDY 
LDA 
PHA 
LDA 
STA 
STA 
LDA 
TAX 
DEY 
LDA 
TAY 
JSR 
STA 
LDY 
LDA 
PHA 
JSR 
CLC 
ADC 
STA 
BCC 
INC 
INY 
BNE 
INC 
PLA 
BNE 
PLA 
STA 
LDY 
LDA 
PHA 
LDA 
PHA 
JSR 
CLC 
ADC 
STA 
BCC 
INC 
INY 
BNE 
INC 
PLA 
BNE 
PLA 
STA 
RTS 


‘PRINT LINES 


PRINT 


M3 


PDONE 


LDY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
LDX 
LDA 
BEQ 
JSR 
INX 
BNE 
LDY 


#5 -5 CHARS IF >=$2719 
#192000/256 

M1 ;<$2780 

DN ;>=2800 

#19090 

DN ;>=2718 

#4 -4 CHARS IF >=$3E8 
#1000/256 

M2 ,<380 

DN ;>=400 

#12900 

DN ->=3E8 

#3 ;3 CHARS IF >= 108 
#2 

DN ;>=108 

#190 

DN 

#2 

#10 

DN 

#1 


#3 
IND+1 


#9 

TOT 
TOT+1 
(IND) ,Y 


(IND) ,Y 


LNCHR 
TOT 

#4 
(IND) ,Y 


* 
* 
3 
’ 
7. 


CNTCHR 


TOT 
TOT 
SZ 
TOT+1 


$Z5 
IND+1 


GETSZ 
IND+1 
#4 
PIND+1 


(PIND) ,Y 





CNTCHR 


TOT 
TOT 
$Z3 
TOT+1 


SZ4 
PIND+1 


$Z2 


PIND+1 


MERGED 


#2 
(IND) ,Y 
TLO 


(IND) ,Y 

THI 

CONV ;PRINT TO NUMBER 
#2 

ARROW , X 

PDONE 

DOUT ;PRINT ARROW 


M3 
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475 952A B1 FE LDA (PIND) ,Y 
476 952C 8D C4 95 STA TLO 
477 952F C8 INY 
478 9538 Bl FE LDA (PIND) ,Y 
479 9532 8D C5 95 STA THI 
489 9535 28 4C 95 JSR CONV ;PRINT FROM NUMBER 
481 9538 28 8E FD JSR CR 
482 953B AD 98 CO LDA $C98B ;KEY HIT? 
483 953E 18 2B BPL NOKEY 
484 9548 8D 18 CB STA $C818 
485 9543 AD 88 CO K LDA $C82B ;WAIT FOR ANOTHER 
486 9546 19 FB BPL K 
487 9548 8D 18 CO STA $C81B8 
488 954B 66 NOKEY RTS 
489 ; 
499 } 
491 ;CONV HI LO TO ASCII IN ANSW 
492 ; 
493 954C A2 84 CONV LDX #4 
494 954E AQ 30 LDA #"8-$88 
495 9558 9D C9 95 STA ANSW,X ;FOR ONLY @ 
496 9553 CA DEX 
497 9554 AQ 20 LDA #" -$898 ; SPACE 
498 9556 9DC9 95 C2 STA ANSW,X 
499 9559 CA DEX 
598 955A 18 FA BPL C2 
581 955C E8 INX 
582 955D AD BO LDY #9 
583 955F B9 Bl 95 GON8 LDA NUMS,Y 
594 9562 FM 3D BEQ BDON 
585 9564 38 GOON SEC 
586 9565 AD C4 95 LDA TLO 
587 9568 F9 Bl 95 SBC NUMS,Y ;OK? 
598 956B 48 PHA 
599 956C C8 INY 
519 956D AD C5 95 LDA THI 
511 9578 F9 Bl 95 SBC NUMS,Y 
512 9573 98 27 BCC NEXA ;NO 
513 9575 8D C5 95 STA THI 
514 9578 68 PLA 
515 9579 8D C4 95 STA TLO 
516 957C 88 DEY 
517 957D BD C9 95 LDA ANSW,X 
518 9588 C9 29 CMP #" -$808 ; SPACE? 
519 9582 Dé 13 BNE INCT ;NO 
528 9584 A9 36 LDA #"9-$89 
521 9586 9D C9 95 STA ANSW,X 
522 9589 8A TXA 
523 958A 48 PHA ;SAVE X 
524 958B A9 38 LDA #"8-$88 
525 958D E8 LP2 INX 
526 958E 9D C9 95 STA ANSW,X ;@ NOW 
527 9591 ED 04 CPX #4 
528 9593 98 F8 BCC LP2 
529 9595 68 PLA 
538 9596 AA TAX ;X BACK 
531 9597 FE C9 95 _ INCT INC ANSW,X ;COUNT IT 
532 959A D@ C8 BNE GOON 
533 959C C8 NEXA INY 
534 959D 68 PLA 
535 959E E8 INX 
536 959F D@ BE BNE GON8 
537 95Al A2 OB BDON LDX #8 
538 95A3 BD C9 95 MANSW LDA ANSW,X 
539 95A6 89 89 ORA #$89 
549 95A8 28 ED FD JSR DOUT 
541 95AB E8 INX 
542 95AC EM G5 CPX #5 
543 95AE 98 F3 BCC MANSW 
544 95B2 69 RTS 
545 ; 
546 ; 
547 ; 
548 ; 18808 1900 1908 18 1 
549 H 
559 95Bl 198 27 E8 NUMS DFC $19,$27,$E8,$3,$64,0,$A,0,1,0,08 
93 64 OD BA BH G1 
QD OD 
551 ; 
552 95BC AS BC AD ARROW AG” aan * 
AD AS 
553 95Cl 99 DFC @ 
554 ; 
555 DSC . 
556 INDSAV DFS 1 
557 TEMP DFS 1 
558 TLO DFS 1 
559 THI DFS 1 
569 FLAG DFS 1 
561 TOT DFS 2 
562 ANSW DFS 5 
563 QUOTE DFS 1 
564 ‘ 
565 i 
986 ERRORS 


91C@ HEX START OF OBJECT 
95C1 HEX END OF OBJECT 
@492 HEX LENGTH OF OBJECT 
93C9 HEX END OF SYMBOLS 
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TRAC-I THE INCOME SYSTEM 








by Chris Exner 
178 Wakefield St. 
Reading, MA 01867 


INTRODUCTION 

TRAC-I is an easy-to-use, adaptable sys- 
tem for keeping track of your income. Ideal 
for personal accounting, INCOME-I has four 
different reports for examining the various 
sources of your revenue. (If you are using the 
TRAC-Plus accounting system for collecting 
expense data, INCOME TRAC will tap that 
information and produce a profit and loss 
statement!) 

Working with TRAC-I is simple — TRAC-I 
is user-friendly with descriptive menus and 
many screen prompts. You name the catego- 
ries of your income and then, no more than 
once a month, enter in your paycheck stubs 
and interest memos (or whatever type of cash 
receipts you have). To see a spreadsheet of 
your income year-to-date or an income state- 
ment with calculated-month-averages and 
trend figures, all you need to do is make a 
simple selection from a menu. 


GETTING STARTED 
The first screen format which appears after 
you type RUN is: 


** INCOME TRAC ** 


ie THIS SYSTEM ALLOWS YOU TO 
_ ENTER INCOME DATA. YOU MAY THEN 
_ PRODUCE AN INCOME STATEMENT > 
_ COMPARING YOUR INCOME TO YOUR 
Ne _ EXPENSES. THE EXPENSE DATAIS 
_ TAKEN FROM TRACFILES’BALANCES’, 
-ARD #’ AND ’CHECK #’. 


:NTER THE REPORT OUTPUT DEVICE 


1 = SCREEN ONLY 
2 = PRINTER 


_ ENTER YOUR SELECTION: 1 









In this sample run of TRAC-I, we want all 
reports to be displayed on our monitor screen; 
therefore we select option one. The alterna- 
tive option two would send all reports to the 
parallel or serial printer attached to our Apple. 

TRAC-I next asks for the date which will be 
used in the page headings of our reports: 


ENTER REPORT DATE (MO,DY,YR): 3,31,81 
THE MAIN MENU 


After the date has been entered, the system 
displays its main menu: 


_ *MAIN MENU * 
ENTER ACCOUNT NAMES 





Looking at the menu, we see the major 
functions of the TRAC-I system: 


1 = ENTER ACCOUNT NAMES — You 
select your own income categories. Each 
category you identify is assigned an account 
number anda short account name. Examples 
of income categories are Salary, Interest and 
Dividends from stocks. 


2 = ADD INCOME RECORDS — Each 
revenue payment which you receive is en- 
tered as an income record in the INCOME # 
file. This data becomes the basis of your 
Income Statement and Income Profile re- 
ports. 


= SORT INCOME RECORDS — The 
income records may be sorted by account 
number, date or dollar amount. This sort 
makes Income Record listings more read- 
able, and it is useful for analyzing your 
sources of income. 


4=REPORT/LIST OPTIONS — This selec- 
tion from the main menu presents you with a 
report menu. There are four different reports 
available in TRAC-I. 


5 = END — Exit the program. 


ENTERING ACCOUNT NAMES 
As this is your first time using TRAC-I, you 
must set up the account names. In the main 
menu, type “1”, hit the return key and you are 
ready: 












les "ENTER acco . NT NAM 





VALID EXPENSE / ccou NT 
1-24, : : 
VALID INCOME ACCOUNT #S Al 
380496 2% 
TYPE END FOR MAIN MEN U 














ACCOUNT NO: ao 
ACCOUNT NAME: Div. APPLE TOCK 


The data entry screen for updating account 
names is easy to use. Just enter a valid 
account number and a name. If the number 
entered has already been assigned an ac- 
count name, the screen will display the cur- 
rent account name on file and ask: 


ANY CHANGE?(Y/N) 


After you have entered all account names, 
type END in the account number field and 
you will be returned to the main menu: 


ACCOUNT NO: END 


Entering the account names is a one-time 
chore. Future runs of INCOME TRAC will 
have the account names in the ACCOUNTS 
file available for their use. 


ADDING INCOME RECORDS 


Once you have set up your account names, 
a selection of “2” from the main menu will 
display the following screen: 


5 42. 
co 2g ae 
as 44, 


- TYPE ACCOUNT #, REDO’, ‘EDIT, oR END’ 


* ADD INCOME RECORD Pe 





30, ABC-SALARY 
31. DEF-SALARY 


0. COM-BOOK SALES 
is COM-MAGAZINES 








35. INTR-1ST NATL 45. DWV-APPLE S STOCK 


36. C.D.-US TREASURY 46. 







BF: 3 47, DIV-IBM STO 

38. Mee a, 

39. 49. 
INCOME ACCT #'S ARE 30-49 


REC #: 1 
ACCOUNT #: 
MONTH/DAY: ~ 
REFERENCE 
AMOUNT: —— 


The accounts on the upper portion of the 
screen are those which you set up through 
the “ENTER ACCOUNT NAMES” screen. In 
the lower portion of the “ADD INCOME REC- 
ORDS’” screen, you will notice that the entries 
for account # and other fields do not all 
appear at one time. They appear as prompts 
only when the Apple requests data for each 
one of them. After a full income record is 
entered, the lower screen is erased, the rec # 
is increased by one, and the sequence is 
repeated. 

If you enter the word REDO in the account 
# field, the rec # is decreased by one and you 
will be allowed to re-enter the last income 
record. 

The word EDIT in the account # field allows 
you to enter the record # of any income 
record which you would like to change. 

When you have finished entering data, type 
END in the account # field. INCOME TRAC 
will write your income records to the text file 
INCOME # and return you to the main menu. 

Selection “3” from the main menu gives the 
sort option screen: 


= ENTER SORT PARAMETERS ee 


WHICH FIELD po You WANT TO soRT 
~ON?- Lou 


+= ACCOUNT NUMBER. 


2=MONTH © 
3 3 = DOLLAR AMOUNT 


ENTER YOUR SELECTION: 1 : 





You must enter the field upon which you 
would like your file of income records sorted. 
Here we chose the account number field. 
After the income records are sorted INCOME 
TRAC will ask two questions. 

The first question is: 


SAVE SORTED LIST ON THE DISK? 
ENTER ’Y’ OR’N’: 

The income data has already been saved to 
disk when you typed ’END’ in the account # 
field of the “* ADD INCOME RECORDS *” 
screen. Saving the sorted file means that 
future listings of the income records will be in 


the chosen sort order — by account number, 
by month or by dollar amount. 


continued on next page 
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Question two is: 


PRINT SORTED LIST ON PRINTER? 
ENTER ‘Y’ OR ’N’: 


Answering 'Y’ will allow you to obtain a 
listing of your income records without going 
through the report/list option menu. 


THE REPORTS 
The report/list option menu is reached by 
entering “4” from the main menu: 


* REPORT OPTIONS * 


1 = LIST ACCOUNTS 

2 = LIST INCOME RECORDS 
3 = INCOME STATEMENT 

4 = YTD INCOME PROFILE 


ENTER YOUR SELECTION: 


Just select the report you wish to see. 

The “Income Statement” report gives cur- 
rent month and year-to-date figures, and 
therefore needs to know which month to use 
as the current month. After you select the 
“Income Statement” report you will be asked: 


7 %AVG COLUMN IS (CURR MO-AVG 
MO)/AVG MO 


_ YOUR FISCAL YEAR BEGINS WITH JAN 
ENTER THE CURRENT MONTH #: 3 


Enter a month number (here we used 
March), and the “Income Statement” report 
will be printed. 

After any report is printed, the monitor 
screen returns to the main menu. At thattime, 
you may end your INCOME TRAC session by 
selecting “5” from the main menu and thereby 
exit the program. 


THE ACCOUNTS 

Account names are stored in a text file 
called, appropriately enough, ACCOUNTS. 
The List Account Names report is a simple 
printout of the account numbers and names 
from the file ACCOUNTS. Having an account 
name file allows you to enter only the simple 
two-digit account code for your income items 
and yet have the more readable account 
names printed on subsequent reports. 

ACCOUNTS is an APPLE DOS random- 
access file. Each data record of the file has 
an account name as data and an account 
number as the random-access key. For ex- 
ample, if account number 30 is the account 
category “ABC-SALARY”, then “ABC-SAL- 
ARY” is the contents of record number 30 of 
the text file ACCOUNTS. 

Valid account numbers for revenue ac- 
counts are in the range of thirty to forty-nine. 
Expense account numbers must be from one 
to twenty-four. Expense accounts are used if 
you record expense information through the 
TRAC expense-aathering system. (ED NOTE: 
The ACCOUNTS file must be generated by 
the TRAC-B program (NIBBLE, VOL. 2, NO. 
8). 
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22 TAXES-FEDERAL 
30. WABOSALARYS 
31 Seen) == ):\ 8.\: ) Se 
32. _ INTR-1ST NATL. - 
36 _ CD-US TREASURY 
40 COM-BOOK SALES) 
41 COM-MAGAZINES | 
45 _ DIV-APPLESTOCK 
47 -DIV-IBMSTOCK 


INCOME RECORDS 

You may use the TRAC-I system to keep 
track of your dollars as you earn them. For 
this, TRAC-I needs to be fed the details of 
your cash inflow, i.e. your paychecks, divi- 
dends, garage sale receipts and gifts from 
rich uncles. This detail information is then 
recorded in the text file INCOME # and from 
there is summarized into your financial 
statements. 

If you glance at the sample *Income 
Records” listing below, you will see that the 
fields of the income records are: a record 
number, a reference field for jotting short 
notes, the account number of the category to 
which the item belongs, a date and the rev- 
enue dollar amount. The record # is assigned 
automatically by INCOME TRAC and corre- 
sponds to that item’s record number in the 
text file INCOME #. The latter four fields con- 
tain information that you must tell INCOME 
TRAC about your revenue items. 

Most people will find they do not need to 
enter income data more than onceamontn. It 
is agood idea to jot cash memos on scraps of 
paper and throw them into a “revenue basket” 
until you are ready for an INCOME TRAC-I 
session. Aglance at your checkbook and sav- 
ing book deposits will tickle your memory for 
any forgotten entries. Then when you are cur- 
ious as to how your financial picture looks 
—sit down, run TRAC-I, enter, sort and list 
the revenue items and run the financial 
reports. 

A word on the “sort” step — it’s optional. 
You may leave your income records unsorted, 
which is to say in the order in which they were 
entered. Sorting rearranges the income rec- 
ords into ascending order by account number, 
by date or by dollar amount. You just might 
find that listing your income records in any 
one of these orders will make the * Income 
Records” listing a little more readable. 


* INCOME RECORDS* 3/31/81. 
*REFERENCE* | 
20SHARES 
PAY DECEMBER | 
PAY DECEMBER 
PAY -JANUARY ; 
HOW TO BE GOOD — 
PAY JANUARY 
14.333 PERCENT — 
PAY FEBRUARY 
PAY FEBRUARY 
10 GLAMOUR MAG. 

11 HOWTO BE GOOD 
12 100 SHARES 


OCONOGTEONS 








THE INCOME STATEMENT 

In the classic accounting definition, an 
income statement is a report of revenue and 
expenses. If revenues exceed expenses, then 
the difference between the two |S called net 
profit. lf expenses exceed revenues, the dif- 
ference is called net loss. The purpose of an 
income statement is to report changes in 
one’s assets. For that period of time which the 
income statement covers, one’s assets are 
either increased by a net profit or else de- 
creased by a net loss. 

The Income Statement report of TRAC-I 
can be used in one of two ways. If the 
(income-gathering) TRAC-I is used in con- 
junction with the (expense-gathering) TRAC- 
B system, then the Income Statement report 
has available to it both revenue and expense 
data and can produce profit/loss figures. If 
TRAC-I is used alone, the “Income State- 
ment” report will contain only revenue data, 
and while a profit/loss total cannot be calcu- 
lated, the statement functions very well as an 
income analysis report. 

There are four columns of figures in the 
Income Statement report. Column one shows 
the current month totals. Column AVG is the 
averages of the months from the beginning of 
the fiscal year through the current month. 
Column %AVG is the deviation of the current 
month amounts from the average month 
amount, expressed as percentages of the 
month averages. An example of the %AVG 
calculation: $125 in the current month column 
is a 25% %AVG increase over a month aver- 
age of $100. The YTD column is the cumula- 
tive totals from the beginning of the fiscal 
year through the current month. 


THE FISCAL YEAR 

What is a fiscal year? For most people, the 
fiscal year is the calendar year, from January 
to December. For others, their natural busi- 
ness cycle is such that the beginning of their 
accounting year is better started on a month 
other than January. For example, if you area 
teacher and view your business year as the 
school year, your natural fiscal year might 
begin in September. It is easy to change the 
fiscal year set-up of INCOME TRAC. (See the 
Operating Notes of this article for the “how- 
to”'s.) In fact, if you begin using your 
INCOME TRAC system in the middle of the 
calendar year, it is a good idea to temporarily 
change the first month of your fiscal year to 
the month in which you begin using the sys- 
tem. This change will give the AVG and 
%AVG columns of the Income Statement 
report more meaning. When January rolls 
around again, you can switch the fiscal year 
back to the calendar year. 

If you are using the TRAC-Plus system to 
collect your expense information, then you 
have both the revenue and the expense side 
of the Income Statement report. (TRAC-Plus 
was presented in Nibble Vol. 2 #8). If you have 
both types of data you will also get profit and 
loss figures. When you are reviewing these 
figures, the matching principle of accounting 
should be kept in mind. This principle as- 
sumes that revenues and expenses are appor- 
tioned among the months they affect. In other 
words, even though you paid your annual 
insurance premium as a lump sum in May, it 
should, ideally, be reported in twelve incre- 
ments from May through next April. The same 
holds true for revenue items such as certifi- 
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cate interest payments — a portion of that 
revenue should be reported in each of the 
months during which you hold the certificate. 
Itis with the matching principle that the truest 
profit and loss numbers are created. Busi- 
nesses employ hordes of accountants to keep 
track of those multi-month entries, but fora 
personal accounting system such entries are 
a lot of trouble. My suggestion for entering 
revenue and expense items is to “put’eminas 
you get 'em” — but when you look at your 
monthly Income Statement report, stand back 
and keep the year-to-date view. This month’s 
“net loss” could reflect the fact that your 
taxes are due, and not that you are becoming 
insolvent. 






THE YEAR-TO-DATE INCOME PROFILE 
The “Income Profile” report is a “spread” of 
monthly income from January to December. 
As the entire year is shown on one page, you 
can see inaglance all your income categories 
and note which categories contribute the 
most to your total revenue. “Income Profile” 
is a straightforward report useful in spotting 
cash flow problems and recognizing income 
trends. 





2) Printers and the control charcters they 
require can vary. The “Year-To-Date In- 
come Profile” report is 130 characters 
wide and therefore requires condensed 


printing if you are using 81/2 inch wide 
paper. Change lines 11030 and 11340 for 
your printer’s condensed printing control 
characters. 


ILIST 

10 REM SSSRSeeeRR ERE TETAS ERERREReEE EES 
15 REM se TRAC ’1I’ ts 
20 REM te THE INCOME SYSTEM a8 
25 REM #8 BY CHRIS EXNER a8 
30 REM &8 COPYRIGHT (C) 1962 ss 
35 REM &&% BY MICRO-SPARC INC se 
40 REM £8 LINCOLN, MA. 01773 at 
45 REM SHEET RRR EERE E TERE RE EEE EES 
72 GOTO 100 

75 REM REQUIRES APPLESOFT AND 1 DISK. 


L PRINTER IS OPTIONAL 


PARALLEL OR SERIA 


80 REM ’3’” PRINTING 

81 PRINT SPC( PK — SY)V6y 

82 SY = SY + (PK - SY) + LEN (V®) 
83 RETURN 

85 REM END OF LINE PRINTING 

86 PRINT SPC( PK - 8Y)V® 

87 PK = O:SY = 0 


68 

100 
110 
120 
130 
140 
150 
160 
175 
180 


RETURN 
TEXT » HOME s HTAB 113 
PRINT » PRINT " 

PRINT “INCOME DATA. 
PRINT 
PRINT 
PRINT 
PRINT 


“TAKEN FROM TRAC 
""CARD #” 


VTAB 
"vou 
HTAB 
HTAB 
VTAB 
YPEs 
IF PRTYPE < 
200 

IF PRTYPE = 1 THEN 220 
HOME 3s VTAB 10: PRINT 


121 PRINT 
WISH TO USE.” 
10s PRINT 
108 PRINT 
172 INVERSE 1 


8S 737"s PRINT 
SELECTIONs 
THEN 215 
REM 


“ PBS: 


PRINT "&® INCOME TRAC 88 


THIS SYSTEM ALLOWS YOU TO ENTER” 
YOU MAY THEN PRODUCE AN " 
“INCOME STATEMENT COMPARING YOUR INCOME” 
“TO YOUR EXPENSES. 


THE EXPENSE DATA IS " 
FILES ’BALANCES’,” 


AND ’CHECK #”." 
REM & ACCEPT OUTPUT DEVICE 
“ENTER THE REPORT OUTPUT DEVICE"s PRINT 


"1 = SCREEN ONLY" 
"2 = PRINTER" 

INPUT 
NORMAL s GOSUB 2300 
> 1 AND PRTYPE < 


“ENTER YOUR SELECTION: “sPRT 


> 2 THEN GOSUB 2100: GOTO 


“ENTER PRINTER TYPEs"s PRINT s PRINT 
“1= IDS & CENTRONICS COMPATIBLE": PRINT 


"2= CENTRONIC 


"3= EPSON MX-80"s PRINT s INPUT “ENTER 
IF VAL (PB) < 0 OR VAL (PBS) > 3 


& ACCEPT REPORT DATE 
VTAB 20: INVERSE s INPUT "ENTER REPORT DATE (MO,DAY,Y 


R)a"sRMO,RDY,RYR» NORMAL 


as GOTO 230 
DS = CHRS 


ONERR GOTO 5060 
HOME s HTAB 131 PRINT 


PRINT "2 = ADD INCOME 


PRINT 
VTAB iis 
a NORMAL 
IF OM = 
IF OM = 
IF OM = 
IF OM = 
IF OM = 
GOBUB 21001 


“S = END" 
INVERSE 28 


1 THEN 
2 THEN 
3 THEN 
4 THEN 
S THEN END 
GOTO 1060 


VTAB 23: CALL —- 668: 
Q=P:iP = ABS (P) 
C= (P > = 10) + (P > 
= 10000) 

IF @ < O THENC = C + 
RETURN 

REM 8ADD DETAIL FILE 
Fe = “INCOME #" 
ONERR GOTO 2560 


INPUT R 
FOR X = 1 TOR 


MO = VAL (MOS) 
NEXT X 

GOTO 2570 

ER = PEEK (222)1 POKE 
2900 

PRINT D$"CLOSE "iF 


IF (RMO < 1 OR RMO > 12) 


INPUT "ENTER YOUR SELECTIONs 


OR RDY > 31 THEN GOSUB 2100 


(4). REM CTRL-D 

DIM ACCTS (49) , BAL (49,12) 

DIM MNAMES (12) , WS (200, 6) 

DIM WK(300,5), YTD (49) , AVG (49) , PRCT (49) 


REM &88 MAIN MENU 888 


VTAB 4: PRINT “1 = ENTER ACCOUNT NAMES” 


RECORDS” 


PRINT "3 = SORT INCOME RECORDS " 
PRINT "4 = REPORT/LIST OPTIONS" 


GOTO 3000 
GOTO S000 
60TO 7000 
60TO 9000 


REM &¢& GENERAL PURPOSE ROUTINES 
VTAB 232 PRINT “INVALID ENTRY... PLEASE REENTER"s RETURN 


RETURN 
= 100) + (P > = 1000) + (P > 


1 


FLASH » PRINT “READING “;F¢;" FILE"s NORMAL 
PRINT D®"OPEN "3;F®;",L40" 
PRINT D®"READ “;F®)",RO° 


PRINT D®"READ ")F@)",R"9X 
INPUT A,CNOS, MOS, DYS, AMT 
BAL (A.MO) = BAL(A,MO) + AMT 


REM % DETAIL FILE ERR RTN 


216,01 IF ER < > 5S THEN GOTO 


continued on next page 
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aager 5210 W = VAL (WO(I,1)): IF W< 30 OR W > 5O THEN GOSUB 2 
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S C 5220 W$(I,2) = "O"s REM FOR CONSISTANCY W/ OTHER TRAC DAT 
ystem ont. A FILES, THE CARD/CHECK FIELD IS PLACE-HELD. 
5230 VTAB 20: CALL — 868: INPUT "MONTH, DAY: "s;W®(I, 3), WS ( 
2575 IF SW = 1 THEN SW = 0 TO 40 RETURN TO PR 1,4) 
OFILE Se Laan ee 2 5240 GOSUB 2300 
5250 WM = VAL (WS(I,3)):WD = VAL (W6(I,4))1 IF WM < 1 OR 


2580 IF F® = “I " =" " 
25 Tip lg a Se ap ith gh gic eh PE 2 as WM > 12 OR WD > 31 THEN GOSUB 21001 GOTO 5230 
90 IF F® = "CHECK #" THEN F$% = "CARD #"1 GOTO 2505 5260 i " 
VTAB 21: CALL - 868: PRINT "REFERENCE: "jy: NORMAL 1 
2595 GOTO 9380: REM RETURN TO INCOME STATEMENT Sin i dis tlaplinancstneuioreia “sy, HTAB 121 INVERSE » INPUT "" 
2800 VTAB 24: INVERSE : INPUT "HIT RETURN FOR NEXT PAGE") swe (1,6) uy 
: = bd 
X$: NORMAL : HOME :PGCT = 0 5270° GOSUB 2300 


2810 RETURN 

2850 POKE 36,8: PRINT "&% INCOME STATEMENT ®& "sRMO;"/"3 
RDY3"/"3;RYR 

2860 PRINT 3» POKE 36,12: PRINT MNAME$ (CMO) ;" AVG A 
VG YTD": PRINT sPGCT = 4: RETURN 

2900 PRINT "CHECK APPLESOFT MANUAL PG.136 FOR ERR." 

2910 PRINT "THE ERROR IS #"3 PEEK (222);"LOCATED IN LINE® 

“) PEEK (218) + PEEK (219) & 256 

2920 END 

3000 REM %8%8%% LOAD ACCOUNT TABLE ROUTINE 

3010 ONERR GOTO 3900 

3020 FLASH » PRINT "LOAD ACCOUNTS “: NORMAL :X = 1 

3030 PRINT D$"OPEN ACCOUNTS,L30" 

3040 PRINT D®"READ ACCOUNTS, RO" 

3050 INPUT R 

3060 FOR X = 1 TO 49 

3070 PRINT D®"READ ACCOUNTS,R")X 

3080 INPUT ACCTS(X) 

3090 NEXT X 

3100 PRINT D$"CLOSE ACCOUNTS" 

3110 IF SW = 1 THEN SW = O: GOTO 5005: REM ADD INCOME IN 
COME RCDS 

3120 IF SW = 2 THEN SW = O: GOTO 9110: REM LIST ACCTS 

3130 IF SW = 3 THEN SW = 0: GOTO 9385: REM INCOME ST. 

3140 IF SW = 4 THEN SW = 0: GOTO 10050: REM PROFILE RPT 

3500 REM & ENTER ACCOUNT NAME 

3510 HOME » HTAB 8: PRINT "&&% ENTER ACCOUNT NAMES 8" 

3520 VTAB 4: INVERSE 1 PRINT "VALID EXPENSE ACCOUNT #’S A 
RE 1-24 "» PRINT "VALID INCOME ACCOUNT #’S ARE 30-49" 


5280 IF W$(I,6) = "" THEN W6(I,6) = " " 

5290 IF LEN (W$(I,6)) < 1 OR LEN (W6(I,6)) > 14 THEN VTAB 
24: PRINT "MAX 14 CHAR ALLOWED... PLEASE REENTER": GOTO 
5260 

5300 VTAB 22: CALL - 8681 INPUT "AMOUNT: “jW8(T,5) 

5310 GOSUB 2300 

5320 IF ASC (WS(I,5)) < 48 OR ASC (WS(I,5)) > 57 THEN VTAB 
24: PRINT "NOT A NUMBER...PLEASE REENTER"s GOTO S300 

5330 VTAB 17: CALL — 958s PRINT "LAST ACCT=";WS(T,1)5" 
MONTH= "gWS(I,3)3" AMT=6",WS(I,5) 

5340 IF IS > O THEN X = Is GOSUB 540011 = IS:IS = Os GOTO 
5150 

5380 GOTO 5140 

5400 REM & WRITE INCOME RECORDS 

5410 PRINT D®"OPEN INCOME #,140" 

5420 IF IS > O THEN 54601 REM DIRECT EDIT 

5430 PRINT D®"WRITE INCOME #,RO” 

5440 PRINT I 

5450 FOR X =R +1 TOI 

5460 PRINT D®"WRITE INCOME #,R"3X 

5470 PRINT W®(X,1)s PRINT W®(X,2)3 PRINT W6(X,3)s PRINT W 
$(X,4)a1 PRINT W6(X,5)1 PRINT W8(X,6) 

sesso IF IS > 0 THEN 5900 

5890 NEXT X 

5900 PRINT D®;"CLOSE INCOME #” 

5910 IF IS > 0 THEN RETURN 

5915 IF SW = 2 THEN SW = Os GOTO 7440: REM RETURN TO SOR 
T RTN 

5920 GOTO 1000: REM RETURN TO MAIN MENU 

7000 REM #88888 SORT INCOME RECORDS 

7010 REM & READ INCOME FILE RTN 

7015 R = O01 ONERR GOTO 7104 

7020 FLASH : PRINT “READING INCOME #"s NORMAL 

7030 PRINT D®"OPEN INCOME #,140” 

7040 PRINT D®"READ INCOME #,RO” 


3525 PRINT "TYPE *END’ FOR MAIN MENU": NORMAL 

3530 VTAB 9: CALL —- 868: INPUT "ACCOUNT NO:"sAS: GOSUB 2 
300 

3540 IF AS = "END" THEN GOTO 3700 

3550 A = INT ( VAL (AS)? 

35460 IF A < 1 OR (A > 24 AND A < 30) OR A > 49 THEN GOSUB 
2100: GOTO 3530 7050 INPUT R 

3565 IF ACCTS(A) = "" THEN GOTO 3610 7060 IF R = 0 THEN GOTO 7106 


3570 VT i: CALL —- 868: PRINT “ACCOUNT NAME: ";ACCTS(A 7070 FOR X = 1 TOR 
. ) alee : : 7080 PRINT D®"READ INCOME #,R"3X 


3580 VTAB 23: INVERSE 1 INPUT "ANY CHANGE? (Y/N) "3X®: NORMAL 7090 INPUT W6(X,1),W6(X, 2), WE(X, 3) ,WO(X, 4) ,WE(X, 5), WO(X,6 
) 
3590 IF X® = "N" THEN GOTO 3530 7100 NEXT X 
eR ree abes OeUT "ACCOUNT. NACA 7164 ay pak (222)s POKE 216,03 IF ER< > SORR< > 
10 VTAB iis CALL —- 868: INPUT “ACCOUNT NAME: "sACCTS(A = : 708 
ar ) j ‘ © THEN GOTO 2900 
3620 IF LEN (ACCTS(A)) < 1 OR LEN (ACCT®(A)) > 16 THEN 7106 INVERSE 1: PRINT "NO RECORDS STORED IN INCOME® FILE"s 


NORMAL : FOR X = 1 TO 1500: NEXT Xs GOTO 1000 
7110 PRINT D®"CLOSE INCOME #" 
7120 IF SW = 1 THEN SW = O: GOTO 9820 


VTAB 23: PRINT “NAME LENGTH MUST BE 1-16"1 GOTO 3610 


3630 GOTO 35350 


ACCOUN’ 7200 REM ®t ENTER SORT PARAMETERS 
oe renal Seer seoe ge 7205 HOME : HTAB 7: PRINT “® ENTER SORT PARAMETERS 8" 
3715 FLASH : PRINT “WRITING ACCOUNTS FILE": NORMAL 7210 PRINT : PRINT “WHICH FIELD DO YOU WANT TO SORT ON?" 
3720 PRINT D@"OPEN ACCOUNTS,L30"” 7220 HTAB 10: PRINT “i = ACCOUNT NUMBER™ 
3730 PRINT D®“WRITE ACCOUNTS, RO” 7230 HTAB 10: PRINT “3S = MONTH" 
3740 PRINT R 7240 HTAB 10: PRINT "5S = DOLLAR AMOUNT” 
3750 FOR X = 1 T0-49 7250 VTAB 7: INVERSE : INPUT “ENTER YOUR SELECTION: “3SR: 
3760 PRINT D®"WRITE ACCOUNTS,R"3X NORMAL 
3770 PRINT ACCTS(X): NEXT X 7260 IF SR = 1 THEN AS = “BY ACCOUNT NUMBER" 
3780 PRINT D$"CLOSE ACCOUNTS” 7270 IF SR = 3 THEN AS = “BY MONTH" 
3790 GOTO 1000: REM RETURN TO MAIN MENU 7275 IF SR = 5 THEN AS = "BY DOLLAR AMOUNT” 
3900 REM & ACCOUNTS ERROR RTN 7280 IF SR < > 1 AND SR < > 3 AND SR < > 5S THEN GOSUB 
3910 ER = PEEK (222): POKE 216,013 IF ER < > 5 THEN 2900 2100: GOTO 7250 
3920 PRINT D®"CLOSE ACCOUNTS” 7285 FLASH : PRINT “INITIALIZING SORT VARIABLES": NORMAL 


3930 FOR Y = X TO 491ACCTS(X) = ""s NEXT Y 


3940 R = 49 7290 H = O:1K = O13 = O8V = OFCM = OFF = O 


3950 GOTO 3110 7295 FOR X = R + 1 TO 300: FOR N = 1 TO SsWK(X,N) = Os NEXT 
5000 REM #88888 ENTER INCOME RECORDS N,X 
5002 SW = 1: GOTO 3000: REM LOAD ACCT NAMES 7300 FOR X = 1 TO Rs FOR N = 1 TO SaWK(X,N) = VAL (WO(X, 
5005 ONERR GOTO 5060 N))s NEXT N,Xs REM CONVERT STRINGS TO DIGITS 
5030 PRINT D®”"OPEN INCOME #,L40" 7305 FLASH »s PRINT "SORT IN PROGRESS": NORMAL 
5040 PRINT D®”READ INCOME #,RO" 7310 M = Ri REM && SORT ROUTINE 
5050 INPUT R: GOTO 5080 7312 M = INT (M / 2)5 IF M = O THEN 7395 
S060 ER = PEEK (222): POKE 216,01 IF ER < > 5 THEN GOTO 7320 J=iskK = R-M 
2900 7325 H= J 
5070 R= 0 7330 V = H + MiCM = CM + 1 
5080 PRINT D®"CLOSE INCOME *" 7340 IF WK(H,SR) < WK(V,SR) THEN 7387 


7350 FORF#1T05 


5095 I =R 
$100 + HTAa 9s INT “# ADD I RECORD 8" Aa TK pee ee = WK(V,F)aWK(V,F) = TK 
5110 PRINT : FOR X = 30 TO 39: PRINT Xp". "sACCT®(X)3s HTAB . 

20: PRINT X + 103". “sACCT®(X + 10)5 XT X 7372 T® = WO(H, 6) sWO(H, 6) = WE(V,6)2W6(V,46) = TS 


7375 He H- M 

7380 IF H < 1 THEN 7387 
7385 GOTO 7330 

7387 J=J+i1 

7389 IF J > K THEN 7312 


5130 PRINT : INVERSE : PRINT "INCOME ACCT #’S ARE 30-49"1 
PRINT "TYPE ACCOUNT #, *REDO’, "EDIT’, OR "END’":s NORMAL 


5140 I= 1+1 


5150 VTAB 18: CALL - 868: PRINT "REC #"31 
5160 VTAB 19: CALL - 868: INVERSE 1: INPUT "ACCOUNT @ "jW cana pag i ae “SORT COMPLETED": NORMAL 
$(1,1) 
PA AS 7400 FOR X = 1 TO R: FOR N = 1 TO SiW@(X,N) = STR® (WK(X 
5180 IF W8(I,1) = "END" THEN NORMAL 1I = I - 12 GOTO 540 sl ge Te otal 
° 


5190 IF W6(I,1) = "REDO" THEN I = I - 1: GOTO 5150 
5200 IF W$(I,1) = “EDIT” THEN IS = I: INPUT “RECORD # TO 
EDIT? ";IsW$(IS,1) = “"s GOTO 5150 
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7410 


7420 
7430 


7440 


7450 
7460 


7470 
9000 
9010 
9020 
9025 
9030 
9040 
9050 


9055 
9060 
9065 


9067 
9068 
9069 


9070 
9075 
9080 
9085 


9090 
9100 
9105 
9110 


9115 
9120 
9125 
9130 
9135 
9140 
9145 
9150 


9155 
9160 
9165 


9170 
9175 


9200 
9205 
9210 
9215 
9220 


9230 
9235 
9240 
9245 


9250 
92355 
9260 
9265 
9270 
9275 
9300 
9305 
9307 


9310 
9315 
9320 
9325 
9330 
9335 
9340 
9345 
9350 
9355 
9360 
9365 
9370 

9380 
9385 

9390 

9392 
9395 


9400 


I = R:R = 0:18 = Os VTAB 10: PRINT “SAVE SORTED LIST 
ON THE DISK? "s INVERSE » INPUT "ENTER "Y’ OR ’N’s "5 
X$: NORMAL » GOSUB 2300 

IF X®-= "Y" THEN SW = 2: GOTO 5400: REM WRITE INCOM 
E RCDS 

IF X® < > "¥" AND X® < > "N" THEN GOSUB 2100: GOTO 
7410 
R = I: VTAB 13: PRINT "PRINT SORTED LIST ON PRINTER? 
“s INVERSE : INPUT "ENTER "Y’ OR ’N’s "sX®s NORMAL » GOSUB 
2300 

IF X® = "Y" THEN GOTO 9820 

IF x6 < > “Y" AND X® < > "N" THEN GOSUB 2100: GOTO 
7440 

GOTO 10001 REM MAIN MENU 

REM &&88&8 REPORT OPTIONS 

HOME » HTAB 10: PRINT "8& REPORT OPTIONS &&" 

PRINT 2 PRINT "1 = LIST ACCOUNTS" 

PRINT "2 = LIST INCOME RECORDS" 

PRINT “3 = INCOME STATEMENT" 

PRINT “4 = YTD INCOME PROFILE" 

VTAB 8: INVERSE » INPUT "ENTER SELECTION: “jRPs NORMAL 
1 GOSUB 2300 

IF RP = 1 THEN GOTO 9100 

IF RP = 2 THEN GOTO 9800 

IF RP < > 3 AND RP < > 4 THEN GOSUB 2100: GOTO 90 
50 

RESTORE + FOR X = 1 TO 12s READ MNAME®(X)s NEXT X 

IF RP = 4 THEN GOTO 10000: REM PROFILE RPT 

VTAB 9: PRINT "ZAVG COLUMN IS (CURRMO -AVG MO) /AVG M 
o" 

BMO = 1: REM CHANGE THIS LINE TO FIT YOUR FISCAL YEA 
R SET-UP 

VTAB 11s PRINT “YOUR FISCAL YEAR BEGINS WITH "s;MNAME 
$(BMO) 

VTAB 14: INVERSE 1 INPUT “ENTER THE CURRENT MONTH@s 
"yCMOs GOSUB 2300; VTAB 16 

CMO = INT (CMO): IF CMO < 1 OR CMO > 12 THEN GOSUB 
2100: GOTO 9080 

GOTO 9300: REM INCOME STATE. 

REM & LIST ACCOUNTS 

SW = 2: GOTO 3000: REM LOAD ACCT NAMES 

IF PRTYPE = 2 THEN GOTO 9200: REM LIST ACCOUNTS ON 

PRINTER 

REM & LIST ACCTS ON SCREEN 

A=0 

HOME : HTAB 11: PRINT "8% LIST ACCOUNTS &" 

PRINT : PRINT “ACCT# ACCT NAME" 

FOR X = 0 TO 39: PRINT “="ys NEXT Xs PRINT 

PGCT = 0 

PGCT = PGCT + 1 

IF PGCT > 17 THEN VTAB 24: INVERSE s INPUT "HIT RET 
URN FOR NEXT PAGE "3X$: NORMAL : GOTO 9125 

A=A+1 

IF A > 49 THEN GOTO 9175 

IF ACCT$(A) = "" THEN GOTO 9155: REM SKIP UNUSED A 
ccTs 

HTAB 3: PRINT As: HTAB 91 PRINT ACCTS(A)1 GOTO 9145 

VTAB 24: INVERSE : INPUT “HIT RETURN FOR MAIN MENU") 
X$: NORMAL : GOTO 1000 

REM # LIST ACCTS ON PRINTER 

PRINT D8; "PR#1" 

PRINT CHR® (9)3"40N" 

PRINT CHR® (2)3 CHR® (30) 

PRINT TAB( 11)4"8 LIST ACCOUNTS # “sRMOs"/"pRDY 
3"/"pRYR 

PRINT 1 PRINT "“ACCT# ACCT NAME” 

FOR X = 1 TO 39s PRINT "="gs NEXT Xa PRINT 

FOR A = 1 TO 49 

IF ACCTS(A) = "" THEN GOTO 9260: REM SKIP UNUSED A 
ccTs 

POKE 36,3: PRINT A} 

POKE 36,91 PRINT ACCTS(A) 

NEXT A 

PRINT CHR® (9)5"40N" 

PRINT DS; "PR#O" 

TEXT s GOTO 1000: REM RETURN TO MAIN MENU 

REM & INCOME STATEMENT 

REM % GATHER ACTUAL EXPENSES RTN 

FOR X = 30 TO 491 FOR N = 1 TO 12:BAL(X,N) = On NEXT 
N,X 

REM & READ YTD BALANCES 

ONERR GOTO 9355 

FLASH » PRINT "READING YEAR-TO-DATE FILES": NORMAL 
PRINT D®"OPEN BALANCES” 

PRINT D$"READ BALANCES" 

FOR X = 1 TO 24; FOR N = 1 TO 12 

INPUT BAL (X,N) 

NEXT N,X 

GOTO 9365 

REM YTD ERROR RTN 
ER = PEEK (222): POKE 216,013 IF ER < > 5 THEN 2900 
PRINT D$"CLOSE BALANCES" 

GOTO 2500: REM ADD DETAIL FILES 
SW = 31 GOTO 3000s REM LOAD ACCT NAMES 


REM &CALC YTD AMTS 

FOR A = 1 TO 49 
YTD(A)- = 0 

IF BMO < = CMO THEN FOR M = BMO TO CMOsYTD(A) = YT 
D(A) + BAL(A,M)s NEXT M 

IF BMO > CMO THEN FOR M = BMO TO 12:YTD(A) = YTD(A) 
+ BAL(A,M)s NEXT Ms FOR M = 1 TO CMOsSYTD(A) = YTD(A) 
+ BAL(A,M)s NEXT M 


9405 
9410 
9415 
9420 
9425 
9430 


9435 
9440 
9442 
9445 


9447 
9450 
9452 
9455 
9460 


9465 
9470 
9475 
9480 


9485 
9490 


9495 
9500 
9502 


9505 
9510 
9515 
9520 


9525 
9530 


9540 
9545 


9550 
93551 
9552 
9555 
9557 
9560 
9565 


9570 
9575 


9577 
9580 


9582 
9585 
9590 
9592 
9595 
9600 
9605 
9610 
9612 
9615 


9620 
9625 


9630 
9635 


9640 


9645 
9650 


9655 
9665 
9670 


9675 
9680 
9685 


9690 
9800 
9810 
9820 


9830 
9840 
9845 
9850 
9855 
9860 
9865 


9868 


NEXT A 
IF BMO < = CMO THEN MCT = (CMO —- BMO) + 1 

IF BMO > CMO THEN MCT = (13 - BMO) + CMO 

FOR A = 1 TO 49: REM CALC AVG MONTHS & PERCENTAGES 
AVG(A) = INT ((YTD(A) / MCT) + .5) 
PRCT(A) = O1 IF AVG(A) < > O THEN PRCT(A) = (BAL(A,C 
MO) - AVG(A)) / AVGIA) 
PRCT(A) = INT (PRCT(A) # 100 + 
NEXT A 

REM & PRINT INCOME STATEMENT 
IF PRTYPE = 1 THEN HOME 1s GOTO 94553 REM SKIP TURN 
ING PRINTER ON 

PRINT D@;"PR#1" 

PRINT CHR® (9)3"40N" 

PRINT CHR® (2)3 CHR® (30) 

GOSUB 2850: REM PAGE HEADING 

POKE 36,0: PRINT "## INCOME ##": PRINT " 
CT ae 

TC = O:TY = O1TA = Os REM INIT GROSS INCOME LINES 
FOR A = 30 TO 49: GOSUB 96001 NEXT A 

IC = TCslIY = TYsIA = TAs REM SAVE GROSS TOTALS 

TD = O: IF IA < > O THEN TD = INT ((IC - IA) / IAB 
100) 

PRINT "*8GROSS"; 

HTAB 10: FOR X = 11 TO 39% 


eo) 


"sPGCT = PG 


PRINT “="33s NEXT Xs PRINT 
PK = O:VS 
GCT + 2 
IF PRTYPE = 1 AND PGCT > 16 THEN GOSUB 2800: 
2850 

PRINT " "3 
Th ons 
TA = O:TC = O:TY = O 

FOR A = 1 TO 24: GOSUB 9600: 
EC = TCsEY = TY:EA = TA: 
TD = O: IF EA ¢ 
100) 
PRINT “*TOTAL"; 
HTAB 10: FOR X = 


= "INCOMES"; GOSUB 80: GOSUB 9665:1PGCT = P 


GOSUB 


PRINT "## EXPENSES ##": PRINT :PGCT = PGC 


NEXT A 
REM SAVE TOTAL EXPENSES 
> O THEN TD = INT ((EC - EA) / EA 8 


11 TO 39: PRINT “="3: NEXT Xs PRINT 


PK = O:V$ = "EXPENSES": 
PGCT + 2 

IF PRTYPE = 
2850 


GOSUB 80: GOSUB 9665:PGCT = 


1 AND PGCT > 18 THEN GOSUB 2800; GOSUB 
IC = ECs Te 
TA - EA:TA 
LY e2byr ry 
O: IF TA < 

INT (TD + 
PRINT " “3 
HTAB 10: 


INT (TC ® 100 + 
INT (TA ® 100 + 
INT (TY ® 100 + 

> O THEN TD = 

-5) 

PRINT "“SNET"; 


FOR X = 11 TO 39: 


-5) / 100 
-5S) / 100 
-5) / 100 
«(TC - TA) / TA) ® 100 


= 
ae 
nunud 


PRINT "@"3: NEXT X: PRINT 


PK = O:V® = "INCOMES": GOSUB 80: 
HTAB 10: FOR X = 11 TO 39: PRINT 


GOSUB 9665 


“S"53 NEXT Xt PRINT 


IF PRTYPE = 2 THEN GOTO 9590 

VTAB 24: INVERSE : PRINT "ANY KEY FOR MENU, 
R 1ST PAGE";: GET X$: NORMAL 

IF ASC (X$) = 27 THEN GOTO 9442 

TEXT : GOTO 1000: REM MAIN MENU 

PRINT CHRS (9)3"40N" 

PRINT D$;"PR#O" 

TEXT : GOTO 1000 

REM PRINT DETAIL LINES 

IF ACCTS(A) = "* AND YTD(A) = 0 THEN RETURN 
PK = 1:V6 = STR® (A): GOSUB 80 
PK = 4:V6 = LEFTS$ (ACCTS(A),4): GOSUB 80 
P = BAL(A,CMO): GOSUB 2400:PK = 14 - C:V$ = 
L(A,CMO)): GOSUB 80 
TC = TC + BAL(A,CMO) 
P = AVG(A)s GOSUB 2400:PK = 22 - C:V% = 
)s GOSUB 80 
TA = TA + AVG(A) 
P = PRCT(A): GOSUB 2400:PK = 29 - CiV8 = 
A))s GOSUB 80 . 
P = YTD(A): GOSUB 2400:PK = 35 - CiV$ = 
): GOSUB 85 
TY = TY + YTD(A) 
PGCT = PGCT + 1: 
2800: GOSUB 2850 
RETURN 

REM &PRINT TOTAL LINES 
P = TC: GOSUB 2400:PK = 14 


"ESC’” FO 


STR® (BA 


STRS® (AVG(A) 


STR® (PRCT ( 


STR® (YTD(A) 


IF PRTYPE = 1 AND PGCT > 20 THEN GOSUB 


C:V@ = STR® (TC): GOSUB 


GOSUB 2400:PK = 22 - C:V® = STR® (TA): GOSUB 


GOSUB 2400:PK = 29 C:V® = STRS® (TD): GOSUB 


GOSUB 2400;PK = 35 - CivV® = STR® (TY): GOSUB 
RETURN 

REM && LIST INCOME RECORDS 
SW = 1: GOTO 7010: REM GET INCOME RCDS 
IF PRTYPE = 1 THEN HOME : GOTO 9860: 
ING ON PRINTER 

PRINT D®;"PR#1" 

PRINT CHR® (9)3"40N" 

IF PBS = "1" THEN PRINT 
IF PB® = "2" THEN PRINT 
IF PBS = "3" THEN PRINT 
A= O0:TA = 0 

IF PRTYPE = 1 THEN HOME 1 
ING ON PRINTER 


PRINT D®;"PR#1" 


REM SKIP TURN 


CHR® (2); CHRS (30) 
CHRS® (27); CHR® (19) 
CHRS (30) 


GOTO 9875: REM SKIP TURN 


continued on page 187 
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TIPS ’N TECHNIQUES 





MAMA 
(Move Aside Mr. Ampersand) 


by Sandy Mossberg, M.D. 
50 Talcott Rd 
Port Chester, NY 10573 


My old friend, the ampersand, is not the 
simple, fun-loving character he used to be. 
Fame and fortune have jaded him. In order to 
attract his attention, even | must refer to him 
as Mr. &. This situation has become intoler- 
able. Keen competition is a sure remedy fora 
swelled head. CONTROL-Y is a bit player. 
CALL WITH PARAMETERS shows promise 
but requires maturation. MAMA (Move Aside 
Mr. Ampersand), alovely lady to whom | shall 
introduce you, may just have the panache to 
set Mr. & straight. If she succeeds, we can all 
heave a sigh of relief. Who knows, a romance 
might even be in the offing. Only time will tell. 
Read on and decide for yourself. 


APPLESOFT CHRGET AND CHRGOT 

The subroutines most fundamental to Apple- 
soft are CHRGET and CHRGOT, which may 
be accessed by entering the system monitor 
(CALL -151), typing B1L and examining the 
code from $B1 to $C8. Reference to LISTING 1 
should make the following description more 
easy to comprehend. 

Whenever Applesoft wishes to fetch a char- 
acter, it either points the TEXT POINTER 
(TXTPTR) to one location below the desired 
character and calls CHRGET, or it sets 
TXTPTR to the address of the desired charac- 
ter and calls CHRGOT. The only difference 
between the two subroutines is that CHRGET 
increments TXTPTR before obtaining the 
character (LINES 80-100), whereas CHRGOT 
does not. What, actually, is the TEXT 
POINTER? It represents a two byte address, 
$B8 (LSB) and $B9 (MSB), which is an inte- 
gral part of CHRGET/CHRGOT and func- 
tions as the operand of the critical instruction 
that loads the target character into the accum- 
ulator where it can be processed. LINE 120 
illustrates this point and should be read as 
“load accumulator with TEXT POINTER”. 
The operand used in this example is $205, a 
location within the INPUT BUFFER; it could 
as easily have been $805, the first character of 
the first line of atypical Applesoft program, or 
any other meaningful address. 

If the target character is a colon (end-of- 
statement marker), the ZERO and CARRY 
bits (flags) of the PROCESSOR STATUS 
REGISTER ($48) are set (LINE 140), anda 
return to the calling routine is executed (LINE 
150). Spaces are ignored (LINES 160-170). 
LINES 180-210 clear the carry flag if the 
accumulator contains a digit ($30-$39), set 
the carry flag if anon-digit is present and set 
the zero flag if a hex zero (end-of-line marker) 
is encountered. LINE 220 returns control to 
the calling routine. 

Before proceeding, please study CHRGET/ 
CHRGOT well. The effort will stand you in 
good stead. | continue to be delighted by the 
simple elegance of the code. 


ENTER MAMA 


The power of the ampersand results from 
its ability to cause an immediate jump to 
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$3F5, at which location we may place a jump 
to a machine language routine of our choice. 
If we strategically side-tracked CHRGET/ 
CHRGOT, a similar situation could be ef- 
fected. Enter MAMA (LISTING 2)! LINES 1160- 
1220 place “JMP MAMA” into CHRGET/ 
CHRGOT at locations $BA-$BC. MAMA is 
now able to screen each character and token 
picked up by CHRGET/CHRGOT and, if ap- 
propriate, to call amachine language routine. 
Does that sound familiar, Mr. Ampersand? 

Let us examine the workings of the sample 
MAMA program presented. The COMMAND 
MENU (LINES 1270-1400) searches for four 
characters: (1) the GOSUB token, (2) CON- 
TROL-L, (3) CONTROL-2Z, and (4) the PER- 
CENT sign. If none of these symbols is found, 
the portions of CHRGET/CHRGOT which 
were obliterated (LINES 140-150 of LISTING 
1) are duplicated in MAMA (LINES 1370- 
1380). Thus, if the accumulator holds a colon, 
the ZERO and CARRY flags are set and con- 
trol returns to the calling routine (LINE 1400). 
Otherwise, CHRGET/CHRGOT is re-entered 
at $BE (LINE 1390) and flow continues as if 
nothing had ever happened. 

If one of the above-noted characters is 
detected, a MAMA routine is called (LINES 
1440-1600) via a branch or jump instruction, 
depending upon the location of the routine. 
Although branches could have been used ex- 
clusively in this MAMA program, jumps are 
illustrated in LINES 1320-1330 and LINES 
1350-1360. GOSUB (LINES 1440-1450) in- 
crements GHOLD (a work location) whenever 
a GOSUB token is found, LBRACK (LINES 
1470-1490) prints the left bracket which is 
normally inaccessible from the keyboard, GO- 
HOME (LINES 1510-1520) homes the cursor 
and clears the screen, and PRINT (LINES 
1540-1600) outputs the message, “WATCH 
FOR DDT!”. Regardless of complexity, the 
same tripartite construction (LINES 1140, 
1250, 1420) should be employed when writing 
a MAMA program. 

USING MAMA 

To install MAMA, assemble the code in 
FIGURE 2 or enter it directly, BSAVE MAMA, 
A$300,L$5B and BRUN MAMA. If all is well, 
you should now find “JUMP $30D” at $BA- 
$BC. 

In immediate (command) mode, type 
CONTROL-Z RETURN and observe that a 
HOME command has been executed. 
CONTROL-L will produce a left bracket on 
the line following the Applesoft prompt char- 
acter, and the PERCENT sign will print the 
“DDT” message. 

In deferred (program) mode, we have the 
ability to utilize the above three commands 
and to count GOSUB tokens. LISTING 3 
presents a short program to accomplish the 
latter feat. LINE 10 pokes a zero into the loca- 
tion that holds the GOSUB count and LINE 40 
retrieves this count, prints a message and 
ends the program. For each pass through the 
FOR-NEXT loop (LINE 30), adummy GOSUB 
is executed twice. Thus, the GOSUB count 
should always equal twice the value of N, 
which is input in LINE 20. A sample run is 
printed beneath the program. If you would 
like to count other tokens or characters, 
simply POKE the desired ASCII value into 
location $30E (782) and replace “GOSUB” 


(LINE 40) with the name of the new character. 

LISTING 4 shows how MAMA commands 
may be imbedded in an Applesoft program. 
CONTROL-Z and CONTROL-L follow the 
REM statements in LINES 10 and 40 respec- 
tively. Both are invisible ina normal listing. 
The visible percent sign command Is seen In 
LINE 20. The program homes the cursor and 
clears the screen (LINE 10), prints “WATCH 
FOR DDT!” (LINE 20), prints ° - ON THE 
APPLE ]” (LINE 30) and adds the left bracket 
to the message (LINE 40). In LINE 30 do not 
forget to suppress a linefeed by using the 
semi-colon. Again, asamplerunis appended. 
LISTING 5 gives the same result as LISTING 
4. Here, PRINT statements precede the 
imbedded commands and only one line is 
necessary. 

Many other variations will produce the 
same result. In particular, note what happens 
when a MAMA command is enclosed in 
quotes. Be aware that coldstarting Applesoft 
(FP from basic, CONTROL-B or E000G from 
monitor) will cause CHRGET/CHRGOT to be 
rewritten. Do not despair, however since 
CALL 768 will reset the MAMA jump vector. 
Note, too, that a soft entry into Applesoft 
(E003G from monitor) and the MAXFILES 
command will leave MAMA unscathed. Exper- 
iment freely, construct your own MAMA pro- 
grams and be sure to let us all know about 
your methods of improving and refining these 
concepts. 

Finally, natural curiosity should stimulate 
you to wonder what DDT is and where it may 
be found. The only clues! will give are: (1) itis 
not a pesticide and (2) keep reading NIBBLE 
every issue. 
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Apple Flash 


by Todd Livesey 
1112 S. Cuyler 
Oak Park, IL 60304 


Here's a high resolution graphics subrou- 
tine which can be used to create some inter- 
esting color effects. The program actually 
has three sections which will change the 
color of each dot on the screen to one of the 
other three colors. To understand how the 
program works | refer the reader to pp. 19-20 
of the Apple Reference Manual in order to 
understand how the Hi-Res screens are dis- 
played. 

The three routines are at 768 ($300), 771 
($303), and 774 ($306). CALLing one of these 
routines will result as follows: 


CALL 768 All violet dots will turn blue, and all 
green dots will turn red, and vice versa. 


CALL 771 All violet dots will turn red, and all 
green dots will turn blue, all white dots will 
turn black, and vice versa. 


CALL 774 All violet dots will turn green, all 
blue dots will turn red, all white dots will turn 
black, and vice versa. 



































ISTING 1 c ight© i 
a Opyright 1982 by Micro SPARC Inc. 031C- CO 25 1340 .1 CMP #'3 3% 
031E- DO 03 =: 11350 BNE .2 
fi 0320- 4C 3D 03 1360 UMP PRINT 
0010 0323- C9 3A-—ss«1370 .2 CMP #': ;NONE OF ABOVE COMMANDS, 
0020 * CHRGET AND CHRGOT ROUTINES 0325—- BO 03. =: 11380 BCS .3 ; SO PROCESS COLON AND 
0030 0327- 4C BE 00 1390 JMP FRMAMA ; RETURN TO CHRGET/CHRGOT 
ects eOR $B ;ORIGIN 032A- 60 1400 .3 RTS ; OR TO CALLING ROUTINE 
DOB8— 0060 TXTPTR .—Q SB8 ;TEXT POINTER ee , 
et cae ee 
- & 0080 CHRGET INC TXTPTR  ;BUMP ADDRESS OF 032B- EE CF 03 1440 GOSUB ; GOSUB COUNT 
0B3- DO 02 0090 BNE CHRGOT ; TEXT POINTER 032E- 60 1450 a eH ae ROUTI 
OBS- B6 BO 0100 INC TXTPTR+] 1460 ip Spee te il POOR AS 
: 0110 * 032F- A9 5B 1470 LBRACK ; BRACK 
0087 AD 05 02 0120 CHRGOT LDA $0205 GET CHAR AT TEXT POINTER 0331- 20 5C DB 1480 cae ae eee 
; (OPERAND IS TEXT POINTER! 0334- 4C Bl 00 : 
DORA C9 3A 140 Bie pee ie tial (we) ee Ger tai ¢ egy 95 Seer ea ee 
- BCS .1 ; FLAGS AND RETURN 0337- 20 58 FC 1510 GH ; CURSOR SCREEN 
OOBE- C9 20 = 0160 CMP #820 ;IF SPACE THEN DISREGARD IT 033A- 4C Bl 00 1520 pr roi race pia TO pea he 
: i = EF o170 BEQ CHRGET ; AND GET NEXT CHAR 1530 * : 
| 0 SEC ;THESE 4 LINES LEAVE [A] INTACT, 033D- A2 00 1540 PRINT ; CHARACTER 
00C3- E930 0190 SBC #$30 ; CLEAR C FLAG IF DIGIT, 033F- BD 4D 03 1550 .1 A cn ;GET fete 
O0C5- 38 0200 SEC ; SET C FLAG IF NONDIGIT, 0342- 20 5C DB 1560 JSR OUTDO ;PRINT IT 
O0C6- F9 DO 0210 SBC #$D0 ; SET C AND Z FLAGS IF $00 (BOL) 0345- 58 1570 INK ;BUMP INDEX 
OO0C8- 60 0220 .1 RTS ;RETURN TO CALLING ROUTINE 0346- ED OE ~=—-:1580 CPX #.3-.2 ;DONE? 
i 0348- 90 F5  ~—-:1590 BCCesT ;NO. GET MORE 
NG 2 034A- 4C Bl 00 1600 UMP CHRGET ;BACK TO CHRGET 
:ASM 034D- D7 Cl D4 
0350- C3 C8 AD 
1000 * 0353- C6 CF D2 
1010 * MOVE ASIDE MR. AMPERSAND (MAMA) 0356- AD C4 C4 
020°" 0359- D4 Al ~—:1610 .2 «AS -/WAICH FOR DDT! / 
1030 1620 .3 EN 
oo -OR $300 ? PROGRAM ORIGIN ] LISTING 3 
O0BA- 1070 TOMAMA .EQ SBA ;CHRGET/CHRGOT —> MAMA 20 INPUT "N’= "=N 
00BE- 1080 FRMAMA .—Q SBE ;MAMA —> CHRGET/CHRGOT 30 FOR I = 1 TO N: GOSUB 50: GOSUB 50: NEXT I 
03CF- 1090 GHOLD .mD $3@ ;HOLD GOSUB COUNT 40 PRINT "GOSUB EXECUTED " PEEK (975)" TIMES": END 
DB5C- 1100 OUTDO .HQ SDBSC ;OUTPUT CHARACTER 50 RETURN i 
FC58- 1110 HOME .BQ SFC58 ;HOME CURSOR, CLEAR SCREEN 
1120 ] RUN 
1130 * N=11 
oe * SET MAMA JUMP VECTOR GOSUB EXECUTED 22 TIMES 
0 *. 
0300— AS 4C 1160 LDA #S4C ;PUT 'JMP MAMA' INTO ]LISTING 4 
0302- 85 BA 1170 STA TOMAMA ; CHRGET/CHRGOT ROUTINES 
0304— A9 OD ~=_:« 1180 LDA #MAMA-—; AT SBA-SBC 10 REM 
0306- 85 BB 1190 STA TOMAMA+] 20 REM 3 
0308— A9 03 1200 LDA /MAMA 30 PRINT " — ON THE APPLE ]"; 
030A- 85 BC 1210 STA TOMAMA+2 40 REM 
030C- 60 1220 RTs 
ae ed 
1250 * COMMAND MENU FOR DDT! - ON THE APPLE ][ 
1260 * 
030D- C9 BO 1270 MAMA CMP #SB0 ;GOSUB TOKEN sie ahi 
030F- FO 1A ~=:11280 BEQ GOSUB : BP ae nee 
ae. ee pre seks. 10 PRINT : PRINT %;: PRINT ON THE APPLE ]";: PRINT 
0313- FO 1A = 1300 BEQ LBRACK 
0315- C9 1A_—:1310 CMP #S1A ;CTL-Z ] RUN 
0317- D0 03. =: 1320 BNE .1 @ 
0319- 4C 37 03 1330 JMP GOHOME WATCH FOR DDT! - ON THE APPLE }[ 


CALL 768 “flips” (changes) the color bit of 
each byte in the screen buffer. CALL 771 does 
an “Exclusive-Or” (EOR) with a mask of 255 
oneach byte in the screen buffer. This causes 
all the bits in each byte to flip. CALL 774 first 
EORs each byte then flips the color bit. Thus 
the color bit is flipped twice, bringing it back 
to its original setting. 

One nice feature of the program is that it 
works completely independently of any other 
Hi-Res. routines. It will work with any Hi-Res 
routines you might be using (RAM or ROM 
based, etc.). Another plus is that it is non- 
destructive to your Hi-Res picture. Executing 
any of the routines twice will restore the orig- 
inal picture. The program can be used to pro- 
duce explosions, colorful displays and effects, 
or whatever. Lastly, the program will work on 
either Hi-Res page. A POKE 782,64 will cause 
it to work on page two, while a POKE 782,32 
will return it to page one. 


ENTERING THE PROGRAM 

To enter Apple Flash into your Apple, you 
can type the Hex code directiy into memory 
beginning at Hex $300. 

First, type CALL -151 to invoke the Moni- 
tor. Then type 300:4C 38 03 4C 40 03 4C 4D 


etc. from the listing. Begin entering the code 
into memory. For more information on how to 
enter hex code into your Apple, see pages 
43-44 of your Apple Reference Manual. 

When the program is entered, you can save 
it to disk with the statement: 


BSAVE APPLE FLASH, A$300,L$71 
ED. Try the following program: 


10 PRINT CHR$(4);“BLOAD APPLE FLASH” 
: HGR 


2ASH 


1000 8 APPLE FLASH 

1010 & BY TODD LIVESEY 
1020 8 COPYRIGHT (C) 19762 
1030 # BY MICRO-SPARC, INC 
1040 & LINCOLN, MA. 01773 


1050 -OR 8300 
0300- 4C 38 O3 1060 JMP $0338 
O303- 4C 40 O3 1065 JMP 80340 
0306- 4C 4D 03 1070 JMP 8034D 
0309- 20 4A FF 1075 JSR SFF4A SAVE REG 
O30C- AF 20 1080 LDA #820 RESET PTRS 
O30E- BD 71 O3 1085 STA 80371 
O311- 8D 22 O03 10970 STA 80322 
0314- AO 00 1095 LDY #s00 
03146- CB 1100 INY 
0317- CO 21 1105 cCPY #921 FINISHED? 
o319- FO 1C 1110 BEQ $0337 YeES.. END 
O31B- AZ OO 1115 LDX #800 BEGIN LOOP 
O31D-— 20 5S O03 1120 JSR $0355 GOSUB RTNE 


STA $2000,X 
INX 
CPX #800 


0320- 9D 00 20 
O323- EB 
0324- EO 00 


20 FORI=1TO 400: HCOLOR = RND(I) * 6+ 
1: X = RND(l) * 280: Y = RND(I)* 160: 
HPLOT X,Y : NEXT 


30 CALL 768 : GOTO 30 


Also try substituting the CALL 768 in line 30 
with CALL 771 or CALL 774. 


0326- FO O3 BE@ $032B 


o326- 4C 1D O03 1145 JMP s031D 

O32B- EE 71 O3 1150 INC 80371 

O32E- EE 22 O3 1155 INC $0322 

O331- 4C 16 O3 1160 IMP 80316 

O334— 20 SF FF 1165 JSR SFFSF RESTORE REG 
O337- 60 1170 RTS END 

O338- AI 55 1175 LDA #655 SET 1ST PTR 
OS3A- BD 1E OF 1176 STA SOS1E 

O33D- 4C OF O3 1180 JMP 80309 

0340- AY 60 1185 LDA #840 SET 2ND PTR 
0342- 8D 6D O03 1190 STA 80346D 

O345- AP 62 1195 LDA #842 SET PTRS 2& 3 
0347- 8D 1E O03 1200 STA SOSIE 

O34A- 4C OF O3 1205 IMP $0309 

O34D- AY 20 1210 LDA #820 SET 3RD PTR 
O34F- BD 46D O3 1215 STA $036D 

0352- 4C 45 O03 1220 JMP 80345 

O355- AD 71 O3 1225 LDA $0371 BEGIN 1ST RTNE 
0358- 8D SD O3 1230 STA $035D 

O35B- BD 0O 20 1235 LDA $2000, x 

O3SE- 18 1240 cLC 

O3SF- 69 80 1242 ADC #380 ADD 880 

O0361- 40 1245 RTS 

0362- AD 71 O3 1250 LDA $0371 BEGIN RTNES 283 
0365- 8D 6A O03 1255 STA 8O346A 

0368- BD 00 20 1256 LDA 82000, X 


49 FF 
O36D- 60 
O36E- SE 03 60 


FLIP ALL BITS 


RTNES 2&3 


@ 


NIBBLE EXPRESS/VOL. III/1983 29 


AMPER FREE SPACE CATALOG 





Amper Free Space Catalog 


by Ben E. Colley 
Rt. #1 Box 67B 
Hallsville, MO 65255 


Do you ever get tired of keying CATALOG? 
Perhaps you are like | am and get tired of mis- 
keying CATALOG, all the while wishing you 
could save some keystrokes and get the same 
result. | also think it would be nice to know 
how much space is left on the diskette when- 
ever you catalog it. The solution to these two 
little inconveniences is called Free Space 
Catalog, another program in the seemingly 
endless march of Applesoft ampersand utili- 
ties. Free Space Catalog (called FSC hereaf- 
ter) allows you to obtain a disk catalog and 
free space information by simply keying 
&<RETURN>. 

| really decided to write FSC for two rea- 
sons; 1) the little inconveniences cited above, 
and 2) (the main reason) because | was itching 
for an excuse to try my hand at the RWTS 
routine and some of the nifty subroutines 
somewhat hidden in Applesoft. 


HOW IT WORKS 

Very briefly, here is how FSC works. The 
program is loaded into page 3 of the Apple’s 
memory, and does nothing except initialize 
the ampersand vector at $3F5 when you 
BRUN it. When you call FSC by keying an 
ampersand in immediate mode, Applesoft 
passes control to FSC. 

The routine executed by FSC is very straight 
forward. It saves the registers, and imme- 
diately does a subroutine call to the DOS 
CATALOG routine at location $A56E (48K). 
Upon return, it requests the address of DOS'’s 
1OB (JSR $3E3, line 70), reads track 17, sector 
0 of the VTOC into the keyboard buffer 
($200), and calculates the number of sectors 
available. Then FSC simply calls several Apple- 
soft and Monitor internal routines (CRDO, 
PRBLNK, LINPRT, STROUT, and DATA) to 
print the number of free sectors, restores the 
registers, and returns. 

You can find the particulars of PRBLNK in 
the Apple Reference Manual; the rest (and a 
bunch more) are documented in the March/ 
April 1980 issue of Apple Orchard. (This issue 
is highly recommended if you are at all inter- 
ested in Applesoft internals.) 

A nifty little feature of FSC is the call to 
DATA (JSR DATA, line 128). This allows you 
to key in comments following the ampersand. 
For example: 


& GAMES DISKETTE, VOL #1 


Applesoft gives control to FSC when it encoun- 
ters the Ampersand; FSC performs your cata- 
log, prints the free space available, and politely 
ignores any commentary you may have keyed. 
This feature is very handy when using FSC to 
print catalogs on a printer — any added 
comments will be printed, but will not causea 
SYNTAX ERROR. 


HOW TO ENTER FSC 

As with most Assembly Language pro- 
grams, what you need to know to enter the 
program is the starting memory location and 
the hexadecimal codes to enter into your 
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2eusuuseeuuueuesexsenataneeeese 
beta 38 ‘AMPER FREE SPACE CATALOG ‘ 
4% 
nein: 5% BY BEN E. COLLEY 8 
0000: oe COPYRIGHT (C) 1982 * 
00001 7% BY MICRO-SPARC INC % 
00003 gr LINCOLN, MA. 01773 x 
00001 9 & THIS PROGRAM CALLS THE DOS CATALOG ROUTINE *& 
0000: 10 * AND UPON RETURN READS THE VTOC TO DETER-_ %& 
00001 11 * MINE THE NUMBER OF FREE SECTORS REMAINING & 
00001 12 *% ON THE DISKETTE. YOU MAY PLACE ANYTHING % 
00001 13 % AFTER THE AMPERSAND, THE PROGRAM IGNORES &% 
0000: 14% IT. (HANDY FOR TITLING PRINTER LISTINGS) % 
0000: 15% % 
0000: iwienanneeeeeuegpueenxg eae ue Re ae EE 
00001 18 * DEFINE ADDRESS CONSTANTS 
O3F5s 20 AMPERV EQU $3F5 AMPERSAND JUMP ADDR 
DAFB: 21 CRDO EQU $DAFB APPLESOFT CARRIAGE RETURN 
D995: 22 DATA EQU $D995 APPLESOFT TEXT POINTER MOVE 
AS6E: 23 DOSCAT EQU $AS6E DOS CATALOG ROUTINE 
O3E3: 24 DOSIOB EQU $3E3 REQUEST DOS IOB ADDRESS 
OOF9: 25 IOBADR EQU $F9 IOB INDIRECT ADDR 
ED24: 26 LINPRT EQU %ED24 APPLESOFT INTEGER OUTPUT 
F948: 27 PRBLNK EQU $F948 MONITOR PRINT 3 BLANKS 
O3D9: 28 RWTS EQU $3D9 DOS RWTS ROUTINE 
DBA: 29 STROUT EQU $DB3A APPLESOFT STRING PRINT 
0000: 31 * DEFINE OTHER CONSTANTS 
00C4: 33 VTOCND EQU $C4 1ST BYTE AFTER BIT MAPS 
0000: 35 * DEFINE IOB OFFSETS 
0003: 37 IBVOL EQU $03 
0004: 38 IBTRK EQU $04 
0005: 39 IBSECT EQU $05 
OOoOD: 40 IBSTAT EQU $0D DOS RETURN CODE 
0008: 41 IBBUFP EQU $08 
O00C: 42 IBCMD EQU $0C 
0000: 43 * 
0000: 44 % DEFINE IOB VALUES 
00001 45 % 
0000: 46 VOLID EQU $00 O=> IGNORE VOL ID 
OO11: 47 TRACK QU $11 
0000: 48 SECTOR EQU $00 
0200: 49 BUFADR EQU $200 USE KEYBOARD BUF !! 
0001: 50 DOSRD EQU $01 
----- NEXT OBJECT FILE NAME IS AMPER FREE SPACE CATALOG. OBJO 
0300: 52 ORG $300 
03001 54 FSCI EQU & SERINITIALIZATIONSES 
03001A9 OB 55 LDA #>FSC SET AMPERSAND VECTOR 
0302:8D F&4 OS 56 STA AMPERV+1 
O305:A9 O03 57 LDA #<FSC 
0307:8D F7 03 «658 STA AMPERV+2 
O30A1 60 59 RTS 
O3OB: 60 8 
O3OBs 61 * CALL DOS CATALOG, THEN CALC FREE SPACE 
O3OB: 62 8 
O3OBs 63 FSC EQU & 
0308148 64 PHA 
030C:98 65 TYA SAVE REGS 
030D:48 46 PHA 
O30E: BA 67 TXA 
O30F 148 48 PHA 
0310:20 6E AS 49 JSR DOSCAT 
0313120 E3 O03 =70 JSR DOSIOB UPON RETURN 
0316184 F9 71 STY IOBADR Y-REG HAS LOW BYTE AND 
0316:85 FA 72 STA IOBADR+1 A-REG HAS HIGH BYTE OF IOB 
O31A:A0 O03 73 LDY #IBVOL TELL DOS TO IGNORE 
031C1A9 00 74 LDA #VOLID THE VOLUME ID 
O31E:91 F9 75 STA (IOBADR),Y 
03201A0 04 76 LDY #IBTRK SET TRACK TO VTOC (#11) 
0322:A9 11 77 LDA #TRACK 
0324191 F9 78 STA (IOBADR),Y 
0326:A0 05 79 LDY #IBSECT DITTO SECTOR 
0328:A9 00 80 LDA #SECTOR 
032A191 F9 81 STA (IOBADR),Y 
032C:A0 08 82 LDY #IBBUFP SET BUFFER TO READ 
032E1A9 00 83 LDA #>BUFADR THE DATA INTO 
0330191 F9 84 STA (IOBADR),Y 
0332:C8 85 INY 
O3331A9 02 86 LDA #<BUFADR 
0335:91 F9 87 STA (IOBADR),Y 
0337:A0 OC a8 LDY #IBCMD SET DOS COMMAND 
03391A9 O1 89 LDA #DOSRD TO READ THE SECTOR 
0338191 F9 90 STA (IOBADR),Y 
O33D:A4 F9 91 LDY IOBADR 


O33F: AS 
0341:20 
0344:A0 
0346:Bi1 
0348: FO 
034A: DO 
O34C:3A9 
O34E: 8D 
0351:8D 
0354: AO 
0356: B9 
0359: A2 
O3S5B:0A 
O35C:90 
O3S5E:EE 
03613:DO0 
03633 EE 
0366:CA 
0367310 
0369:CB 
036A:CO 
036C:90 
O36E:r 

O36E:s 

O36E: 

O36E: 20 
0371:20 
0374: AD 
03773 AE 
O37A:20 
037D:A9 
O37F:AO 
0381:20 
0384: 20 
0387: 20 
038A: 68 
O38B: AA 
038C: 68 
O38D: AB 
O38E: 68 
O38F: 460 
0390300 
0392: 

0392320 
0395:45 
0398353 
039B:54 
O39E:53 
O39F :00_ 
O3AO: 

OSAO0: 

OSAO: 

O3AO: 

O3A0: AP 
O3A2: AO 
O3A4: 20 
O3A7: 60 
O3A8: 20 
O3AB: 52 
OSAE: 20 
O3B1:41 
O3B4: 4E 
03B7:56 
O3BA: 43 
O3BB: 00 


&*% SUCCESSFUL 


O3 


leks 
O3 


02 


Os 


os 


149 


LDA IOBADR+1 INIT REGS FOR RWTS 
JSR RWTS GO READ THE VTOC 
LDY #IBSTAT CHECK DOS RETURN CODE 
LDA (IOBADR),Y 
BEQ FSC10 
BNE DOSERR GO PRINT ERROR MSG 
FSC10 LDA #0 CLEAR FREE SECTOR COUNT 
STA FRESEC 
STA FRESEC+1 
LDY #$38 INFO BEGINS HERE 
FSc20 LDA BUFADR,Y GET NEXT BYTE INTO A-REG 
LDX #7 INIT BIT COUNT REG 
FSC3O ASL A SHIFT BIT INTO CARRY 
BCC FSC40 CARRY CLEAR, SECT USED 
INC FRESEC+1 COUNT=COUNT+1 
BNE FSC40 NO NEED TO INCR HI-BYTE 
INC FRESEC HAPPENS EVERY 256 FREE SECTORS 
FSC40 DEX BIT COUNT - 1 
BPL FSC3O GO AGAIN 
INY CHECK NEXT BYTE IN VTOC 
CPY #VTOCND SCANNED ALL OF VTOC? 
BLT FSC20 
bs 
* FREE SPACE CALC DONE, PRINT RESULTS 
% 
JSR CRDO DO CARRIAGE RETURN 
JSR PRBLNK GO PRINT 3 BLANKS 
LDA FRESEC 
LDX FRESEC+1 
JSR LINPRT GO PRINT FREE SECTOR COUNT 
LDA #>MSG POINT TO STRING 
LDY #<MSG 
JSR STROUT GO PRINT MSG 
JSR CRDO GO DO CARRIAGE RETURN 
JSR DATA TELL APPLESOFT TO MOVE TXTPTR 
PLA RESTORE REGS 
TAX 
PLA 
TAY 
PLA 
RTS ALL DONE! 
FRESEC DFB 0,0 COUNT CARRIED HI-BYTE FIRST 
MSB OFF 
MSG Asc’ FREE SECTORS’ 
DFB O 


DOSERR EQU & 
* 


% ROUTINE PRINT ERROR MESSAGE 

x 
LDA #>ERRMSG GO PRINT ERROR MSG 
LDY #<ERRMSG 
JSR STROUT 


RTS AND GO BACK 
ERRMSG ASC ERROR READING VTOC’ 
DFB O 


ASSEMBLY: NO ERRORS 


@ 


Amper Free Space Catalog 
(Cont.) 7 


Apple. This code begins at Hex memory loca- 
tion $300. 

From the listing, you can see that the first 
codes entered into $300 are: 


300:A9 0B 8D F6 03 A9 03 8D F7 03 etc. 


By continuing through the listing and enter- 
ing the Hex codes, you can enter the program 
into your system. Then, when it is entered, 
you can save it to disk with the command: 


BSAVE FSC, A$300,L$BC 
SYSTEM REQUIREMENTS 

FSC runsinimmediate mode on 48K Apples 
with DOS 3.2 or 3.3 and Appiesoft in ROM or 
in the language system. (Maybe some of you 
“wizards” can give me aclue about why it will 
not run consistently within a program?? It 
results in a PROGRAM TOO LARGE DOS 
message unless there is at least one preced- 
ing DOS command.) | think after you use 
FSC, the convenience will spoil you as it has 
me! 


1 OS 3.2 SYSTEM MASTER 


DISK VOLUME 254 


xI 002 HELLO 

¥I OSS APPLE~TREK 
XI O18 ANIMALS 

xB OO9 UFDATE 3.2 
*I O14 COPY 

XI 009 COLOR DEMO 
KI OS3 BRICK OUT 

XI O26 SFACE WAR 

¥I O50 THE INFINITE NO. OF MONKEYS 
¥I O51 COLOR SKETCH 
x1 OSS SUPERMATH 

KI O26 APFLEVISTION 
*I O17 BIORHYTHM 

¥I O27 PINBALL 


3 FREE SECTORS 
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APPLE M.L.E. 
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Apple M.L.E. 
(Machine Language 
Editor) 


by Doug Sprinkle 
4269 Bristol 
Troy, MI 48098 


Many publications, including this maga- 
zine, publish assembly language programs 
for use by their readers. In many cases the 
entire assembly program is published, but in 
other cases only ahexadecimal memory dump 
is provided. The entry of these programs into 
the reader's own computer, however, is some- 
times a major undertaking. Often the user 
does not own an Assembler which allows him 
or her to enter the program in assembly lan- 
guage, compile it, and then run the program. 
Although the hexadecimal memory dump 
(also printed in an assembly listing) can be 
directly entered from the Apple II monitor, 
this process is both tedious and prone to 
error. Usually an omitted byte or line requires 
retyping a good portion of the program. 

Apple MLE (Machine Language Editor) 
eliminates these problems by providing a 
machine (not assembly) language editor 
which facilitates the entry and editing of 
machine language programs. A machine lan- 
guage program differs from an assembly lan- 
guage program in that machine language con- 
sists entirely of hexadecimal bytes, while an 
assembly language program is written with 
mnemonics (such as LDA, AND and the like), 
and is subsequently compiled or assembled 
into a machine language program. 

MLE is initially called by an Applesoft pro- 
gram, but the Applesoft program does nothing 
more than handle the disk functions as will be 
subsequently described. All data entry and 
editing of the machine code program is 
handled by MLE which is written in machine 
code. My apologies to Applesoft program- 
mers, but the necessary speed could not be 
obtained (at least by me) in Applesoft. MLE 
resides in just under 2.5K of memory, requires 
Applesoft and 48K of memory. 


HOW THE PROGRAM WORKS 

MLE is “run” by simply typing RUN 
MLE.DRIVER from Applesoft. MLE.DRIVER 
is an Applesoft program which automatically 
loads MLE into memory and then immediately 
calls MLE.B, i.e. the machine code portion of 
MLE. The user is presented with the following 
menu, each section of which is described 
below: 


START NEW FILE 
EDIT/LIST WORKFILE 
LOAD BINARY FILE ........ 3 
SAVE FILE TO DISC 
EXIT TO MONITOR 


START NEW FILE 

As its name implies, the first option enables 
the user to begin a new workfile. Selecting 
this option will destroy any workfile present, 
but a warning is first displayed which permits 
the selection to be aborted. Assuming that 
the selection is not aborted, the user is re- 
quired to enter both the starting address and 
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the number of columns of bytes desired. Any 
starting address is acceptable, even if it con- 
flicts with MLE, and up to eight columns of 
bytes will be displayed. The variable number 
of columns is designed to enter programs 
from hexadecimal “dumps” with different 
numbers of columns. You will usually choose 
eight. 

MLE displays the current address (starting 
with the beginning address selected by the 
user) at the beginning of each line and 
prompts you to enter the machine code for 
the program. MLE accepts only valid hex 
characters (0-F) and the left and right arrows 
are fully supported for any necessary minor 
corrections. Major corrections, however, 
should be left to the EDIT/LIST option since 
major corrections are, of course, its forte. 

The promptline at the bottom of the screen 
reminds the user that Control E will exit from 
this section of the program. The prompt also 
displays the length of the file, i.e. the number 
of bytes entered in hexadecimal. Control E 
should be remembered since it is used to exit 
from virtually all sections of the program. 


EDIT/LIST WORKFILE 

After the program has been entered, either 
from the keyboard as described above or 
from the disk as described below, the errors 
in the program may be corrected by selecting 
this option. Most of the code in MLE is de- 
voted to this section of the program. 

After selection of this option, up to the first 
fifteen lines of the binary file in columnar 
format are displayed and the cursor homes 
on the first byte in the file. The binary file 
length as well as the prompt line (X,D,I,<-,->. 
;,/,"E) are also displayed at the bottom of the 
screen. The prompt line identifies the avail- 
able commands. These commands can be 
generally divided into two types: Cursor Com- 
mands and Data Altering Commands. 


CURSOR COMMANDS (<- ->; /) 

All cursor commands are automatically 
constrained within the limits of the binary file 
plus one byte. The additional byte is allowed 
to permit appending data to the existing 
workfile. 

The left arrow (<-) moves the cursor one 
byte to the left. Similarly, the right arrow (->) 
moves the cursor one byte to the right. The 
semi-colon (;) moves the cursor up and the 
down arrow (/) moves the cursor down one 
full line. To accommodate long binary files, 
the cursor will scroll up OR down as required. 
Therefore, there is no need for a “return to 
beginning” command. You will also find that 
the scrolling is very fast. 

All cursor commands move the cursor to 
the first hex digit of the leftward, rightward, 
upward or downward byte depending upon 
the cursor command selected. 


DATA ALTERING COMMANDS (1,X,D) 

The Insert Command (Control Il) imme- 
diately creates a space at the current cursor 
position and shifts all following data right- 
ward. The left arrow is supported only after 
one character has been entered. After two 
hex characters have been entered, MLE shifts 
rightward to the next column, opens a new 


space and the above process is repeated. The 
letter |on the prompt line is set to the flashing 
mode to indicate that the insert mode is in 
effect. The Insert command is terminated by 
Control E, as always, and the space created 
by Insert is closed. 

The Delete Command (Control D) deletes 
the byte at the current cursor position and 
redisplays the binary file. Since the entire 
operation is performed once the Delete Com- 
mand is invoked, it is not necessary to termi- 
nate the command with Control E. 

The Xchange Command (Control X) allows 
data within the text file to be altered on a per 
byte basis. The right arrow is fully supported 
to copy over data and the “X” in the prompt 
line is set to the flashing mode to indicate that 
the Xchange command is in effect. Control E 
terminates the Xchange command. 

Both the Xchange Command and the Insert 
Command require that an entire byte, i.e. two 
hex digits, be exchanged or inserted (as the 
case may be) before the command can be 
terminated by Control E. Pressing Control E 
at the second byte will have no effect other 
than beeping the speaker to indicate that an 
illegal entry was attempted. 

Finally, Control E returns the user to the 
Main Menu. 


LOAD BINARY FILE 

The third option from the Main Menu allows 
the user to load a binary file from disk. After 
prompting to insert the correct disk, a disk 
catalog is displayed and the user is asked to 
enter the disk file name. Any errors return the 
user to the Main Menu. 

After the binary file is loaded, the user must 
enter the starting memory address and num- 
ber of display columns desired. It makes no 
difference what the actual starting address of 
the binary file is, since all binary files are 
loaded into memory beginning at $5000 (see 
THEORY OF OPERATION below). 

Please be certain that the actual name of 
the binary file is entered by the user as it 
appears on the disk catalog. This is some- 
what confusing when loading a previously 
saved binary program using Option 4 from 
the Main Menu (described below). 

For example, assuming that a binary file 
was saved under the filename TEST, MLE 
actually saves two files under the names 
TEST.IMD and TEST.ACT. When reloading 
this file under this option (Option 3), it is 
necessary to enter the filename TEST.IMD or 
TEST.ACT (it doesn’t matter which one) or 
else a disk error is indicated and MLE returns 
to the Main Menu. 

The length of the binary file under the 
LOAD FROM DISK option is determined auto- 
matically by loading the contents of $AA60 
and $AA61 (the Basic equivalent of PEEKing) 
and storing the loaded values in file length 
counter of MLE ($4374 and $4375). 


SAVE FILE TO DISK 

The fourth option from the Main Menu 
saves the current workfile to disk under the 
filename FILE or whatever other name is 
selected by the user. MLE actually saves two 
disk files under the names FILE.ACT and 
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FILE.IMD. MLE first saves the workfile in the 
disk file FILE.IMD with a starting address of 
$5000. MLE then reloads this binary file at the 
address selected by the user and then resaves 
the file under the filename FILE.ACT. 

This involved process is designed to enable 
binary files to be created by MLE even though 
such programs conflict with MLE, Applesoft 
or the Applesoft driving program. For ex- 
ample, if the binary program has a starting 
address between $800 and $5000, it will almost 
certainly “kill” the Applesoft driving program 
and/or MLE. However, even if this happens, 
the user will have a back-up program under 
the name FILE.IMD which can be loaded into 
the correct memory locations using the DOS 
A$ option. 

This section of MLE is the only portion with 
which | am not happy. | feel certain that a 
more elegant method exists for altering the 
starting address in the binary file as opposed 
to reloading and resaving the file. If the reader 
is inclined to program modifications, this is 
the place to do it. 


EXIT TO MONITOR 

The fifth and final option from the Main 
Menu is self-explanatory. It is designed to 
allow storage to cassette for diskless Apple 
users. It also enables the binary program 
entered by the user to be run directly from the 
monitor by using the monitor G command. 


THEORY OF OPERATION 

MLE.DRIVER, the Applesoft portion of 
MLE, immediately sets HIMEM to $3FFO to 
prevent collisions between Applesoft vari- 
ables and the machine code portion (MLE.B) 
of MLE. MLE.DRIVER then BLOADs MLE.B 
and CALLS MLE.B. Upon entry to MLE.B, the 
Main Menu is displayed. 

The following memory map of MLE may 
prove useful: 


MLE: DRIVER .2°00.4 «0.260 $801 - $3FFO 
LLU) at Note See rr ne $3FFO 
EGC Tes (CSR ea AiR ee: $3FF1 - $3FFF 
MLE.B (start) .............. $4000 
Workfile (start) ............. $5000 


As shown above, the machine code portion 
of MLE (MLE.B), which handles all operations 
except disk interfacing, occupies $4000 to 
about $4A00, and the workfile begins at $5000 
and grows upward. 

Since the Applesoft program MLE.DRIVER 
handles the disk interfacing, it is necessary to 
pass variables from MLE.B to Applesoft. MLE 
accomplishes this by reserving fifteen bytes 
($3FF1 to $3FFF) above HIMEM but before 
the beginning of MLE.B. MLE.B stores the 
proper value in the variable space and 
MLE.DRIVER determines the value of the var- 
iable by executing a PEEK instruction. Not all 
fifteen bytes of the variable space are used. 

Location $3FF1 is used as the “switch” to 
determine if a Save file or Load file command 
is desired (1 for save and 2 for load). MLE. 
DRIVER executes a N = PEEK(16369) in line 
50 and then ON N GOTO in line 60. (Note: 
$3FF1 is the same as decimal 16369.) Quite 
obviously, this same technique can be used 
to select more than just two options. 

Locations $3FF2 and $3FF3 contain the file 
length and are used during the Save file: 


option. Locations $3FF4 and $3FF5 contain 
the beginning address and are also used dur- 
ing the Save file option. 

Lastly, locations $3FF6 and $3FF7 are used 
by the Load file option as a “jump vector” 
(Applesoft variable JP% in line 160) for return- 
ing to the Load file routine portion of MLE.B 
rather than the Main Menu. As noted above, 
MLE loads the binary file into memory start- 
ing at $5000 regardless of the actual starting 
address of the binary file. After Bloading the 
file, Applesoft executes a CALL JP% to return 
to MLE.B in the load file routine to input the 
starting address and number of columns by 
the user. 

Reserving a small segment of memory, in 
this case fifteen bytes, to pass variables 
between a machine code program and Apple- 
soft, is a handy technique. Likewise, the 
method for using a “jump vector” to return to 
different portions of amachine code program 
from Applesoft should be in every program- 
mer’s bag of tricks. 

Error trapping is extensively employed 
throughout MLE. For example, it is not possi- 
ble to enter anything other than hex charac- 
ters (0-9 and A-F) when hex data is expected. 
A beep from the Apple speaker will usually 
remind you when an incorrect key is pressed 
from the keyboard. If you nevertheless crash 
MLE by pressing the reset key for example, 
RUN MLE.DRIVER should return you to the 
Main Menu with your workfile intact. If you 
crash the Applesoft program, restart MLE by 
typing 4000G from the monitor, but note that 
the SAVE and LOAD disk operations will no 
longer be operational. The workfile, however, 
can still be saved by exiting to the monitor 
(Option 5), returning to Basic (3D0G) and 
using the BSAVE FILE, A$5000, L$ (your pro- 
gram length) DOS command. The file length 
in hex is always displayed, and updated as 
required, during the EDIT/LIST Main Menu 
option. 


THE APPLESOFT DRIVER 

The Applesoft driving program MLE.DRIVER 
is rather straightforward but contains some 
odd looking DOS commands. These DOS 
commands use variables as the filename (F$), 
the starting address (A) and the file length 
(L). The values of these variables are deter- 
mined by PEEKing the appropriate memory 
locations between $3FF1 and $3FFF. The use 
of multiple variables in the DOS commands is 
a legal and powerful, but not often used, cap- 
ability of Apple DOS. 

The Applesoft driver also traps disk errors 
and displays the appropriate disk error code 
before returning to the Main Menu. See your 
DOS manual for the proper interpretation. 
MLE is really an exercise in maintaining and 
continually updating pointers. Locations $F9 
and $FA(PNTR) represent the actual address 
inthe workfile ($5000+) while locations $436E 
and $436F (IMADD) represent the IMage 
ADDress depending upon the starting loca- 
tion selected by the user. Obviously, both 
PNTR and |IMADD must be updated during all 
cursor commands, data entry and data alter- 
ing commands. Conversely, the file length 
(FCNT) must be updated only during the data 
entry and data altering commands since the 


file length does not change during cursor. 


commands. 

When | first began to write MLE, | did every- 
thing on a straight line approach, i.e. each 
section of the program was self-contained 


and complete. This, however, was a mistake, 
since MLE grew to almost 4K in length before 
the disk routines were written. It was also very 
difficult to keep track of all the pointers for 
each routine. 

| subsequently rewrote MLE into numerous 
subroutines which reduced its length to about 
2.5K and simultaneously made life much eas- 
ier. For example, the semi-colon routine, after 
rewriting, does nothing more than determine 
the number of columns (COLMAX) and then 
execute the same number of left arrows. 
Since all pointer updating and error checking 
is performed by the left arrow routine (ARRL), 
duplication in the up arrow routine is elimi- 
nated. | strongly suggest you take this ap- 
proach when writing your own programs; | 
know | will. 

Finally, the source listing is very well doc- 
umented for any necessary or desired 
modifications. 


SAMPLE RUN 
Now let’s use MLE to enter the following 
machine code program: 


300:20 58 FC A2 00 AO 27 AQ 
308:20 20 ED FD 88 DO F8 E8 
310:E0 18 FO 03 4C 05 03 A9 
318:0D 8D 3A 05 AY OC 8D 3B 
320:05 A9 05 8D 3C 05 60 


Run MLE and select Option 1 to start anew 
workfile. The beginning address is $300 (hex), 
and the number of display columns is eight. 
Then enter the program below and, when you 
finish, press Control E to return to the Main 
Menu. ; 

Now select the Edit file option (Option 2) 
and the following is displayed: 


300:10 20 58 FC A2 00 AO 27 
308:A9 20 20 ED FD 89 DO F8 
310:E8 EO 18 FO 03 4C 05 03 
318:A9 8D 3A 05 AQ9 OC 8D 3B 
320:05 A9 05 8D 3C 05 60 


Now, let’s say that you have made some 
mistakes which, fortunately, the editor allows 
you to correct. 

First of all, byte 10 has been entered (incor- 
rectly) before the first byte of the file. Press 
Control D to delete this byte and the file is 
relisted. Further corrections, however, are 
still required. 

Location $30C in the original listing is $88 
but somehow you have entered $89. No prob- 
lem. Use the right arrow and down arrow (/) 
to position the cursor at $30C. Now press 
Control X, press the right arrow to copy over 
the “8” and type 8 to replace the erroneous 9. 
Press Control E to exit the Xchange function 
(the blinking “X” should disappear on the 
prompt line). Something, however, is still not 
right. 

After comparing the listing in the magazine 
with the listing on the screen, you discover 
that you have failed to enter the byte at $318. 
Use the cursor commands to move the cursor 
to $318 and press Control | for Insert. In the 
space created by Insert, type the missing byte 
(OD) and then press Control E to exit the 
Insert command. 

After examining the listing and correcting 
any other errors, press Control E to return to 
the Main Menu. Save the file to your work disk 
(don’t use the program disk; that’s living too 
dangerously) and then exit to monitor (Op- 
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tion 5). Type 300G to run the program. Please CONCLUSION MLE. You will be amazed at the difference 
note: If you do not or cannot Save to disk, After entering MLE from the monitor, try between entering a machine code program 
then the program must be moved using the entering your own machine language pro- using MLE and doing the same from the 
monitor move command to location $300 gram (perhaps from this publication) using monitor. = 
before this program will run. @ 





0084 33 COND EQU $84 ;CONTROL D 
OOBB 34 SCOLON EQU $BB ) SEMICOLON 
OOAF 35 SLASH  EQU SAF 3 SLASH 
ooc1 36 LETA EQU $C1 ;LETTER A 
00C7 37. LETF EQU $C7 ;LETTER F+1 
ooss 38 LARRW EQU $88 ;LEFT ARROW 
} 0095 39 RARRW EQU $95 ;RIGHT ARROW 
5000 40 STORE EQU $5000 ;DATA 
FF3A 41 BELL EQU $FF3A ; BELL 
1 REM HXHHRHERRERRER HER HERHE F948 42 PRBLNK EQU $F948 3;PNT 3 BLANKS 
2 REM #M.L.E. DRIVER * are pes Be Pook Aer eee 
3 REM * BY DOUG SPRINKLE #* 4000 45 & PRINT MENUE 
* 4000 46 8 
4 REM * COPYRIGHT (C) 1982 * 4000 20 CA 44 = 47s MENU JSR FULLSC }RESET TO FULL SCR 
5 REM * BY MICRO-SPARC INC * 4003 20 58 FC 48 JSR HOME ;CLEAR SCREEN 
é * ; 4006 20 SE FD 49 JSR CROUT ;MOVE DOWN ONE LINE 
REM * LINCOLN, MA. 81773 * 4009 AI OE 50 LDA #14 ;MOVE CURSOR 
7 REM RHHHRREHHEH KER HEH REARE 400B 85 24 Si STA CH 
1@ ‘HIMEM: 16368 4000 ay Fu Be LDA #MENUF ;MENU STRING 
OOF 5 STA PNTADD 
14 FOR I = 1 TO 9: READ A: POKE 18943 + 1,A: NEXT 4011 AP 43 54 LDA /MENUF 
15 DATA 173,245,63,172,244,63,76,72,143 apie ae ae Pr smPRinY. 
28 ONERR GOTO 208 4015 20 BB 44 56 JSR PRINT 
4018 A2 04 57 LDX #4 ;PRINT 4 CARR RETS 
24 DS = CHRS (4): PRINT D$;"MON C,1,0": PRINT D$;"BLOAD pe ie ih cle Aa Samed 
MLE.B" ; 401D CA 59 DEX 
. 401E DO FA 60 BNE MUP 
34 CALL 16384: REM MLE 4020 A? 18 61 LDA #24 3SET WINDOW WDTH 
4022 85 21 62 STA WNDWDTH 
35 PRINT : HOME : PRINT D$;"CATALOG": PRINT : PRINT 4024 AI 09 43 LDA #9 ;SET LEFT MARGIN 
5@ N= PEEK (16369): HTAB 18: PRINT "‘EXIT’ TO RETURN Biles hades ah STH WHOLE 
& 4028 20 BE FD 65 JSR CROUT MOVE DOWN TWO LINES 
: PRINT : HTAB ii: INPUT "ENTER FILE NAME "“;F$: IF 402B 20 8E FD 64 JSR CROUT $ 
F$ = "" THEN F$ = "NO NAME" 402E AY FD 67 LDA #STARTF ;START FILE STRING 
3 ts 4030 85 FD 68 STA PNTADD 
55 IF F% = "EXIT" THEN 34 4032 AI 43 49 LDA /STARTF 
6@ ON N GOTO 78,158 4034 85 FE 70 STA PNTADD+1 
4036 20 BB 44 7i JSR PRINT 
78 REM SAVE RTN 4039 20 BE FD 72 JSR CROUT ;PRINT 2 CRS 
8@ LZ = PEEK (16378) + 256 * PEEK (16371) 403C 20 SE FD 73 JSR CROUT 
85 POKE 41794,746: POKE 41795,@: POKE 41796,74: REM MAK pee ge pf area nto PTE Le 
5 4041 85 FD 75 STA PNTADD 
E PATCH 4043 AD 44 76 LDA /EDITF 
98 PRINT D$;*BSAVE" ;F$;* ,A28486,L"L4 aaa ner ae wid Oe ln 
4 78 JSR PRINT F 
125 POKE 41794,173: POKE 41795,115: POKE 41796,178: REM ao4a 20 8E FD 79 Jen CROUT eee 
CLEAR PATCH 404D 20 BE FD 80 JSR CROUT 
13@ GOTO 34 4050 AP 14 81 LDA #LOADF ;LOAD FILE STRING 
4052 85 FD 82 STA PNTADD 
148 REM LOAD RTN 4054 AG 44 83 LDA /LOADF 
> - 4056 85 FE 84 STA PNTADD+1 
15@ PRINT D$;"BLOAD";FS;° ,A$5@86" 4058 20 BB 44 as JSR PRINT :PRINT IT 
168 JP% = PEEK (16374) + 256 * PEEK (16375) 405B 20 SE FD 86 JSR CROUT 
2 
178 CALL JP%: GOTO 34 el ee ee a5 eee 
4061 AI 2 8s LDA #SAVEF 7SAVE FILE STRING 
288 EC% = PEEK (222): HOME : VTAB 11: HTAB 12 4063 85 FD 89 STA PNTADD 
21@ PRINT "DISK ERROR CODE *;EC%: PRINT : HTAB 14: INPUT rene den ie = peed thchee IM 
+ 
"PRESS RETURN *;A$: GOTO 34 4069 20 BB 44 92 JSR PRINT PRINT IT 
406C 20 BE FD 93 JSR CROUT 
= 406F 20 BE FD 94 JSR CROUT 
4072 AY 59 93 LDA #EXITF sPRINT NXT LINE 
yy 4074 85 FD 96 STA PNTADD 
past cs 97 LDA /EXITF 
98 STA PNTADD+1 
Save the following program with the command BSAVE MLE.B, <07D 30 oa RD. | 100 SSR GROUT poles 
T 
A$4000,L$9DC. 4080 20 BE FD 101 JSR CROUT MOVE DOWN 2 LINES 
4083 20 SE FD 102 JSR CROUT Ze 
4086 20 BE FD 103 JSR CROUT 
4089 AI 70 104 LDA #ENTSEL 
peed 85 FD 105 STA PNTADD 
APPLE _M.L.E. (MACHINE LANGUAGE - BY DOUG SPR DEDIARES4 16 LDA /ENTSEL 
LISA 2.5 COPYRIGHT (C) 1982 BY HICROSSPARC, INC. sc ren 408F 85 FE 107 STA ci 
LINCOLN, MA. 01773 — ALL RIGHTS RESERVED 4091 20 BB 44 108 JSR PRINT ;PRINT IT 
4094 AP 27 109 LDA #39 pow 
0800 1 TTL “MACHINE LANGUAGE EDITOR” pene 85 21 110 STA WNDWDTH ier cL a 
4000 2 ORG $4000 4098 A? 00 111 LDA #0 
RESET LEFT MARGIN 
4000 3 OBJ $800 409A BS 20 112 STA WNDLFT : 
een Oe ee ries pas SCREEN ADDR 409C 20 0C FD 113 SELINP JSR RDKEY ; INPUT CHAR 
FBSB 5S TABY EQU $FBSB + TAB ROUTINE 409F C9 Bi 114 CMP #NUM1 ST 
0025 6 cv EPZ $25 ;VERT CURSOR POS 40A1 DO 64 115 BNE M1 agg poo Ba. 
0024 7 cH EPZ $24 ;HORIZ CURSOR POS 40AS 20 ED FD 116 JSR COUT . 
FDDA 8 PRBYTE EQU SFDDA yPRINT BYTE IN ACC 40A6 20 58 FC 117 JSR HOME 
FC42 9 CLREOP EQU 8FC42 7CLR END OF PG SOAP AP OA 118 LDA #10 3SET CURSOR 
0004 10 FOUR EQU $4 } FOUR 40AB 20 SB FB 119 JSR TABV 
0005 11 FIVE EOU $5 } CONSTANT FIVE een az oD 120 LDA #13 
ORO 12 SPACE EQU $A0 3 SPACE OBO 8S 24 121 STA CH 
OOAD 13 DASH EQU SAD } DASH 40B2 A 88 122 LDA #WARNI 
0023 14 WNDBTM EPZ $23 ; WINDOW BOTTOM 40B4 85 FD 123 STA PNTADD 
0020 15 WNDLFT EPZ $20 }LEFT MARGIN SOB6 AI 44 124 LDA /WARNI 
0021 . WNDWDTH EPZ $21 s WINDOW WIDTH re oe - a io STA PNTADD+1 
FDED COUT EQU $FDED SCREEN OUTPUT 126 JSR PR 
Pade ig@caoT OO cad erbed S CARR ar 40BD 20 SE FD 127 JSR rary 
FDOC 19 RDKEY  EQU $FDOC }READ KEY 40C0 20 BE FD = 128 JSR CROUT 
a ea ee focs 85 FD 150 STA Puen 
CONTROL X ST 
OOBO 22 NUMO EQU BO JNUMBER ZERO ey ee 131 LDA 7WARN2 
OoB1 23 NUMI EQU $Bi yNUM ONE BS FR 132 STA PNTADD+1 WARN 
0OB2 24 NUMZ EQU $B2 ;NUMBER TWO aOR ny oe 133 LDA #14 ee om 
OOB3 25 NUMS EQU $B3 }NUM THREE MOLD) BB 28 134 STA CH 
0oB4 26 NUM4 EQU $B4 ;NUM FOUR pee gn aoe |S JSR PRINT 
OOBS 27 NUMS EQU $B5 ;ASCII 5 40D2 20 BE FD 136 JSR CROUT 
OoBA 28 NUM EQU $BA ;ASC NINE + 1 4005 20 BE FD = 137 JSR CROUT 
OoFD 29 PNTADD EPZ $FD }PRINTER POINTER 4006 20 GE FD. 158 JSR CROUT 
0028 30 BASL EPZ $28 ;SCREEN POS pect lalla 139 LDA #OKS 
OOF9 31 PNTR EPZ $F9 }POINTER FOR STORAGE paid . FD 140 STA PNTADD 
0089 32 CONI EQU $69 sCONTROL I 44 141 LDA /OKS 
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40E1 85 FE 
40E3 AD 13 
40E5 85 24 
40E7 20 BB 44 
40EA 20 OC FD 
40ED C9 D9 
40EF FO 03 
40F1 4€ 00 40 
40F4 20 27 41 
40F7 20 CD 41 
40FA 20 FE 41 
40FD 20 16 42 
4100 A? 18 
4102 85 23 
4104 4C 00 40 
4107 C9 B2 
4109 DO O3 
410B 4C D7 44 
410E C9 BS 
4110 DO 03 
4112 4C 87 49 
4115 C9 B4 
4117 DO 03 
4119 4C 66 49 
411C C9 BS 
411E DO o1 
4120 00 

4121 20 3A FF 
4124 4C 9C 40 
4127 

4127 

4127 

4127 20 58 FC 
412A AI OA 
412C 20 SB FB 
412F AS 08 
4131 85 24 
4133 AI 89 
4135 85 FD 
4137 AP 43 
4139 85 FE 
413B 20 BB 44 
413E 

413E 

413E 

413E Ad 01 
4140 8D 85 43 
4143 A2 01 
4145 a9 o1 
4147 8D 72 43 
414A Ag 00 
414C 8D 76 43 
414F 20 OC FD 
4152 20 C2 42 
4155 C9 FF 
4157 FO Fé 
4159 20 EC 42 
415C AD 72 43 
415F C9 FF 
4161 DO EC 
4163 AD 76 43 
4166 9D 6E 43 
4169 9D 70 43 
416C EO 00 
416E FO 04 
4170 CA 

4171 4C 45 41 
4174 

4174 

4174 

4174 20 BE FD 
4177 20 BE FD 
417A Ag 08 
417C 85 24 
417E AI 9D 
4180 85 FD 
4182 AP 43 
4184 85 FE 
4186 20 BB 44 
4189 20 OC FD 
418C 8D 80 43 
418F 38 

4190 E9 BO 
4192 BD 84 43 
4195 C9 09 
4197 90 06 
4199 20 3A FF 
419C 4C 89 41 
419F AI 00 
41A1 8D 85 43 
41A4 AD 80 43 
41A7 20 ED FD 
41AA 20 BE FD 
41AD 20 BE FD 
4140 20 BE FD 
41B3 AI 13 
41BS 85 24 
41B7 A 83 
41B9 85 FD 
41BB A 44 
41BD 85 FE 
41BF 20 BB 44 
41C2 20 OC FD 
41C5 C9 D9 
41C7 DO 01 
41C9 60 
41CA 4C 27 41 
41CD AG 17 
41CF 20 SB FB 
41D2 AI 0S 
41D4 85 24 
41D& AP DS 
41D8 85 FD 
41DA AP 43 
4iDC 85 FE 
41DE 20 BB 44 
41E1 AI 05 


142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
146 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 


STA PNTADD+i 
LDA #19 
STA CH 
JSR PRINT 
JSR RDKEY 
CMP #$D9 
BEQ MO 
JMP MENU 
MO JSR NEWFILE 
JSR SETUP 
JSR SET1 
JSR SET2 
LDA #$18 
STA WNDBTM 
JMP MENU 
M1 CMP #NUM2 
BNE M2 
JMP EDFILE 
M2 CMP #NUMS 
BNE MS 
JMP LDFILE 
MS CMP #®NUM4 
BNE M4 
JMP SVFILE 
m4 CMP #NUMS 
BNE MS 
BRK 
MS JSR BELL 
JMP SEL INP 


2 
% 
s 
NEWFILE JSR HOME 
JSR TABV 
LDA #$8 
STA CH 
LDA #STAD 
STA PNTADD 
LDA /STAD+1 
STA PNTADD+1 
JSR PRINT 


LDA #1 

STA RTNFLG 
LDX #1 

LDA #1 

STA CHCNT 
LDA #0 
STA TEMP 
JSR RDKEY 
JSR VALHEX 
CMP #$FF 
BE@ ADDI 
JSR STCH 
LDA CHCNT 
CMP #$FF 
BNE ADD1 
LDA TEMP 
STA IMADD, X 
STA BEGADD, xX 
CPX #0 

BE@ ADD2 
DEX 

JMP ADDO 


ADD1 


Sob 


D2 JSR CROUT 
JSR CROUT 
LDA #$8 
STA CH 

LDA #COLNUM 
STA PNTADD 
LDA /COLNUM 
STA PNTADD+1 
JSR PRINT 
JSR RDKEY 
STA T1 

ADD& SEC 

SBC #$BO 
STA COLMAX 
CMP #69 

BLT NEWFL1 
JSR BELL 
JMP ADD4 
LDA #0 

STA RTNFLG 
LDA Ti 

JSR COUT 
JSR CROUT 
JSR CROUT 
JSR CROUT 
LDA #19 

STA CH 

LDA #0KS 
STA PNTADD 
LDA /OKS 
STA PNTADD+1 
JSR PRINT 
JSR RDKEY 
CMP #$D9 
BNE ADD7 
RTS 

JMP NEWFILE 
LDA #617 
JSR TABV 
LDA #5 

STA CH 

LDA #PMTLN 
STA PNTADD 
LDA /PMTLN 
STA PNTADD+1 
JSR PRINT 
LDA #5 


ADD4 


NEWFL1 


ADD7 
SETUP 


INPUT STARTING ADDRESS 


ENTER COL CNTR (COLMAX) 


30K TO CLEAR? 
sy" 
30K TO CLEAR? 


3SET COL INPUT 

3 INPUT CHARACTERS 
;RESET WINDOW 

3; BOTTOM 

7DONE W/NEWFILE 
sEDIT FILE? 

3NO 


3LOAD FILE? 
3NO 


3SAVE FILE? 


sEXIT? 


3; ERROR 
;READ SELECTION AGAIN 


GET START ADDR AND COL CNT 


3;CLEAR SCREEN 
3SET VERT POS 


3SET HORIZ POS 


3PRINT START ADDR 


3PRINT IT 


3TEMP CNTR 
3SET RET FLG 
;CHAR CNTR 


;RESET TEMP TO ZERO 
3GET INPUT 


3 STORE CHAR 


3FULL BYTE INPUTTED 
3STORE IT 

3SAVE BEGIN ADDR 

3: DONE? 


3BYTE CNTR 
3GET NXT BYTE 


3PRINT 2 CRS 
3CUR HORIZ POS 


3PRINT FOR COL NUM 


3PRINT IT 
3;READ KYBD 


3CONVERT ASCII 
3STORE COL CNTR 
3MAX COL NUM-1 

3 START INPUT RTN 
3; ERROR 

3CLR FLG 

3SET RET FLAG 
3PRINT CHA! 


3MOVE DOW) 


sPRINT IT 


3 YES 


3;MOVE TO BOTTOM LINE 
3RESET HORIZ POS 


3PROMPT LINE 


3PRINT IT 
3MOVE CURSOR INTO 


SSSISSassss 


388 
Bak 


S383 
e8Ne 


ffa &8 


FB 


FC 


43 
43 


43 


43 


43 


43 


43 
43 


43 


43 


43 
42 


42 


42 
AS 


42 


261 


305 


JSR TABYV 
LDA #$15 
STA WNDBTM 
JSR HOME 
LDA #STORE 
STA PNTR 
LDA /STORE 
STA PNTR+1 
LDA #0 
STA FCNT 
STA FCNT+1 
RTS 


SET COLUMN INPUT 


LDA COLMAX 
8TA COLCT 
STA COLMAX 
TAX 

cL_c 

LDA #0 
CLP ADC #FOUR 
DEX 


LDA COLMAX 
STA COLCT 
PTADDR JSR PRTADR 


&% TWO CHARACTER INPUT LOOP 


bf 
CHIN LDA #91 
STA CHCNT 
LDA #0 


STA TEMP 


ae Md 


OOP 1 JSR RDKEY 
CMP #CONE 
BNE Ci 
LDA #$1 
CMP CHCNT 
BNE C1 


Ci CMP #LARRW 
BNE RTCH 
STA T1 
LDA CHCNT 
CMP #0 
BNE FSTCH 
LDA T1 
JSR COUT 
JMP CHIN 
LOOP4 JMP LOOP1 
* 
s 
& LEFT ARROW ROUTINE 
8 
8 


SINGLE CHAR INPUT LOOP 


;SCROLL WINDOW 
;SET BOTTOM WINDOW 
3STORAGE PNTR 


3HIGH BYTE 


3SET FCNT TO ZERO 


3COL MAX 
3COL CNTR 
3MAX COLS 
3NUM OF COL IN X-REG 


sSET ACC TO ZERO FOR MULT 
}ADD FOUR 

3DEC COLCNTR 

}MULTIPLY COMPLETE 


sADD 4 
sRIGHTMOST CHAR 


sRESET COL NUM 


SPRINT IMADD 


3 CHAR CNTR 


sRESET TEMP TO ZERO 


;LOAD <—- 
3PRINT IT 


FSTCH LDA COLCT ;COLUMN CNT 
CMP COLMAX 3FIRST COLUMN? 
BNE FSTCH1 sNO 
LDA RTCHAR ;RIGHTMOST CUR POS 
STA CH 
LDA CV 3CUR VERT POSITION 
SEC 
SBC #1 ;SUBTRACT ONE 
BGE TOPLINE ,TOP OF PAGE 
LDA #7 ;LEFT CUR POS 
STA CH 
JMP ERROR1 ;TOP OF PAGE 
TOPLINE JSR TABV ;MONITOR TABV ROUTINE 
LDA #0 
STA CHCNT ;RESET CHAR CNT 
STA COLCT ;RESET COL CNT 
IMP FSO 
FSTCH1 DEC CH ;DEC CH BY 4 
DEC CH 
DEC CH 
LDA #$0 : RESET CHAR CNT 
STA CHCNT 
SEC 3SET CARRY FOR SBC 
Fso INC COLCT 
DEC FCNT 
LDA FCNT 
CMP #$FF 
BNE FS1 
DEC FCNT+1 
FS1 JSR DECP1 3DEC IMADD & PNTR 
FS2 LDxX #0 }PRESET X REG FOR LOAD 
LDA (PNTR, X) ;LOAD VAL AT LOC 
AND #$FO }MASK LOWER NIBBLE 
STA (PNTR, Xx) ;STORE VALUE 
STA TEMP 3STORE IN TEMP VALUE 
IMP LOOP1 
2 
& DETERMINE IF VALID HEX NUM 
s 
RTCH CMP #RARRW >? 
BNE NARR 
LDY CH 
LDA (BASL),Y 3SCN CHAR 
NARR JSR VALHEX ;CHK FOR HEX NO. 
CMP #$FF 3 ERROR? 
BEQ LOOPS 3 YES-ERROR 
JSR STCH 3STORE CHAR 
LDA CHCNT 318T OR 2ND CHAR? 
BEQ LOOP4 31ST CHAR 
IMP CHIN 
® 
&% CHK FOR VALID HEX CHAR 
Ps 
VALHEX CMP @NUMO 
BLT ERROR 3JMP FOR ERROR 


continued on next page 
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43AF AO AO 





‘ 4381 21 AO AS 987s CMMDL STR “ (X,D,1.<-2—>939/9°E) = FILE LEN 
Language Editor) (Cont.) 4354 De AC C4 
43B7 AC C9 AC 
4206 C9 BA 379 CMP @NUM?z 3LESS THAN NINE? 43BA BC AD AC 
42C8 BO OD 380 BGE LETTER yNO - ITS A LETTER 43BD AD BE AC 
42CA 8D 80 43 381 STA Ti 3STA BEFORE COUT 43CO BB AC AF 
42CD 20 ED FD 382 JSR COUT yPRINT CHAR 43C3 AC DE CS 
42D0 AD 80 43-383 LDA T1 3GET CHAR 43C& AI AO AO 
4203 38 384 sec 3SET CARRY FOR SBC 43C9 AO Cé C9 
42D4 E9 BO 385 SBC #$BO ;CONVERT ASCII 43CC CC C5 AO 
42D6 60 386 RTS Ps pad cc C5 CE 
@LETA LETTER 43D2 AO z 
4209 9 2D 3e0 saad BT ERROR 1 ; 43D3 1D CS DS 488 PMTLN STR “EXIT - CONTROL E FILE LEN 
42DB C9 C7 389 CMP @LETF }LETTER F? 43D6 C9 D4 AO 
42DD BO 29 390 BGE ERRORI 43D9 AD AO C3 
42DF 8D 80 43 391 STA Ti ;STORE CHAR 43DC CF CE D4 
42E2 20 ED FD 392 JSR COUT yPRINT IT 43DF D2 CF CC 
42E5 AD GO 43-393 LDA Ti }GET CHAR BACK 43E2 AO. C5 AO 
42€8 38 394 SEC }SET CARRY FOR SUBTRACT J} 43E5 AO AO AO 
42E9 E9 B7 395 SBC #$B7 ;CONVERT ASCII 43E8 C4 C9 CC 
42EB 60 396 RTS 43EB C5 AO CC 
42EC 397 8 43EE C5 CE AO 
42EC 398 & DETERMINE IF FIRST OR 42F1 OB AA AA 489 MENUF STR "8# MENUE #8" 
42EC 399 % SECOND CHAR HAS BEEN ENTERED 43F4 AO CD CS 
42EC 400 8 43F7 CE DS CS 
42EC 18 401 STCH cLc 43FA AO AA AA 
42ED 6D 76 43 402 ADC TEMP , TEMP STORAGE 43FD 16 D3 D4 490 STARTF STR “START NEW FILE ----- 1" 
42FO 8D 76 43 403 STA TEMP 4400 Ci D2 D4 
42F3 AD 72 43 404 LDA CHCNT ;CHAR CNTER 4403 AO CE CS 
42F6 C9 00 405 CMP #60 3) ZERO 4406 D7 AO Cé 
42F8 FO 14 406 BEQ CHARZ }SECOND CHAR 4409 C9 CC CS 
42FA AD 76 43 407 LDA TEMP 3 GET TEMP BACK 440C AO AD AD 
42FD OA 408 ASL } SHIFT LEFT FOUR 440F AD AD AD 
42FE OA 409 ASL 4412 AO Bi . 
42FF OA 410 ASL 4414 16 CC CF 491 LOADF STR “LOAD BINARY FILE --- 3 
4300 OA 4i1 ASL 4417 Ci C4 AO 
4301 8D 76 43412 STA TEMP ;STORE CHAR 4410 C2 C9 CE 
4304 CE 72 43 413 DEC CHCNT ;DEC CHAR CNTR 441D Ci D2 D9 
4307 60 414 RTS 4420 AO C& CP 
4308 20 SA FF 415 ERRORi JSR BELL 4423 CC C5 AO 
430B A? FF 416 LDA @$FF sERROR FLG 4426 AD AD AD 
430D 60 417 RTS 4429 AO BS - 
aS0E 416 % 442B 16 DS Ci 492 SAVEF STR "SAVE FILE TO DISC -—- 4 
430E 419 % SECOND CHAR INPUTTED - NOW STORE 442E Dé C5 AO 
430E 420 8 4431 Cé C9 CC 
430E CE 72 43 421 + CHAR2 DEC CHCNT ;SET TO $FF 4434 CS AO D4 
4311 AD 85 43 422 LDA RTNFLG ;RET FLG 4437 CF AO C4 
4314 FO 01 423 BEQ CHARS 443A C9 DS C3 
4316 60 424 RTS 7 RETURN 443D AO AD AD 
4317 AD 76 43 425 CHARS LDA TEMP ;LOAD CHAR 4440 AO B4 
431A A2 00 426 LDX #0 ;CLEAR X REG 4442 16 C5 C4 493 EDITF STR “EDIT/LIST WORKFILE - 2" 
431C 81 F9 427 STA (PNTR, X) ;STORE IN ARRAY 4445 C9 D4 AF 
431E EE 74 43 428 INC FCNT 4448 CC C9 DS 
4321 DO O3 429 BNE CT2 444B D4 AO D7 
4323 EE 75 43 430 INC FCNT+1 ;INC FILE COUNT AS4E CF D2 CB 
4326 20 51 46 431 CT2 JSR INCPO sINC PNTR & IMADD 4451 Cé C9 CC 
4329 CE 73 43 432 CONT DEC COLCT 3END OF LINE? 4454 CS AO AD 
432C DO OB 433 BNE CONTI ;NOT END OF LINE 4457 AO B2 
432E 20 41 43 434 JSR FLDIS ;DIS FILE LEN 4459 16 CS DB 494. sO EXITF STR “EXIT TO MONITOR --—- 5" 
4331 20 BE FD 435 JSR CROUT :PRINT CARR RET 445C C9 D4 AO 
4334 48 436 PLA ;SIMULATE RTS 445F D4 CF AO 
4335 68 437 PLA 4462 CD CF CE 
4336 40 16 42 438 IMP SET2 ;GET NT CHAR -RSET COLCT | 4465 C9 D4 CF 
4339 E& 24 439 CONTI INC CH ;PRINT 2 BLNKS 4468 D2 AO AD 
433B E6 24 440 INC CH 
433D 20 41 435 (441 58k FLDIS s DISPLAY FILE LEN ate po pe or 
4340 60 442 RTS 4 12 C5 CE 495 ENTSEL STR “ENTER SELECTION - " 
4341 AS 25 443 FLDIS LDA CV }STORE CUR VERT POS aia enone 
4343 6D 77 43 (444 STA CVT 4476 AO DS CS 
4346 AS 24 445 LDA ySTORE CUR HOR POS 4479 CC CS C3 
4348 8D 7843 446 STA ak 4 CP CF 
434B AP 22 447 LDA #34 ;HORIZ POS FOR FCNT pte Niet Mie 
434D 85 24 448 STA CH 4462 AO 
434F AI 17 449 LDA #17 ;CUR VERT POS “as OA CO-ED 496 OK are oe." 
4351 20 5B FB 450 JSR TABV alan vee 
4354 AD 75 43 451 TEST LDA FCNT+1 4406 CF G50 a anne 1:=*/.0E 
4357 20 DA FD (452 JSR PRBYTE 4489 57 4F 52 498 WAI BLK “WORKFILE WILL" 
435A AD 74 43 453 LDA FCNT 448C 4B 46 49 
435D 20 DA FD 454 JSR PRBYTE sPRINT FILE LEN thee Ae AE iD 
4360 AD 7843 455 LDA CHT ;RESET CUR POS PROP RESIS 
4363 85 24 456 STA CH MASS AO AE 
4365 AD 77 43 457 LDA CVT 4497 OC 499 WARN2 HEX OC 
4368 20 5B FB 458 JSR TABV 4498 42 45 60 S500 WN2 BLK “BE DESTROYED” 
436B 60 459 RTS 449B 44 45 53 
4360 460 8 449E 54 52 4F 
436C 461 & VARIABLES GARG Sy AS ak 
4360 462 % 4404 16 C9 CE 501 CDP STR “INSERT FILE DISK (CR) " 
4360 463 ENDADR DFS $2 3END ADDRESS 4407 D3 CS D2 
436E 464 IMADD DFS $2 y IMAGE STORAGE ADDR ain, Sa ankte 
4370 465 BEGADD DFS $2 } BEGINNING ADDRESS tkaD! CFE Cs 
4372 466 CHCNT DFS $1 ;CHAR CNT aan AO bA.Ee 
4373 467 COLCT DFS $3 ;COL CNT AABS DECH AO 
4374 468 FCNT DFS $2 ;BYTES IN FILE GAG. AE CX Do 
4376 469 TEMP DFS $1 ;TEMP INPUT STORAGE RABE: Be AG 
4377 470 «CVT DFS $1 44BB AO 00 502 PRINT LDY #0 
4378 471 CHT DFS $1 sTEMP CUR POS 44BD Bi FD 503 LDA (PNTADD) .Y 
4379 472 TPTR DFS $2 }TEMP STORAGE FOR DNSCR FP gape an Se et 
437B 473 TIMD Hh or bins efi DNSCR 44co C8 505 PLP INY ;INC Y REG 
437D ATS te DFS $ ; 44C1 Bi FD 506 LDA (PNTADD),Y ;LOAD ASCII CHAR 
437E 475 13 DFS $1 sTEMP STOR FOR SCROLL 44C3 20 ED FD 507 JSR COUT ;PRINT IT 
437F 476 14 DFS $1 44C6 CA 508 DEX ;DECREMENT CHAR CNTR 
4380 477 ‘Ti DFS $1 44C7 DO F7 509 BNE PLP :GET NEXT CHAR 
4381 478 RTCHAR DFS $1 ;RIGHTMOST CHAR TRE Eh 510 pee 
4382 479 «LT DFS $2 nhs AanA era 
4384 480 COLMAX DFS $1 sma 
4385 481 RTNFLG DFS $1 ;RETURN FLAG red a : RERET TO" FULL GeReRe 
4386 482 TCLCT DFS $1 ;TEMP COL CNTR i 
4387 483 TEMPX DFS $1 ;TEMP STORAGE FOR X REG rhe = = ba FUuLSe oe pag | 
4388 484 TCNTR DFS $1 ;TEMP CNTR FOR SCROLL Late Bb 1G Pa com aaa 
4389 13 CS CE 485 STAD STR “ENTER START ADDR" 


44D0 85 23 S17 STA WNDBTM 
44D? AY 28 518 LDA #40 
4404 85 21 S19 STA WNDWDTH 


44D6 60 520 
4395 AO C1 C4 4407 , S21 et at 
= = ae AO 44D7 22. % EDIT ROUTINE FOR MODIFYING 
7 523 
439D 13.C5 CE 486 COLNUM STR “ENTER NUM OF COLS ” ed See oa ane oe 
43A0 D4 C5 D2 2 
ie a pee pa 44D7 20 58 FC «525 EDFILE JSR HOME ;CLR SCREEN 
Fe ED ACCE 44DA AP 17 526 LDA #$17 3PRINT CMMD LINE 
TAO Ch AD CS 44DC 20 5B FB 527 JSR TABV 
Bean tee, The 44DF AI 00 528 LDA #0 :HOR CUR POS 
44E1 85 24 529 STA CH 
44E3 AP Bi 530 LDA #CMMDL 
44E5 85 FD 531 STA PNTADD 
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44E7 AD 43 S32 LDA /CMMDL 460D 20 3A FF 661 JSR BELL 


44E9 85 FE 533 STA PNTADD+1 4610 AO 00 662 LDY #0 

44EB 20 BB 44 «534 JSR PRINT 3PRINT IT 4612 60 663 RTS 

44EE a9 05 535 LDA #5 MOVE CUR INTO SCROLL 4613 AO 00 664 ARRRI LDY #0 ;END ADR FLG 
44FO 20 SB FB 536 JSR TABV 4615 AD 73 43 665 LDA COLCT 3COL CNT 

44F3 AI 15 537 LDA #$15 :SET BOTTOM WINDOW 4618 C9 O1 664 CMP #1 3;LAST COL? 
44F5 85 25 538 STA WNDBTM 461A FO OC 667 BEQ ARRR2 3;NOT LAST COL 
4S4F7 AP 00 539 LDA #STORE :RESET PNTR 461C CE 73 43 668 DEC COLCT 

44F9 85 FO 540 STA PNTR 461F E6 24 569 INC CH ;MOVE CURSOR RT BY 4 
44FB AI 50 541 LDA /STORE 4621 E& 24 670 INC CH 

44FD 85 FA 542 STA PNTR+1 4623 Eb 24 671 INC CH 

44FF 18 543 cic 3SET END ADDR 4625 EG 24 672 INC CH 

4500 AS F9 544 LDA PNTR 4627 60 673 RTS 

4502 6D 74 43 S45 ADC FCNT 4628 AS 25 674 ARRR2 LDA CV ;LAST LINE? 
4505 8D 6C 45 «546 STA ENDADR 462A C9 14 675 CMP #$14 

4508 AS FA 547 LDA PNTR#+1 462C DO 09 676 BNE ARRRS ;NOT LAST LINE 
450A 6D 75 43 548 ADC FCNT+1 462E 20 CB 46 677 JSR SCROLL 3PNT NEXT LINE 
450D 8D 6D 43.549 STA ENDADR+1 4631 AI 14 678 LDA #$14 sRESET VERT CUR 
4510 2058 FC 550 JSR HOME 3CLR SCREEN ASS AZ OY 679 LDX #1 3CNTR FOR SCROLL 
4513 20 41 43 551 JSR FLDIS 3PRINT FILE CNT 4635 DO 04 680 BNE ARRR4 

4516 20 92 45. «552 JSR LIST LIST ONE PAGE 4637 E6 25 681 ARRRS INC CV s;VERT CUR POS 
4519 A9 07 553 LDA a7 ;RESET CURSOR 4639 AS 25 682 LDA CV 

451B 85 24 554 STA CH 463B 20 SB FB 483 ARRR4 JSR TABV 

451D A9 00 555 LDA #0 463E AI 07 684 LDA #7 jRESET HOR CUR POS 
451F 20 SB FB 556 JSR TABV gt My a Pe = STA CH 

4522 AI 60 557 : i LDA COLMAX 

4524 85 F9 55a ec lly BASS gil 4645 8D 73 43 687 STA COLCT 

4526 A9 50 559 LDA /STORE 4648 60 688 RTS 

4528 85 FA 560 STA PNTR+1 4649 689 ¢& 

452A AD 70 43-561 LDA BEGADD :RESET IMADD seated 670 % INCREMENT POINTERS 

452D 8D 6E 43.562 STA IMADD 4649 671 # 

A530 AD 71 43 S&S MpAGEEeAniN 4649 20 £9 48 692 INCP JSR ENDCHK ;LAST ADDR? 
4533 8D 6F 43 Ses Sra anADEe 464C DO O3 693 BNE INCPO 

4536 AD 84 43 545 LDA COLMAX :SET COL CNTR prepa ae poeeY ks Bea MOL Lig 2) 
4539 8D 73 43 566 STA COLCT 

453C 20 0C FD 567 EMENU JSR RDKEY :GET CMMD 4651 Eé F9 696 INCPO INC PNTR 

453F C9 8S 548 cre acon Konee 4653 DO 02 697 BNE INCP1 

4541 No os 569 BNE EMI NP papeeh (sto laly ae ANCA 

4543 4C 00 40. «570 JMP MENU 4657 EE 6E 43 699 INCP1 INC IMADD 

4546 C9 88 571 EMi CMP #LARRW :LFT ARROW? solace tee) Zoe Bie ee 

4548 DO 06 572 BNE EM2 NO 465C EE 6F 43 701 INC IMADD+1 

454A 20 62 46 573 JSR ARRL 465F AO 00 702 INCP2 LDY #0 

454D 4C 3C 45 «574 IMP EMENU 4661 60 703 RTS 

4550 C9 95 575 EM2 CMP #RARRW :RT ARROW? 4662 70m 

4552 DO 06 576 BNE EMS :NO 4662 705 * LEFT ARROW RTN 

4554 20 04 44 577 JSR ARRR 4662 706 * 

4557 40 3C 45. 578 JMP EMENU 4662 AO 00 707 ARRL LDY #0 :ERROR FLG 
455A C9 AF 579 EMS CMP #SLASH :DOWN ARROW? 4664 20 A4 46 = =708 JSR DECP 

455C DO 06 580 BNE EM4 :NO 4667 CO 00 709 CPY #0 3 ERROR? 

455E 20 43 47 581 JSR ARRD 4669 FO 06 710 BEQ ARRL1 3NO 

4561 4C 3C 45 «582 IMP EMENU 466B 20 3A FF 711 JSR BELL 

4564 C9 BB sss &EM4 CMP #SCOLON ;UP ARROW? 466E AO 00 712 LDY #0 

4566 DO 06 584 BNE EMS :NO 4670 60 JAZ RTS 

4568 20 52 47 585 JSR ARRU 4671 AD 84 43 714 ARRL1 LDA COLMAX 

456B 40 3C 45 «586 IMP EMENU 4674 CD 73 43 «715 CMP COLCT 3FIRST COL? 
456E C9 98 587 EMS CMP #CONX : XCHANGE? 4677 FO OC 716 BEQ ARRL2 ;YES 

4570 DO 06 588 BNE EM& =NO 4679 EE 73 43-717 INC COLCT ;INC COL CNTR 
4572 20 FD 48 «5589 JSR XCHG 467C C6 24 718 DEC CH 

4575 40 30 45 590 IMP EMENU 447E Cb 24 719 DEC CH ;MOVE CUR LFT 
4578 C9 89 S91 EMé CMP #CONI ; INSERT? 4680 Cé 24 720 DEC CH 

457A DO 06 592 BNE EM7 :NO 4682 C6 24 721 DEC CH 

457C 20 61 47 «=593 JSR INSRT 4684 60 722 RTS 

457F 40 30 45 «594 IMP EMENU 4685 AS 25 723 ARRLZ LDA CV 3 TOPLINE? 
4582 C9 84 595 EM7 CMP #COND ; DELETE? 4687 C9 00 724 CMP #0 

4584 DO 06 596 BNE EMS ;NO 4689 DO O3 725 BNE ARRLS 3;NOT TOPLINE 
4586 20 00 48 «6597 JSR DELETE 468B 20 06 47 726 JSR DNSCR ; DOWNSCROLL 
4589 40 30 45 «598 IMP EMENU 468E AD 81 43 727 ARRLS LDA RTCHAR ;RTMOST CHAR 
458C 20 3A FF 6599 EMS JSR BELL ; ERROR 4691 38 728 SEC 

458F 4C 3C 45 600 JMP EMENU 4692 E9 O1 729 SBC #1 3SUB 1 

4592 601 + 4694 85 24 730 STA CH ;HOR CUR POS 
4592 602 % LIST RIN 4696 AS 25 731 LDA CV 

4592 603 8 LST 4698 38 732 SEC 

4592 A2 15 604 LIST LDX #$15 3LINE CNTR 4699 E9 O1 733 SBC #1 

4594 AD 70 43 605 LDA BEGADD ;NOW RESET THE 469B 20 SB FB 734 JSR TABV ;RESET VERT CUR 
4597 8D 6E 43 606 STA IMADD :BEGIN ADDRESS TO 469E AQ O1 735 LDA #1 RESET COL CNTR 
459A AD 71 43 607 LDA BEGADD+1 3 THE IMAGE CNTR 46A0 8D 73 43 736 STA COLCT 

459D 8D 6F 43 608 STA IMADD+1 AbAZ 60 737 RTS 

45A0 EO 00 609 CPX #0 3 DONE? 4bA4S 738 8 

45A2 DO 01 610 BNE LSTO ;NO 46A4 739 & DECREMENT POINTERS 

45A4 60 611 RTS 46A4 740 28 

45A5 AO 00 612 LSTO LDY #0 ;ADDRESS OFFSET 4684 AI 00 741 DECP LDA #STORE 3CHK FOR BEG ADDR 
45A7 4C AD 45) 613 IMP LST1 46A6 C5 F9 742 CMP PNTR 

45AA 20 BE FD 614 LST JSR CROUT 46A8 DO 09 743 BNE DECP1 

45AD AD 84 43 615 LSTi LDA COLMAX ;LOAD # OF COLS 46AA AI SO 744 LDA /STORE 

4SBO 8D 73 43 616 STA COLCT 46AC CS FA 745 CMP PNTR+1 

45B3 20 £8 45 617 LST2 JSR PRTADR 46AE DO OS 746 BNE DECP1 

45B6 AD 6C 43° 618 LST LDA ENDADR ;LAST BYTE? 46BO AO 01 747 LDY #1 :ERROR FLG 
45B9 CS F9 619 CMP PNTR 46B2 60 748 RTS 

45BB DO 08 620 BNE LST8 46B3 CS FO 749 DECP1 DEC PNTR 

45BD AD 6D 43. 621 LDA ENDADR+1 46B5 AS F9 750 LDA PNTR 

45CO C5 FA 622 CMP PNTR+1 46B7 C9 FF 751 CMP #$FF 

45C2 DO 01 623 BNE LST8 46B9 DO 02 752 BNE DECP2 

45C4 60 624 RTS 46BB Cé FA 753 DEC PNTR+1 

45C5 Bi F9 625 LSTS LDA (PNTR),Y ;LOAD BYTE 46BD CE 6E 43 754 DECP2 DEC IMADD 

45C7 20 DA FD 626 JSR PRBYTE ;PRINT IT 46CO AD 6E 43° 755 LDA IMADD 

4ASCA CE 73 43 «0627 DEC COLCT ;DEC COL CNTR 46C3 C9 FF 756 CMP #$FF 

45CD DO oc 628 BNE LST4 ;NOT END OF LINE 46C5 DO O3 757 BNE DECPS 

45CF 20 51 46 629 JSR INCPO ;INC IMADD & PNTR 46C7 CE 6F 43 758 DEC IMADD+1 

45D2 EE 88 43 630 INC TCNTR 3 INC SCROLL CNTR 46CA 60 759 DECPS RTS 

45D5 CA 631 DEX DEC LN CNTR 46CB 760 8 

45D6 EO 00 632 cPX #0 END OF PAGE? Fess oe : NORMAL SCROLL RTN 

pone oe BS po Even Ser i 46CB BE 87 43 763 SCROLL STX TEMPX ;SAVE X 

45DA 60 634 RTS ;RETURN FOR CMMD sicenh, oe van ee 

4S5DB E6 24 635 LST4 INC CH MOVE RT 3 SPACES ee ae ak” hae peed og 2 wien 
vals Bees eae hae, 46D4 AI 00 766 LDA #0 TEMP CNTR 
ASDF 20 51 46 637 JSR INCPO ;INC IMADD & PNTR prey abs (OO a se cen neste pe eratien? 
45—E2 EE 88 43 «638 INC TCNTR 3 INC SCROLL CNTR Lancia sa ak nal ce 

la SC Be 45 es : a Est 46DB 8D 78 43769 STA CHT ;SAVE CUR POS 
45E8 641 % PRINT IMAGE ADDRESS PSar pg ler Ryan aes teh TEE sone eae bos 
45E8 See ahs 46E3 AD 78 43 772 LDA CHT 

45E8 AD 46F 43 643 PRTADR LDA IMADD+1 :PRINT ADDR GEER GSTOA 775 STA CH }RESET CURSOR 
45EB 20 DA FD 644 JSR PRBYTE aPRINT IT 46E8 AI 13 774 LDA #$13 3ONE LINE UP 
45EE AD 6E 43 645 LDA IMADD 46EA 20 SB FB 775 JSR TABV 

45F1 20 DA FD 646 JSR PRBYTE 44ED AE 88 43. «(776 LDX TCNTR 

45F4 AP AO 647 LDA #SPACE :PRINT 46FO EO 00 777 Cex tad 

45F6 20 ED FD 648 JSR COUT 46F2 FO 08 778 BEQ SCROLLS 

45F9 AP AD 649 LDA #DASH 46F4 20 B3 46 779 SCROLL2 JSR DECP1 3;RESTORE PNTRS 
45FB 20 ED FD 650 JSR COUT 46F7 CA 780 DEX 

4SFE A? AO 651 LDA #SPACE 46FB EO 00 781 CPX #0 3 DONE? 

4600 20 ED FD 652 JSR COUT 46FA DO FB 7a2 BNE SCROLL2 3NO 

4603 60 653 RTS 46FC AE 87 43 783 SCROLLS LDX TEMPX 

4604 654 * 46FF AD 86 43 784 LDA TCLCT ;RESTORE COL CT 
eel ee : RIGHT ARROW RTN 4702 8D 73 43 785 STA COLCT 

4604 AO 00 657 ARRR LDY #0 HERROR REG ng pie on pie ; Rvs 

4606 20 49 46 658 JSR INCP 3 INC ; 

4409 CO 00 659 CPY #0 :ERROR DETECTED? continued on next page 
460B FO 06 660 BEQ ARRR1 ;NO ERROR 
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480B 20 4E 48° «911 DEO JSR MOVMU :MOVE MEM UP 
A | M L e Machine 4B0E CE 6C 43-912 DEC ENDADR ;DEC LAST ADDR 
pp e es eee 4811 AD 6C 43-913 LDA ENDADR 
1 4814 C9 FF 914 CMP #$FF ;DEC HI BYTE? 
Language Editor) (Cont. a aba oe ne 


4818 CE 6D 43-916 DEC ENDADR+1 
4706 788 * DOWN SCROLL RTN Bo Se = aie DE1 bet sted ;DEC FILE LEN 
1 
A708 had Sig 4821 C9 FF 919 CMP #$FF 3DEC HI BYTE? 
4706 20 AO 48 790 DNSCR JSR SAVCUR SAVE PNTRS eS ae ae 
4709 AD 84 43-791 LDA COLMAX ;SET DEC AMT Spe . oalae ee pate ce ; 
ae me bes oe in i 4828 20 41 43 922 DE2 JSR FLDIS pie fe 
470E ED 73 43 794 SBC COLCT 482B 20 C7 48 923 JSR RESCUR 3 
4711 8D 7D 43-795 STA T2 ; STORE 482E 20 £9 48 «924 JSR ENDCHK 
3 4831 C9 00 925 CMP #$0 :CHK FOR LAST ADDR 
4714 CE 7D 43-798 DEC T2 
4717 AS F9 797 DNO LDA PNTR 4833 DO 04 een BNET DE? sMOVE LEFT 
4719 38 798 SEC = 2s 62 46 ed = ARRL ; 
6 
piel nd Li be oe bic pi 3 4939 Ag 15 929 DET LDA #$15 ;PREP FOR LIST 
471F BO 02 801 BCS DNi phe eS rd emi 
4721 Cé FA 802 DEC PNTR+i = ed a oe TAX 
4723 AD 6E 43 803 DNi LDA IMADD Gas AG! OO BSS . LDY #0 :ADDR OFFSET FOR LIST 
pale Sed oo See 4841 20C5 45 934 JSR LSTS :LIST 
4727 ED 7D 43 805 SBC T2 4844 20 C7 48 935 JSR RESCUR ;RESTORE CURSOR 
prions = 43 peed pas — 4847 AD 77 43-936 LDA CVT et 
JSR F 
472F CE 6F 43 808 DEC IMADD+1 ee” ae mek 
4732 20 58 FC 809 DN2 JSR HOME ;CLR SCREEN nate cae 
4735 A2 15 810 LDX #$15 ;LINE CNTR <= 940 & MOVE MEM UP RTN 
4737 20A5 45 ail JSR LSTO ;LIST PAGE mops ose 8 
473A 20 C7 48 «812 JSR RESCUR ;RESTORE PNTRS AG4E 20 AO 48 942 MOVMU JSR SAVCUR ;SAVE POINTERS 
A473D AP O1 B13 LDA #1 ;VERT POS Gane AO DL 943 MUL LDY #1 ; OFFSET 
A7SF 20'SB FR B14 JSR: TABY 4853 Bi F9 944 LDA (PNTR).Y 
4742 60 ais RTS 4855 88 945 DEY 
4743 816 8 4856 91 F9 946 STA (PNTR),Y 
4743 817 % DOWN ARROW RTN 4858 AS F9 947 LDA PNTR ;CHK FOR LAST ADDR 
4743 818 # USES ARRR 485A CD 6C 43 «(948 CMP ENDADR 
4743 si9 485D DO 08 949 BNE MU2 
4743 AD 84 43 820 ARRD LDA COLMAX ;PRINT RT ARRWS 495F AS FA 950 LDA PNTR+1 
4746 8D 7F 45 821 STA T4 4861 CD 6D 43-951 CMP ENDADR+1 
4749 20 04 46 822 ARRDS JSR ARRR 4864 DO 01 952 BNE MU2 
474C CE 7F 43 823 DEC T4 4866 60 953 RTS 
474F DO FS 824 BNE ARRDS 4867 E6 F9 954 MuU2 INC PNTR ; INC PNTR 
4751 60 825 RTS 4869 DO E& 955 BNE MU1 
4752 826 #8 486B Eé FA 956 INC PNTR+1 
4752 827 & UP ARROW RTN 486D 4C 51 48 957 JMP MU1 
4752 s26 8 4870 958 
4752 AD 43 829 ARRU LDA COLMAX ;PRINT LFT ARRWS 4870 959 & MOVE RIN 
4755 8D 7F 43 9830 STA T4 4870 960 8 
4758 20 62 46 831 ARRUS JSR ARRL 4870 20 AO 48 961 MOVEM JSR SAVCUR SAVE POINTERS 
475B CE 7F 43 832 DEC 14 4873 AD 6C 43 962 LDA ENDADR 3;SET POINTER FOR END 
475E DO FS 833 BNE ARRUS 4876 85 F9 963 STA PNTR 
4760 60 834 RTS 4878 AD 6D 43-964 LDA ENDADR+1 
S761 835 8 487B 85 FA 965 STA PNTR+1 
4761 836 ¢ INSERT ROUTINE 487D AO 00 966 MMVI LDY #0 PRESET OFFSET 
pao as 49 pas INGRT LDA #849 BLINKING "I" viata SLE eer pla alate 
3 4881 CB 968 INY 
wes onl bel ae See age2 91 F9 969 STA (PNTR),Y 
4766 20 42 FC 840 JSR CLREOP CLR TO END OF PG 4904 05 FO 970 LDA PNTR 
4769 AO 00 841 LDY #0 ;PRESET Y REG FOR MOVE pees a ae re ee cre IPT 
476B 20 70 48 842 JSR MOVEM ;MOVE MEMORY Moan Bord etid ue aa pars ;DONE 2 
S76 EES AS BSS TNS SNOADR 488B AS FA 973 LDA PNTR+1 
4771 DO OS 844 BNE INSR1 
4773 EE 6D 43 845 INC ENDADR+1 496D CD 7A 45 97% a 
4776 EE 74 43 846 INSR1 INC FCNT esti 2a ies po, BNE V2 
4779 D6 0S aay BNE Sn 4892 60 976 RTS ;MEM MOVE DONE 
77a EE 7S 45 EAB TG. FERT#1 4893 Cé F9 977. MV2 DEC PNTR ;DEC PNTR 
477E 20 41 43 849 INSR2 JSR FLDIS ;DIS CNT 4695 AS F9 778 LDA PNTR 
4781 AP 15 850 LDA #$15 ;SET LN CNTR FOR LIST packs (etal seied pind preach 
4783 38 a51 SEC 4899 DO E2 980 BNE MV1 
4784 E5 25 e52 SBC CV 489B Cé FA 981 DEC PNTR+1 
4786 BA B53 TAX ;LINE # IN X REG 489D 4C 7D 48-982 IMP MV1i ;LOOP BACK 
4787 AO 00 854 LDY #0 3;PRESET Y REG FOR LIST S8A0 Wes 8 
4789 20 C5 45. 855 JSR LSTS 48A0 984 & SAVE CURSOR POSITION RTN 
478C 20 C7 48 «856 JSR RESCUR ;RESTORE POINTERS 48A0 985 «8 
478F AD 77 43 e57 LDA CVT 4B8A0 AS 24 986 SAVCUR LDA CH 
4792 20 SB FB ese JSR TABV 48A2 8D 78 43 987 STA CHT 
4795 49 AO 859 LDA #SPACE ;PRINT 2 SPACES 4B8A5 AS 25 988 LDA CV 
4797 20 ED FD ‘860 JSR COUT 4807 8D 77 43-989 STA CVT 
479A 20 ED FD 861 JSR COUT 48AA AS F9 990 LDA PNTR 
479D C& 24 862 DEC CH 48AC 8D 79 43991 STA TPTR 
479F Cé 24 B63 DEC CH 48AF AS FA 992 LDA PNTR+1 
47A1 AD O1 B64 INS2 LDA #1 3;SET RTN FLG &CNCNT 48B1 8D 7A 43-993 STA TPTR+1 
47A3 8D 72 43 865 STA CHCNT 48B4 AD 6E 43-994 LDA IMADD 
4706 BD 8S 43 B66 STA RTNFLG 48B7 8D 7B 43 «(995 STA TIMD 
47A9 AF 00 867 LDA #0 ;CLEAR TEMP 48BA AD 6F 43 996 LDA IMADD+1 
47AB BD 76 43 «868 STA TEMP 48BD 8D 7C 43 «(997 STA TIMD+1 
A7AE 40 B4 47) «(849 aJMP INSS 48CO AD 73 43 998 LDA COLCT 
47B1 20 3A FF 870 INS7 JSR BELL ; ERROR 48C3 8D 86 43 «999 STA TCLCT 
47B4 20 OC FD 871 INS JSR RDKEY ;GET CHAR 48C6 60 1000 RTS 
47B7 C9 85 872 CMP #CONE 3 END? 48C7 1001 8 
47B9 FO 32 873 BEQ INS&é ;YES 48C7 1002 & RESTORE CURSOR POS RTN 
47BB C9 88 874 INSS CMP #LARRW ;LFT ARROW? 48C7 1003 8 
47BD DO OC 875 BNE INS4 ;NO 498C7 AD 78 43 1004 RESCUR LDA CHT 
47BF AD 72 43 876 LDA CHCNT 48CA 85 24 1005 STA CH 
47C2 CP O1 877 CMP #1 ;SECOND CHAR? 48CC AD 7B 43 1006 LDA TIMD 
47C4 FO EB a78 BEQ INS7 ;YES 48CF 8D 6E 43 1007 STA IMADD 
47C6 Cb 24 879 DEC CH ;MOVE CUR LEFT 48D2 AD 7C 43 1008 LDA TIMD+1 
47CB 4C Al 47 880 JMP INS2 48D5 8D 6F 43 1009 STA IMADD+1 
47CB 20 C2 42 «+4881 + INS4 JSR VALHEX VALID NUM? 48D8 AD 79 43 1010 LDA TPTR 
47CE C9 FF 882 CMP #$FF ;ERROR FLG 48DB 85 F9 1011 STA PNTR 
47D0 FO E2 883 BEQ INS3 3GET ANOTHER CHAR 48DD AD 7A 435 1012 LDA TPTR+1 
47D2 20 EC 42 +884 JSR STCH ;STORE CHAR coe pr A “a hae rad — 
- 
pn lg pwd eo cae a AGES BD 73 43 1015 STA COLCT 
ADA DO DC a7 BNE INSS ;NO-1ST CHAR quae 60 bois i RTS NOTE -- CV NOT RESTOREL 
47DC A2 00 ess LDX #0 ;PRESET OFFSET ASE? 1018 * ENCHK RTN 
47DE AD 76 43. «889 LDA TEMP aace ntey=y pt 
pied M4 a oe vi agree 48E9 AD 6C 43 1020 ENDCHK LDA ENDADR 
;MOVE CUR LEFT 
S7ES CE DA a92 Dec CH 4B8EC C5 F9 1021 CMP PNTR 
4BEE DO OA 1022 BNE ENS 
47E7 20 04 46 «893 JSR ARRR ;MOVE RIGHT AGFO AD 4D 43. 102 Fenian ROR 
47EA 4C 61 47 «894 JMP INSRT ;DO IT ALL AGAIN AQFS CS FA ‘aca et Biren 
47ED AD 72 43 895 INS6 LDA CHCNT 
APEC GD SE: 76 BEG INS7 pi pe oo or iba ae LAST ADDRESS 
47F2 AI 00 897 LDA #0 RESET RTNFLG 48F9 60 1027 Rre , 
47F4 8D 85 43 898 STA RTNFLG AOFA.A9 01 doce ENS inanes 
47F7 20 00 48 «899 JSR DELETE ;DELETE CHAR 48FC 60 1029 RTS 
47FA AD C9 900 LDA #8C9 NORMAL "I" 48FD 1030 8 
pei Dé 07 = = $7D6 48FD 1031 & EXCHANGE RTN 
pla ace 48FD 1032 8 
pete aoa at eee ne 48FD AI 5@ 1033 XCHG LDA #858 ;BLINKING "X" 
4800 905 ¢ ap02 a9 OL 1055 xi LDA #1 
4800 20 42 FC 906 DELETE JSR CLREOP :CLR TO END OF PG 4904 8D 72 43 1036 STA CHCNT eda leg Sa 
4803 20 £9 48 907 JSR ENDCHK ;CHECK FOR LAST ADDR 4907 8D 85 43 1037 
4806 C9 00 908 CMP #$0 STA RTNFLG 
A9IOA AF 00 1038 LDA #0 
4808 DO 01 909 BNE DEO 490C 8D 76 43 1039 STA TEMP ;CLEAR TEMP 
490F 20 OC FD 1040 x2 JSR RDKEY 3GET INPUT 
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4912 C9 1041 





elie pied He CMP in ates 3 DONE? 4983 20 C1 49 1091 JSR CHGD ;PROMPT LINE 
BEQ 4986 60 1092 RTS 3RETURN TO APPLESOFT 
nh Fe 3 teas kee 4987 1093 * ‘ 
WSiA AD 2 ux pone BNE X3 3NOT <-- 4987 1094 * LOAD FILE RTN 
491D C9 01 Ss LDA CHCNT 4987 1095 & $1 IN $3FF1i 
eine be 1046 CMP #1 3FIRST CHAR? 4987 1096 «& 
Raster en 1047 BNE X4 37NO 4987 AI 02 1097 LDFILE LDA #2 
Rea aien = FF 1048 JSR BELL ; ERROR 4989 8D Fi 3F 1098 STA $3FF1 
les 249 1049 JMP X1 498C AI IA 1099 LDA #LD1 3;STORE RETURN POINTER 
peak’ an = a ee x4 cio CH ;MOVE LEFT 498E 8D Fé 3F 1100 STA $3FF46 
P X41 4991 AP 49 1101 LDA /LD1 
492C C9 95 1052 x3 CMP #RARRW ;RT ARROW? 4993 8D F7 3F 1102 STA $3FF7 3JP% 
492E DO 04 1053 BNE X7 4996 20 Ci 49 1103 JSR CHGD 3;PROMPT LINE 
peo re oa Lard LDY CH 4999 60 1104 RTS sRETURN TO A-SOFT 
055 LDA (BASL),Y ;LOAD SCREEN CHAR 499A 20 27 41 1105 LD1 JSR NEWFILE 
4934 20 C2 42 1056 x7 JSR VALHEX ; VALID? 499D 20 CD 41 1106 JSR SETUP 
4937 C9 FF 1057 CMP #$FF :NOT VALID 49A0 20 FE 41 1107 JSR SET1 
4939 FO D4 1058 BEQ x2 49A3 AD 60 AA 1108 LDA $AA6O 
493B 20 EC 42 1059 JSR STCH 49A6 BD 74 43 1109 STA FCNT 
493E AD 72 43 1060 LDA CHCNT 49A9 AD 61 AA 1110 LDA $AA61 
4941 C9 FF 1061 CMP #$FF »DONE? 49AC 8D 75 43 1111 STA FCNT+1 
4943 DO CA 1062 BNE X2 P F 49AF 18 1112 cLc ;CALCULATE ENDADR 
4945 AD 76 43 1063 LDA TEMP  STuRe ECAR 49B0 A? 00 1113 LDA #STORE 
4948 AO 00 1064 LDY #0 49B2 6D 60 AA 1114 ADC $AA6O 3DOS FILE LEN 
4948 91 F9 1065 STA (PNTR) s 49B5 8D 6C 43 1115 STA ENDADR 
494C Ce 24 aes Rem co av phen: Bsa Pee 49B8 A? 5O 1116 LDA /STORE 
AI4E C& 24 1067 DEC cH i 49BA 6D 61 AA 1117 ADC $AAG1 
4950 20 04 46 1068 SERTRERE A 49BD BD 6D 43 1118 STA ENDADR+1 : 
4953 4C 02 49 1049 cael al HRT ARRW RTN 49C0 60 1119 RTS 3 A-SOFT 
4956 AD 72 43 1070 x9 LDA CHCNT ame eae 
4959 FO B4 1071 BEQ X2 49Ci 1121 * CHG DISK LINE 
495B AI 00 1072 LDA #0 49C1 1122 % 
495D 8D 85 43 1073 49C1 20 58 FC 1123 CHGD JSR HOME 
RSLOVEUIDG sana ~ Sree ' al 49C4 AP OC 1124 LDA #12 
4962 8D D2 07 1075 Sitaea eine sNORMAL "xX 49C6 20 SB FB 1125 JSR TABV 
4965 60 1076 RTS se 49C9 AI O09 1126 LDA #9 
4966 1077 ¢ 49CB 85 24 bY org STA CH 
4966 1078 & SAVE FILE 49CD AI AS 1126 LDA #CDP 3;PROMPT LINE 
4966 1079 8 $1 49CF 85 FD 1129 STA PNTADD 
cone 4 IN $3FF1 49D1 AI 44 1130 LDA /CDP 
4966 A9 01 1081 SVFILE LDA. #1 49D3 85 FE 1131 STA PNTADD+1 
4968 8D F1 3F 1082 49D5 20 BB 44 1132 JSR PRINT 
ae = STA $3FF1 FOR ON GOTO 49D8 20 OC FD 1133 JSR RDKEY 
1083 LDA FCNT 3;STORE LEN IN 49DB 60 1134 RTS 
496E 8D F2 3F 1084 STA $3FF2 49DC 1135 END 
4971 AD 75 43 1085 LDA FCNT+i 
4974 8D F3 3F 1086 STA $3FF3 
pated 9 ee she oa BEGADD ;STORE BEGIN ADDRESS sa4%% END OF ASSEMBLY 9 
TA S3FF4 
497D AD 71 43 1089 LDA BEGADD+1 
4980 8D F5 3F 1090 STA $3FFS 
M.L.E. Dri 
.L.E. Driver Il file directly from the image space in M.L.E. 
by W.T. Doyle to the desired destination on the disk. This 
s, io Sepia Hariaciath tendhsan eliminates the need for duplicate files and 
es . Mire 03755 9g reduces the number of disk operations by two 
’ thirds. Another modification of the BLOAD jf i? fn stab ah ak ie eae 
he Machine Language Editor, Apple command then allows us to load our files | 12 8" See a TRI uate 
M.L.E. (D. Sprinkle, Nibble, Vol.3/No.2) directly into M.L.E.’s image space at $5000, J 14 fen = —s By nicRo-srarc Inc s 
is one of those rare utilities that make andstill have available, the original disk start- 16 REN sauansnnssscssesssssss 
. . . 1 H : 
you wonder how you managed to get by ing address for reference. Since the machine § 110 onerr corto 440 


without it. |have used mine constantly since | 


language program requires it in that form, the 


REM 888 BLOAD MLE.B ts 


; 5 ; 138 LET DS = CHRS (4): HOME : VTAB 12; HTAB 18: PRINT 
finally got it entered correctly. Ifonlyitcould starting address will be reported in hexa- J iso pen see set ur PaTcrES 808. Dei PRE OAD EE ES 
have been used on itself! As | became more decimal notation. SSOU LER 06's eis ae ees Seer on ee eee 
dependent upon it however, M.L.E.’s little Finally, a key-click routine that clicks only 9 |. 3,00,07 22,64 FB AD 38 co se Ui aE 
idiosyncracies became more bothersome. onthe second character ofa pair is added to ce ATED eee eer 9 fore ee CAR Ae 
One of these is the awkward method the give us an immediate warning that a mis- ff 100 cau 14384 

. en . 198 REM #¢8 FILE LOADING 88 
driver program uses to get a binary file to pairing has occurred. ThishelpscutdoOwnon §f 296 print : HOME : PRINT De} “CATALOG: PRINT 2 PRINT 
its destination on the disk. Two copies of long strings of mis-paired characters. 218 LET N=_ PEEK (1636971 PRINT “ENTER “EXIT? TO RET 
every file are saved, and three separate disk MEN, TOU RENAE SPRING TSN NE Lee ee 
transactions are carried out before we get a HOW IT WORKS es = a ae 
working copy. A related difficulty becomes The new drive program, M.L.E. Driver II, is ] 24e Rem ses Bsave ROUTINE es 
. ° . . . . 250 LET L% = PEEK (146378) + 256 & PEEK (16371) 
apparent when we attempt to continue edit- shownin Listing 1. Itinvolves no direct modi- J 260 cet Ba = PEEK (16372) + 256 € PEEK (16373): LET 
‘ : ~ . H ‘ - = IT / 3 LET HI = « 
ing a previously saved file and are asked to fications to the M.L.E. machine language reas nent ito. ee ANTAL 
specify a starting address. As often as not,! program, and no special instructions are f 7° Ol i./Ptint -sue"s: & Ute PRINT. 
find that | have forgotten it. Since we havejust needed touse it. As muchas possible, it oper- J 29? PORE *1795,7: POKE 41796,0: POKE 41798,6: POKE 41 
loaded the file into the image space at hex ates just like the original M.L.E. driver. 270° PRINT Dei *DOAVE")E§a "GASRABB LMR 
$5000, the address is not even available at Line 150 patches in both the key click rou- 41799, 178 : : 2 
$AA72, $AA73. tine and a short hexadecimal converter for ]] $25 Rem see BLOAD ROUTINE tee 
Quite a different kind of difficulty arises, _ use inthe address report. Thekeyclickpatch J 326 (er ap FE Le ERR ee BOING sere eran dale evan 
curiously because M.L.E. works so well! As uses the Apple bell routine. The value 09 in Foo, poxe sisss6: POXe 41894,0: POKE 41058,7 POKE 41 
one begins to pick up touch-typing speed on _ line 150 controls the duration of the beep. It J) ae cnosiee 
hexadecimal characters under the benign may be changed to provide a more ora less | 37e PONE ALES; LAGE ARE 41608 ATMs PORE 4X08, 18s r ere 
influence of M.L.E., anew and insidious form noticeable click or beep. The modifications to see Ler BA = PEEK (6) ¢ 256 8 PEEK (7) 
of typing error begins to occur. The error is the BSAVE and BLOAD commands are more J 400 wore : vras 12: HTAB 6: PRINT Fes=,Aerrs & Bas PRINT 
‘ ; ; F i j “,LO";: 2 : “: PRINT AB 
not particularly easy to correct,evenwiththis generally useful. They are discussed in detail Fen a ea MARY EY, TOT CRATT OS STC DEE 
good editor. | find myself either omitting or elsewhere in this issue. P= he pe RE ee I > HS 
adding a character in a pair. . . Often by 428 CALL SPX: GOTO 188 
merely brushing a neighboring key. Then, A CAUTION “40 ter eck = ve ek (222 HOME TAB 11 TA 12 peal 
with M.L.E.’s auto-spacing help, | go on for One caution: These modifications involve 41799, 1781 POKE 41853, 1141 POKE 41654, 178: POKE 4 
: F % . 7,178: REM FIX 
dozens of character pairs before discovering patches that could leave a non-standard ver- J 40 Seite Tone’ CenOn Ene "REE: PRIMES MEAD. LAG, DUT 


that all of the characters are being mis- 
paired. Fortunately, these difficulties may all 
be dealt with in the driver program, without 
fampering directly with the machine language 
portion of M.L.E. itself. 


THE DRIVER MOD’ 
A simple modification of the BSAVE com- 
mand allows us to save a copy of our binary 


sion of DOS in memory, if you were to hit 
the Reset key at an inopportune moment. A 
warm start, via PR#6, will then restore DOS 
and should leave your binary file intact in 
memory. 


“PRESS RETURN ";AS: GOTO 186 


e 
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APPLE CAL 
The Time Machine 


by Glenn Teman 
106 Selwyn Road 
Newton, MA 02161 


Apple CAL is acomprehensive date keeper 
for planning your schedule, holidays, and ap- 
pointments days, months, and even years 
into the future. You can produce a calendar 
for one month or any range of months, for 
1982, 1985, 1989, etc. Moreover, you can have 
the holidays printed on the calendar for you, 
and/or you can enter your own important 
dates — yourspouse’s birthday, your parents 
anniversary, the Smith’s dinner party, and so 
on. 

APPLE CAL is an Applesoft program requir- 
ing at least one disk drive and a printer. Type 
RUN APPLE CAL to start it up. You will see a 
title page, and after pressing any key, the 
following menu: 
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1) PRINT CALENDAR 

2) ENTER/EDIT IMPORTANT DATES 
3) ENTER HOLIDAYS 

4) LIST IMPORTANT DATES 

5) QUIT 


Enter the option of your choice. 
THE OPTIONS 


PRINT CALENDAR 

This option initiates the printing of a calen- 
dar. Four questions are asked before the 
printing starts: 


FROM MONTH (JAN): 
THRU MONTH (DEC): 
YEAR (19XxX): 

OK? (Y): 


For FROM and THRU MONTH you may enter 
<RETURN> to accept the default (JAN and 
DEC respectively), or a three letter month 
abbreviation. 

For example, you may enter SEP and <RE- 
TURN> to print from September to December 
or you may enter JUN and JUN to print only 


the month of June. Similarly, for the YEAR 
prompt, you may enter<RETURN> to default 
to the year in parentheses or you may enter 
any year between 1981 and 2000. The default 
year is the year of the “date file” which is 
currently loaded into the APPLE’s memory. If 
youenter a different year, you will be notified: 
19XX FILE NOT IN MEMORY, and will be fur- 
ther asked, “LOAD FROM DISK?”. Answer Y 
to load in a previously created “‘date file” for 
that year or answer N to clear the file in 
memory and proceed without any “date file”. 


Finally, you will be asked OK? and if you 


answer Y or <RETURN>, the printing will 
proceed. To any of these prompts, if you enter 
an up-arrow, “/ ”, the option will be aborted 
and you will be returned to the menu. 

A sample of the calendar which is printed 
follows. Note that the year and month appear 
ontop, small calendars appear on the bottom 
for the previous and following months, and 
holidays and important dates appear at the 
bottom of the appropriate day’s box. Long 
dates are split in the middle, hyphenated, and 
are displayed on twolines. Ifa date is entered 
with aslash (/) init, itis divided into two dates 
at the point of the slash and each is preceded 
by a dot. 


ENTER/EDIT IMPORTANT DATES 

This option is used to enter or change the 
dates in your date file. You will be asked fora 
YEAR, aMONTH, a DAY, and the TEXT of the 
date. The YEAR will default to the year of the 
date file in memory and, as with the PRINT 
CALENDAR option, you will be asked if you 
wish to LOAD the file from disk if this year is 
not in memory. Again, an up-arrow will get 
you back to the menu. This option will not 
allow you to enter an invalid day, forexample 
MAY 32 or NOVEMBER 31. 

At the TEXT prompt, if there is already a 
date stored for the entered year-month-day, 
its text will appear below the dotted line on 
which you will enter your text. If you enter 
<RETURN>, the old text will be preserved. If 
you enter an asterisk («), that date will be 
deleted. You may enter any text characters so 
long as the length of the text is less than 19 
characters and as long as there are no em- 
bedded slashes (/). If there is an embedded 
slash, this will indicate to APPLE CAL that 
you wish to enter 2 dates for this year-month- 
day, and each slash-piece must not be more 
than 9 characters long. If there is some 
default text present, any text you enter will 
replace that text. 

When youare finished entering/editing text, 
enter an up-arrow (_ ). You will be asked if 
you wish to SAVE FILE TO DISK, and if you 
answer Y, a disk file will be created called 
CAL.FILE-19XX where XX is the year you 
were working on. This file may later be re- 
called for editing or printing, of course. 


ENTER HOLIDAYS 

ENTER HOLIDAYS is used to enter some or 
all of the holidays fora given year into the date 
file. If the holidays are to be entered fora year 
prior to 1987, the dates for these holidays will 
be obtained from APPLE CAL and displayed 
as defaults while each holiday is entered. For 
1987 or beyond, the name of the holiday will 
be presented, but you must enter the day that 
it occurs on. However, for such days as NEW 
YEAR’s DAY and CHRISTMAS which occur 
always on the same date in the month, that 
day will be given for any year. The days given 
for holidays that fall on a different day each 
year will usually be the MONDAY after the 


holiday, which we usually have as a vacation 
day. 

You will be asked for a YEAR. As with 
ENTER/EDIT IMPORTANT DATES, if the year 
entered does not match the year of the date 
file in memory, you will be asked if you wish to 
load that file from disk. A holiday’s name will 
be displayed, then its month, and you will 
either be asked for the day, or the day will be 
displayed (if the year is prior to 1987). You 
then will be asked OK?. Enter Y if you wish 
this holiday to appear on your calendar. If this 
day matches a day for which you already have 
a date saved, you will be shown the date and 
asked if you wish to REPLACE it. Answer Y or 
N. If you are asked for a day and you do not 
wish this holiday to appear on your calendar, 
enter an asterisk (*). When you have entered 
all the holidays or if you enter an up-arrow, 
you will be asked if you wish to save this date 
file, as in ENTER/EDIT IMPORTANT DATES, 
above. 


LIST IMPORTANT DATES 

This option is used to view on your monitor 
or print the date file. Answer the YEAR, FROM 
MONTH, and TO MONTH questions as be- 
fore. If necessary, you will be asked if you 
wish to load a date file from disk. Then you 
will be asked PRINTER OR SCREEN. Enter P 
to print a list of dates on a printer in APPLE 
SLOT 1 or enter S to view the list on your 
screen. 


QUIT 

Use this option to exit APPLE CAL. If you 
have not saved the date file on which you were 
working, do so (go into ENTER/EDIT IMPOR- 
TANT DATES and type an up-arrow at your 
first opportunity), because QUIT will not do it 
for you. You will be asked ARE YOU SURE? 
before APPLE CAL says GOODBYE. 


HOW APPLE CAL TICKS 
APPLE CAL starts by initializing some im- 
portant variables: 


N$(12,31) 
MO$(12) holds names of months 
L$ CHR$(124) =1 


holds text for a month, day 


D$ CHR$(4) for DOS 

DA$ String of 2 digit entries for the 
number of days in each month 

SLOT Printer slot — starts at 1 


Two functions are defined, also: one is a 
modulus-4 check for leap year testing and 
the other is a modulus-7 check. Then, a title 
page is displayed with a GOSUB 20000. The 
moving-asterisk marquee-like effect is created 
by FOR loops printing a space and an asterisk 
alternately. A keypress is checked for while 
printing each side of the marquee, and if it is 
detected, this causes a RETURN from the 
subroutine. 

On line 115, a GOSUB 20400 is performed 
which sets up a short machine language rou- 
tine from the APPLE REFERENCE MANUAL 
(page 136) which is intended to handle STACK 
problems caused by errors handled by an 
ONERR GOTO command. There are a lot of 
GOSUB’s and FOR loops in APPLE CAL, and 
each makes return address entries onto the 
STACK. If an error occurs a few times in a 
row, the stack has a tendency to get messed 
up. An OUT OF MEMORY error may appear, 
for example, if you answer the LOAD FROM 
DISK question several times with YES and 
APPLE CAL tries to load a non-existent file 


from disk several times in a row. The stack will 
be fine for a couple of commands and the 
error will be handled correctly by the error 
handling routine (“FILE NOT FOUND”), but 
then the system may do strange things. If an 
error should occur, type GOTO 500 to restart 
without losing the variables set up. Lastly, 
when the program starts, an attempt is made 
to load the 1981 date file from disk. The 
ONERR on line 130 protects against this file 
being undefined. The error handling routine 
starting on line 11000 is meant to handle just 
disk input/output errors. 

The MENU is displayed from line 500. On 
line 620, an ONI GOTO is executed instead of 
an ON | GOSUB because the STACK was 
filling up with GOSUB’s and nested FOR 
loops needed to print the calendar. This is 
also why several loops are “hard-coded” in- 
stead of using a FOR/NEXT loop. Because of 
the ON | GOTO, each option must execute a 
GOTO 500 when it has finished its job. 


The PRINT CALENDAR routine starts on 
line 1000. To achieve a formatted screen, all 
of the prompts are printed together (lines 1020 
to 1050). Then the questions are asked one by 
one. On line 1235, if the YEAR entered does 
not match the year loaded into memory, a 
GOSUB 7000 is executed to ask “LOAD FROM 
DISK?”. On line 7060, ONERR is enabled in 
case the requested file is not on the disk. As 
can be seen, the date file is simple: 


12 (months) * 31 (days) = 372 sequential data 
fields, mostly null, but some with text. The 
file’s name is “CAL.FILE-19XX” where XX is 
the second part of the year chosen. 


Whenever months are entered, a GOSUB 1280 
is executed to check the syntax of the input 
against the string of month abbreviations 
(line 1310) and return the number correspond- 
ing to the month. ERR is set equal to 1 if the 
input is invalid. 


THE DAY OF THE WEEK 

The next subroutine is called from line 1240 
with a GOSUB 1360. It is one of the most 
important routines because it calculates the 
day of the week for the first day of the month 
(for the year entered). The variable KK is 
started at 5 because Jan 1, 1981 isa Thursday, 
the 5th day of the week. Then, the number of 
years between 1981 and the year entered is 
calculated and 365 times this number is 
added to KK (lines 1390 to 1420) with provi- 
sion made for leap years (GOSUB 2600, line 
1410). The leap year calculation returns the 
variable LEAP = 0 or 1, depending on whether 
aleap year has occurred (i.e., ifthe year MOD 
4 =0 and the year MOD 100 NOT = 0). Next, 
the months between JANUARY and the FROM 
MONTH entered are calculated to add the 
correct number of days (from the DA$ string) 
to KK (lines 1450 to 1470), again with consid- 
eration to the months of FEBRUARY which 
have extra leap year days. Lastly, KK (the 
Day) is calculated MOD 7 to find what day of 
the week it is (line 1480). 


PRINTING THE CALENDAR 

Armed with this information, the calendar 
is ready to be printed. Between lines 1500 and 
1570, the Program loops through the FROM/ 
THRU MONTHS to print each month. A 
GOSUB 2240 is executed to print the previous 
and following months at the bottom of each 
calendar. The actual printing starts on line 
1580. Most of this code is self-explanatory. 


On line 1750, the DAY variable (from KK) is 
negated and 2 is added to it. Thus, if it were 3 
(= TUESDAY), it becomes -1. It is incremented 
for each day. When it becomes > 0, the day 
numbers start (with 1) so that the first day will 
fall on the correct weekday (in this case, 
TUESDAY). Three nested FOR loops control 
the printing: 1) Line 1760 for printing the 6 
boxes vertically; 2) Line 1770 for printing the 
six lines per box; and 3) for printing the 7 days 
horizontally. The latter is actually three loops, 
one used only for RR=1 (first line) to print day 
numbers (line 1790), one used for RR=2 to 
RR=4 to print spaces (line 1880), and one 
used for RR=5 and RR=6 to print any date text 
that is stored in the N$ array by month and 
day (line 1920). The last loop, if it detects a 
non-null N$ value, does a GOSUB 1990 to 
print the calendar “notes”. This routine splits 
the text into two lines if it is too long and looks 
for an imbedded slash which indicates two 
separate dates. It then prints the appropriate 
text, depending if RR is on line 5 or 6. When 
the calendar is finished, the bottom is printed 
with the GOSUB 2240. The routine at 1360 is 
used to find when the first day of the previous 
and following months occur, and loops at 
2320, 2370, and 2450 print these months. 


ENTERING DATA 

ENTER/EDIT IMPORTANT DATES starts 
at line 3000. Any dates entered are checked to 
ensure that they are valid (lines 3170 to 3190). 
If text is present for that date, it is displayed. 
On lines 3250 to 3280, length checks are per- 
formed on the text. This routine is not com- 
plicated nor is it very long. 

The ENTER HOLIDAYS routine starts on 
line 4000. All entries are based on the year 
under consideration. If it is less than 1987, a 
computation is done (line 4095) to yield a 
number which can be used to set the DATA 
statement pointer to the correct place. Other- 
wise, this number is 0. A loop is executed to 
read the DATA statements which start at line 
4500. Their structure is as follows: 


There are 17 dates per year. Eachis a padded 
day concatenated to a holiday, concatenated 
to a padded month number. There may be no 
padded day if it is unknown (for years > 1986). 


As the DATA is read, the month and day are 
displayed if they are known, and the user is 
asked “OK?”. If he or she says YES, the holi- 
day is filed into N$(month,day). If the day is O 
(line 4130), an exact date is sought from the 
user. This two-way branch is decided on line 
4130. If aday is known, the program proceeds 
to line 4300. Otherwise it continues on to line 
4140. When the user is finished entering holi- 
days, he or she is asked “SAVE FILE TO 
DISK?”. If the answer is YES, a GOSUB 6000 
is executed to handle the save. The ONERR 
flag is also set in this routine. 


The LIST DATES routine which starts on 
line 5000 is short and simple. After getting the 
YEAR and FROM/TO months (converted to 
numbers), it asks the user whether he or she 
wants to PRINT or view on the SCREEN. Then 
it uses the N$ array to print the important 
dates. 

Lastly, QUIT starts on line 10000. It asks 
“ARE YOU SURE?” and says GOODBYE if 
you are. No file is saved by this routine. 


continued on next page 
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MODIFYING APPLE CAL 

APPLE CAL can be modified in several 
ways. The printer slot # in SLOT (line 30) can 
be changed to suit your configuration. The 
calendar itself can be changed, for example, 
to leave off the asterisks surrounding the 
month, to print your name at the top, to 
change the I's of the boxes to..’s, etc. But, be 
careful! You must print the correct number of 
characters to keep the calendar in its grid 
form. 

The text handling can be changed also. 
Perhaps you would like 3 lines of text instead 
of 2.1 chose 2 to leave room for you to write in 
dates. This can be altered by changing line 


1870, lines 2000 through 2120, and the input/ 
edit checks for text length. This is nota trivial 
task. Also, | split dates that are too long inthe 
middle — you may choose to do it at the 9th 
character instead (see lines 2000 to 2120). 
You can change the “/” delimiter, too, which 
indicates that two dates are present (lines 
2010 and input/edit length checks). 

The ENTER HOLIDAYS routine can be 
changed rather easily. All dates which fall on 
a different day each year are coded in DATA 
statements as a MONDAY holiday. If this is 
not suitable, change the first two numbers of 
each HOLIDAY in the DATA statements to the 
day (padded!) of your choice. You can add 
holidays too as long as their format is the 
same (padded day-holiday-padded month 
number) and you change lines 4095 and 4120 
— the 17 should be changed to the new 
number of dates. 


POSTSCRIPT 

The best way to increase your skill in pro- 
gramming is to read other code and changeit. 
Also, this enables you to personalize a pro- 
gram and makes using it easier and more fun. 
So... have fun, print a lot of calendars, and 
enjoy APPLE CAL. 


NOTE: For those of you with Silentype 
Printers, please change the lines below as 
follows (for proper spacing — there are 21 
asterisks in 1640 and 1690): 


1640 PRINT SPC (S); LEFTS (“sxtwnrnnansennn 
weeeee” L+3) 

1660 PRINT SPC (S-11);“+ ”; 

1690 PRINT SPC (S); LEFT$ (“atxrnennwnnne 


weeeeee” L+3) 
v 
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25 26 27 28 29 30 31 


OCTOBER 


27 28.29 30 Si 


DECEMBER 


1 REM 33998 HH HHH HER 
2 REM * APPLE CAL * 
3 REM * BY GLENN TEMAN * 
4 REM * COPYRIGHT (C) 1982 * 
S REM * BY MICRO-SPARC INC * 
6 REM * LINCOLN, MA. 01773 * 
7 REM 389 3636 96 6 98 98 HE 6 6 HEE IE HE EE EE HEHE 


DIM N$(12,31) ,M0$(12) 


28 L$ = CHR (124):D8 = CHRS (4) 

3@ DAS = °312831303130313130313031":SLOT = 1 

48 FOR I = 1 TO 12: READ A$:MO$(I) = A$: NEXT | 

45 DATA JANUARY , FEBRUARY ,MARCH, APRIL ,MAY , JUNE, JULY ,AUG 


UST , SEPTEMBER , OCTOBER ,NOVEMBER , DECEMBER 


68 DEF FN M(X) = ((X 4 4 - INT (X / 4)) * 4): DEF FN 


108 
110 


115 
128 
138 
148 
158 
168 
178 
5ee 
518 
S15 
528 


525 
538 
548 
558 
568 
576 
58a 
578 
688 
618 
628 
1686 
1018 
1826 


1838 
1848 
1658 


1868 
1678 
1686 


1698 
1180 
1118 
1128 
1138 


1148 
1156 
1168 
1178 
1188 
1198 


1268 


1218 
1226 
1236 
1233 
1235 
1248 
1258 
1255 
1268 
1278 
1288 
1298 
1388 
1318 


1328 
1338 


WERT CCK 7 =~ ANT CX 7 2) yee 2) 
GOSUB 28008: REM TITLE PAGE 
HOME : VIAB 18: HTAB 11: PRINT "<JUST A MOMENT..." 


GOSUB 20488 


YE = 1981:NO0 = 1 


ONERR GOTO 11008 


SAV = @ 
Y = YE: GOSUB 7878:Y = @ 


POKE 216,86 


NOO = 8 


REM *% MENU *# 

HOME : PRINT : PRINT 

INVERSE 

PRINT "APPLE CAL";: HTAB 24: PRINT “BY GLENN TEMAN" 


NORMAL 
VTAB 8 

PRINT "1) PRINT CALENDAR" 
VTAB 18: PRINT "2) ENTER/EDIT IMPORTANT DATES' 
VTAB 12: PRINT "3) ENTER HOLIDAYS 
VTAB 14: PRINT "4) LIST IMPORTANT DATES' 
VTAB 16: PRINT "S) QUIT" 
VTAB 22: INVERSE : PRINT " CHOICE: ";: NORMAL 
INPUT " *;€$:1 = VAL (AS) 

IF I < 1 OR 1 ) 5 THEN PRINT CHR$ (7): GOTO 518 
ON I GOTO 1808,3000,4000,5000, 10000 

REM ** PRINT CALENDAR ** 
A$ = "PRINT CALENDAR": GOSUB 8908 

VTAB 8: HTAB 1: PRINT "FROM MONTH (JAN): "3: CALL 
- 868 

VTAB 18: HTAB 1: PRINT "THRU MONTH (DEC): "3: CALL 
- 868 

VTAB 12: HTAB 1: PRINT “YEAR (";YE3"): "3: CALL - 
868 

VTAB 14: HTAB 1: PRINT * 
868 

VTAB 8: HTAB 19: CALL - 868: INPUT "";AS 

IF AS = "** THEN 58@ 

IF A$ = ** THEN A$ = "JAN": VTAB 8: HTAB 19: PRINT 
"JAN 

GOSUB 1286: IF ERR THEN 1048 

F = VAL (AS) 

VTAB 18: HTAB 19: CALL - 868: INPUT **;AS 

IF A% = "** THEN 5@ 


OK? CY): "3: CALL - 


IF A$ = "* THEN AS = "DEC": VTAB 18: HTAB 19: PRINT 


"DEC" 
GOSUB 1286: IF ERR THEN 1118 
T= VAL (AS) 
IF F > T THEN PRINT CHRS (7);: GOTO 1068 
VTAB 12: HTAB 14: CALL - 868: INPUT "";Y$ 
IF Y$ = "** THEN 5866 
IF Y$ = "* THEN Y$ = STRS (YE): VTAB 12: HTAB 14: 
PRINT Y$ 
Y = VAL (Y$): IF Y ¢ 1981 OR Y > 2668 THEN PRINT 
CHR® (7);: GOTO 1178 
VTAB 14: HTAB 15: CALL - 868: INPUT “* ;AS 
IF AS <¢ > “" AND LEFTS (A$,1) ¢ > "Y* THEN 588 
VTAB 14: HTAB 15: PRINT "YES" 
REM LOAD FROM DISK? 
IF YE < » Y THEN YE = Y: GOSUB 7086 
GOSUB 1368: REM FIND 1ST DAY OF MONTH 
GOTO 1508 
PRINT D$;"PRRO" 
GOTO 588 
REM 
REM #** MONTH ERROR ** 
ERR = A 
FOR f= 1) 7042 
IF AS = MIDS (*JANFEBMARAPRMAY JUNJULAUGSEPOCTNOVD 
EC"',] # 3= 2,3) THEN 1348 
NEXT I 
PRINT CHR¢ (7);;ERR = 1: RETURN 


1348 AS = STRS (1): RETURN 


1358 
1368 
1378 
1386 
1398 
1488 
1418 
1428 
1438 
1458 
1468 
1465 


1478 
1486 


1485 
1498 
1508 
1585 
1516 
1515 
1526 
1538 
1548 
1545 
1558 


1568 
1578 
1588 
1598 
1608 
1610 


1628 
1638 
1648 


1656 
1666 
1678 


1686 
1698 


1788 
1718 
1728 


1738 
1748 
1756 
1768 
1778 
1788 
1798 
1888 


1818 
1828 
1838 
1848 
1858 
1868 
1878 
1888 
1896 
1908 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1988 
1998 
2008 
2065 
2087 
2018 
2828 
2838 


2835 
2048 
2058 
2068 


2078 
2088 


REM 

REM #** LOOP ON MONTHS ** 
KK = 
- 1981 - 1: IF YR < ® THEN 1438 

= @ TO YR 
K + 365 
981 + 1: GOSUB 260@:KK = KK + LEAP 


0 


uno i 


S 
af 
] 
K 
1 


F - 1: IF MN < 1 THEN 1486 
OR 1 = 1 TO MN 
KK + VAL ¢ MIDS (DA$,I1 * 2 - 1,2)) 

IF 1 = 2 THEN YY = Y: GOSUB 2606:KK = KK + LEAP: REM 
FEB IN LEAP YR 

NEXT 

DAY = INT ¢ FN W(KK) + .5): REM WEEKDAY OF 1ST DA 
Y OF MONTH 

1F DAY = ® THEN DAY = 7 

RETURN 
M=F-41 
M=M+ 1: IF M > T THEN 1578 

GOSUB 1586 
KH = KK: GOSUB 2248: REM LAST & NEXT MONTH 
KK = KH + VAL ¢ MIDS (DA$,M # 2 - 1,2)) 

IF M = 2 THEN YY = Y: GOSUB 2688:KK = KK + LEAP 
DAY = INT ¢ FN W(KK) + .5) 

IF DAY = @ THEN DAY = 7 

PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : REM 
NEXT PAGE 

GOTO 1565 

GOTO 1255 

REM *#* PRINTING #* 

PRINT : PRINT D#;"PR#" ;SLOT 

PRINT : PRINT : PRINT 
MS = MO$(M):L = LEN (M$) * 2:ND = VAL ( MIDS (DAS 
sh % 2 =a 2)) 

IF M = 2 THEN YY = Y: GOSUB 26@8:ND = ND + LEAP 
Steet 78 = Lo ay ee 

PRINT TABC S)3 LEFTS ("####HHHHHEHEEHREREERE" | + 
3) 

PRINT "= (APPLE -2)"§ CHRS (91)47+"s 

PRINT TAB S);"* "5 

FOR 1 = 1 TOL / 2: PRINT MIDS (M$,1,1);° “3: NEXT 
I: PRINT "®"; 

PRINT» SPEC 67 —S.= Ley 

PRINT TAB( S) 5 LEFTS ("##xHHHHHERAEAHRERRERE” | + 
3) 

PRINT : FOR I = 1 TO 78: PRINT "="3;: NEXT 

PRINT : PRINT L$;" SUN “skSe" MON) 's 

PRINT L$;° TUES SES" WED "3S" THR 


YR 
F 
KK 
YY 
N 
MN 
F 
KK 


s 
PRINT * FRI Poe f* SAT ";Ls 


FOR I = 1 TO 78: PRINT "="3;: NEXT : PRINT 
DAY = - DAY + 2 

FOR R= 1 T0 6 

FOR RR = 1 T0 6 


PRINT L$;: IF RR > 1 THEN 1878 

FOR 1 = 1707 

IF DAY < 1 OR DAY > ND THEN PRINT * “3: GOTO 183 
) 

IF DAY < 18 THEN PRINT * °; 

PRINT DAY; 

DAY = DAY + 1 

PRINT * "SL$; 

NEXT 1 

GOTO 2130 

IF RR > 4 THEN 1928 

FOR 1 = 1707 

PRINT * *sL3; 

NEXT I 

GOTO 2138 

FOR D = DAY - 7 TO DAY - 1 

IF D < 1 OR D > ND THEN SP = 16: GOTO 1968 
SP = 18 

IF N$(M,D) < > ** THEN GOSUB 1998;SP = LFT 
PRINT SPC( SP);L3; 


NEXT D 

GOTO 2138 

REM %** NOTES ON CAL ** 

A$ = N$(M,D) 

L=e@ 

L=L+ 14: 1F L > LEN (A$) THEN 2038 

IF MID$ (A$,L,1) = "/* THEN 2118 

GOTO 2007 

IF LEN (A$) < 1@ THEN LFT = 18: IF RR = 6 THEN PRINT 


A$;:LFT = 18 - LEN (A$) 
IF LEN <A%) < 18 THEN RETURN 
L = LEN (AS) / 2:LFT = 18 -L 


IF L < > INT (L) THEN 2888 

IF RR = 5 THEN PRINT LEFTS (A$,L)3;"-";:LFT = LFT 
- 1: RETURN 

PRINT RIGHTS (A$,L);: RETURN 

IF RR = 5 THEN PRINT LEFT$ (A$,L);"-";: RETURN 


continued on next page 
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APPLE CAL S228 IF ae m= ** AAD YO <> °° THEN GALL = 9688 VIAB 


1 M hi C 3225 IF A$ = "*" THEN CALL - 868: PRINT "(DELETED>";: 
The Time Machine (Cont.) inna ss de anne aie 
3238 IF A$ = "*" THEN 3400 
: 3248 IF A$ = "" THEN 3388 
mi ig ee A or 325@ IF LEN (A$) ) 18 THEN PRINT CHR$ <7);: GOTO 328 
sw, = Pe = 8 
aes i + gh Bla PANT > Hie ene tar an ee de 3268 FOR 1 = 170 LEN (A$): IF MIDS (A$,I,1) = */* THEN 
INT *.* See ae 3288 
2128 . Ms one (AS, LEN (AS) L)3:LFT = 9 LEN 3278 NEXT : GOTO 3298 


3280 IF I > 1@ OR LEN (A$) - I > 9 THEN PRINT CHRS ¢ 


2138 PRINT 7);: GOTO 3208 

2148 NEXT RR 3298 NS(M,DAY) = AS 

2158 PRINT L$; 3366 FOR ] = 1 TO 756: NEXT 1 

2168 FOR] =11T07 3318 L =1 

Z1ZeL FRING S23 S-3-e- =~ ng 3328 VTAB 11: CALL - 958: GOTO 3630 

2188 IF 1 < 7 THEN PRINT “+"; 348@ \VTAB 28: CALL - 958: INPUT “SAVE FILE TO DISK? °; 

2198 IF I = 7 THEN PRINT L$ As 

2268 NEXT I 3418 IF LEFT$ (A%,1) = ‘Y" THEN GOSUB 6086 

2218 NEXT R 3428 GOTO See 

2228 RETURN 4800 REM %** ENTER HOLIDAYS ** 

2238 REM 481@ A$ = “ENTER HOLIDAYS": GOSUB 8008 

2248 REM ** PRINT LAST & NEXT MONTH #* 4828 VTAB 8: HTAB 1: PRINT "YEAR (";YE;"):* 

2258 IF M= 1 AND Y = 1981 THEN D1 = - 2 + 2:N1 = 312: 403@ VTAB 12: HTAB 1: PRINT “HOLIDAY:* 
GOTO 2298: REM DEC ‘88 4948 VTAB 14: HTAB 5: PRINT "MONTH:*;: HTAB 28: PRINT " 

2268 F =M - 1: IF F ¢ 1 THEN F = 12:Y = Y - 1 DAY: " 

2278 =GOSUB 1368: IF F = 12 THENY = Y + 1 4068 VTAB 8: HTAB 14: CALL - 868: INPUT *";Y$ 

2288 D1 = —- DAY + 2:N1 = VAL ( MIDS (DA$,F * 2 - 1,2)) 4070 IF Y¢ = "* THEN Y$ = STR$ (YE): VTAB 8: HTAB 14: PRINT 
: IF F = 2 THEN YY = Y: GOSUB 268@:NI = Ni + LEAP Ys; 

2298 F=M+ i: IF F > 12 THENF = 1:Y=Y +41 


408@ IF Y$ = "** THEN 5e6 


oe ee ee BA 4098 Y = VAL (Y#): IF Y ¢ 1981 OR Y > 2088 THEN PRINT 


2318 D2 = - DAY + 2:N2 = VAL ( MIDS (DA$,F # 2 - 1,2)) CHR$ (7);: GOTO 4068 
ese FU 1 Ot Te 6 4095 R = @: IF Y < 1987 THEN R = (6 + Y - 1986) # 17 
2338 IF 1 = 3 THEN PRINT" * NIBBLE MAGAZINE * ‘;: GOTO 4108 RESTORE 1 FOR 1 = 1 70 12 + Rr READ AS: NEXT 
aed 4128 FOR I = 1 TO 17 
2348 IF 1 = 4 THEN PRINT" (C) GLENN TEMAN 1981°;: GOTO A138. READ aby IF VAL COYOTE 4088 
2368 s 2 
4 = ( RIGHTS (A$,2)):A$ = LEFTS (AS, LEN (AS) 
2358 PRINT SPC( 23); sec ps oe : ; 
2568 PRINT SPEC 4)} 415@ TAB 12: HTAB 18: PRINT AS; 
ceil ee Wd 4168 VTAB 14: HTAB 13: PRINT MOS<M); 
238@ IF Di ¢ 1 THEN PRINT *  "3;:Di = Di + 1: GOTO 243 4170.) WAS ths HARD 94; GAkka ) aiemes rn 
8 
4188 IF Y$ = "*" THEN 4448: REM SAVE? 
2488 IF Di > Ni THEN PRINT * ‘3: GOTO 2430 4190 IF Yo = “s* THEN 4410¢:GeMOaeKT 
2418 IF Di ¢ 18 THEN PRINT * "; 4288 DAY = VAL (Y$): IF DAY = 8 THEN PRINT CHRS (7);: 
2428 PRINT * ";D1;:D1 = Di + 1 eoro 4178 
2438 ill ste 4218 D = VAL ( MIDS (DAS,M # 2 - 1,2)): IF DAY > D AND 
aoe ec ged, M < ) 2 THEN PRINT CHR (7);: GOTO 4178 
PA 4228 IF M = 2 THEN YY = Y: 608: IF DAY > D + LEA 
2468 IF D2 <1 THEN PRINT *  ‘3:D2 = D2 + 1: GOTO 251 eek RING ies has ore re 
. : 
4238 IF NS(M,DAY) = "* THEN 44¢@: REM FILE 
2488 IF D2 > N2 THEN PRINT " ‘3: GOTO 2518 ran aa. y Lait *2 esebe 
ee we 41s Sen Peo * 4248 i Tae 201 HTAB 1: CALL - 868: PRINT “REPLACE *;NS 
eo 8, — = ’ 
Se Aig iD2;:D2 = D2 + 1 4258 PRINT * WITH ";A$;: INPUT * OK? ";B8 
cae Pemet 4268 IF LEFTS (B$,1) = "Y" THEN 440@: REM FILE 
ay lc ol 4278 VTAB 21: CALL - 868: PRINT "| <NOT REPLACED)"; 
2548 PRINT SPC( 35);MOS(M - 1 + 12 * (M = 19); mee pill? pile 2 ge 
i med l 4306 M= VAL ( RIGHTS (A$,2)):DAY = VAL ( LEFTS (A$,2) 
2545 I = LEN <MOS(M - 1 + 12 * (M = 1))) Tien? Pe DGAaN Gagan tions ae 
2558 PRINT SPC¢ 6@ - 35 - 1);MOS(M + 1 - 12 * (M = 12) 4318 UTAB 12: HTAB 18: PRINT aa: 
) ’ : i 
4328 VTAB 14: HTAB 13: PRINT MOS(M); 
— aga LEAP YR? #* 4338 HTAB 34: PRINT DAY 
Se aa , 4348 IF NS(M,DAY) = "* OR A$ = NS(M,DAY) THEN 4378 
2 ea Sr oer ae, 4358 _iae 24s HTAB 1: CALL - 868: PRINT “REPLACE *;NS< 
= ’ 
aa jeg Te Ler = i 4368 PRINT * WITH ";A8; 
38@@ REM %** ENTER/EDIT IMPORTANT DATES #* ped eta ‘“ ee vapnaninrt 
3818 AS = “ENTER/EDIT IMPORTANT DATES": GOSUB 8808:L = 8 eas SRL cate dents o °F" Ce bc > hee dae 
; i 
are - ee FILE 
ER ie Gs AD 34 LS See Pa me SI 4398 VTAB 21: CALL - 868: PRINT *  <NOT FILED>";: FOR 
3838 VTAB 12: HTAB 1: CALL - 868: PRINT “MONTH:" dank ith bias os ce ee 
304@ VTAB 14: HTAB 1: CALL - 868: PRINT “DAY:" ' : 
Seas? eae Aci Ghee 17 CL. < Gabe ORIMT PDT)” 4410 vie 18: CALL - 958: VTAB 12: HTAB 1: PRINT "HOLI 
306@ IF L THEN 3118 F = 4 
cares eae bs wine 14; OAL < dee: DeUT “1AN0 4428 ivtae 14: HTAB 5: PRINT "MONTH:";: HTAB 28: PRINT 
3088 IF Y$ = "* THEN Y$ = STRS (YE): VTAB 8: HTAB 14: PRINT ictemis 
Ys; . . 
= See 4448 vine 28: CALL - 958: INPUT "SAVE FILE TO DISK? *; 
3108 Y = VAL (Y$): IF Y ¢ 1981 OR Y > 2886 THEN PRINT S 
CHRS (7);: GOTO 3078 ase 1F errs (A$,1) = "Y* THEN GOSUB 6088 
3185 IF Y < > YE THEN GOSUB 7006:YE = Y pt De sige: 
VT : A = : IN vi 
ae whe Ng Ph, Be eae a. 4518 DATA 81NEW YEAR’S DAY@1,14VALENTINE’S DAY@2,WASHI 
Ssab Gente 1208 16 ork Te 2110 NGTON’S BDAY82,17ST PATRICK’S DAY@3,PASSOVER@4 , EAST 
ah = We 6) ER@4,MOTHER’S DAY@5,MEMORIAL DAY@5,FATHER’S DAY®6 
4 A 4528 DATA @4INDEPENDENCE DAY@7,LABOR DAY@9,COLUMBUS DAY 
4: HTAB 6: L. 868: L ’ ’ 
pd pt pe thE: rice ion oer mite, 18, 31HALLOWEEN1@,11VETERAN’S DAY11, THANKSGIVING! 1 ,H 
317@ DAY = VAL (A$): IF DAY = @ THEN PRINT CHR$ (7);: —_ a aa ae ee 
GOTO 3158 
3188 D = VAL ( MIDS (DAS,M * 2 - 1,2)): IF DAY ) D AND 4548 DATA @1NEW YEAR’S DAY@1,!4VALENTINE’S DAY®2, 16WAS 
MH <>) 2 THEN PRINT’ CHRS (7);: GOTO 3158 HINGTON’S BDAY@2,17ST PATRICK’S DAY@3, 19PASSOVER®4, 
3198 IF M = 2 THEN YY = Y: GOSUB 2608: IF DAY > D + LEA a aad tee DAY®S, 2SMEMORIAL DAY@S,21FATH 
P THEN PRINT CHR$ (7);: GOTO 3158 
3200 YS = °"*: IF NO(H,DAY) <> ** THEN Y$ = NS(M,DAY): TAB 4558 DATA  @4NDEPENDENCE DAY@7,@7LABOR DAY@?, 1 2COLUM 
17: MTAB 71 CALL’ - 868: PRINT "<*;Y8;")"; BUS DAY1@,31HALLOWEENI®,11VETERAN’S DAY11,26THANKSG 
3218 VTAB 16: HTAB 7: CALL - 868: PRINT “...... yee: TVING11 , 21 HANUKKAH] 2 , 25CHRISTMAS1 2 
rhe e *:: HTAB 7: INPUT "";A% 4560 REM 1982 
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4578 


4588 


4598 
4608 


4618 


4628 
4638 


4648 


4658 
4668 


4678 


4688 
4698 


4780 


5e0e 
5618 
3828 
5838 
5848 
5658 
568 
5878 
5ese 


5898 


5168 
5118 
5128 
5138 


5148 
5158 
5168 
5178 
5188 


5198 
5268 
5218 
5228 
5238 
5248 


5258 
5255 
5268 
5278 
5288 
5298 
5388 
3318 
5328 
5338 
5348 
5358 
5368 
5378 
5388 
3385 
5398 
5408 


5418 
6088 
6818 
6815 
6828 
6838 
6848 


6658 
6868 
6678 
6888 
6898 
6168 
6118 
$120 


DATA @1NEW YEAR’S DAY@1,14VALENTINE’S DAY®@2,15WA 

SHINGTON’S BDAY@2,17ST PATRICK’S DAY@3, @SPASSOVERG4 
»1TEASTER@4 ,@9MOTHER’S DAY@S,31MEMORIAL DAY@S, 20FAT 
HER’S DAY@S . 

DATA § @4INDEPENDENCE DAY@7,@6LABOR DAY@9,11COLUM 
BUS DAY1@,31HALLOWEEN1@,11VETERAN’S DAY11,25THANKSG 
IVING1 1, 11 HANUKKAHI 2, 25CHRISTMAS1 2 

REM 1983 

DATA BNEW YEAR’S DAY®@1,14VALENTINE’S DAY®2,21W 
ASHINGTON’S BDAY82,17ST PATRICK’S DAY@3, 29PASSOVERS 
3, @3EASTERO4 ,@SMOTHER’S DAY@5,38MEMORIAL DAY8S,19FA 
THER’S DAY8S 

DATA 84INDEPENDENCE DAY@7,@5LABOR DAY@9, 1@COLU 
MBUS DAY1@,31HALLOWEEN1® ,11VETERAN’S DAY11,24THANKS 
GIVING! 1 ,@1HANUKKAHI 2, 25CHRI STMAS1 2 

REM 1984 

DATA @INEW YEAR’S DAY®@1,14VALENTINE’S DAY@2, 20W 
ASHINGTON’S BDAY@2,17ST PATRICK’S DAY@3, 1 7PASSOVER® 
4,22EASTER@4,13MOTHER’S DAY@5,28MEMORIAL DAY@5,17FA 
THER’S DAY@S 

DATA @4INDEPENDENCE DAY@7,@3LABOR DAY@9,@8COLU 
MBUS DAY1@,31HALLOWEEN1@,11VETERAN’S DAY11,22THANKS 
GIVING1 1 , 1 PHANUKKAHI 2, 25CHRISTMAS! 2 

REM 1985 

DATA BINEW YEAR’S DAY81,14VALENTINE’S DAY®@2, 1! 8W 
ASHINGTON’S BDAY@2,17ST PATRICK’S DAY@3,@éPASSOVER@ 
4, @7EASTERB4,12MOTHER’S DAY@5,27MEMORIAL DAY@5,16FA 
THER’S DAY@é 

DATA @4INDEPENDENCE DAY@7,@2LABOR DAY@9,14COLU 
MBUS DAY1@,31HALLOWEENI@,11VETERAN’S DAY11,28THANKS 
GIVING11 ,@8HANUKKAHI 2, 25CHRI STMAS1 2 

REM 1986 

DATA BINEW YEAR’S DAY®@1,14VALENTINE’S DAY@2,17W 
ASHINGTON’S BDAY82,17ST PATRICK’S DAY@3, 24PASSOVERG 
4, 30EASTER@3,11MOTHER’S DAY85,246MEMORIAL DAY@5,15FA 
THER’S DAY8S 

DATA @4INDEPENDENCE DAY@7,@1LABOR DAY@?,13COLU 
MBUS DAY1@,31HALLOWEEN1@,11VETERAN‘S DAY11,27THANKS 
GIVING11 ,27HANUKKAHI 2, 25CHRISTMASI 2 

REM ** LIST DATES *# 

AS = "LIST DATES": GOSUB 8888 

VTAB 8: HTAB 1: PRINT "YEAR (";YE;");:" 

VTAB 18: HTAB 1: PRINT "FROM MONTH (JAN):"* 

VTAB 12: HTAB 1: PRINT "TO MONTH (DEC):* 

VTAB 14: HTAB 1: PRINT "PRINTER OR SCREEN:* 

VTAB 8: HTAB 14: CALL - 868: INPUT "";Y$ 

IF Y$ = "** THEN 588 

= "" THEN Y$ = STRS (YE): VTAB 8: HTAB 14: PRINT 


Y = VAL (Y$): IF Y ¢ 1981 OR Y > 266@ THEN PRINT 
CHR$ (7);: GOTO 5e68 
IF Y < > YE THEN GOSUB 7006:YE = Y: REM LOAD 
VTAB 18: HTAB 19: CALL - 868: INPUT “";A$ 
IF AS = "** THEN 58@ 
IF AS = "* THEN AS = “JAN": VTAB 18: HTAB 19: PRINT 
As 
GOSUB 1286: IF ERR THEN 5118 
F = VAL (A$) 
VTAB 12: HTAB 17: CALL - 868: INPUT “";A$ 
1F AS = "*" THEN 566 
IF AS = *" THEN AS = “DEC*: VTIAB 12: HTAB 17: PRINT 
AS 
GOSUB 1288: IF ERR THEN 5168 
T= VAL (AS) 
VTAB 14: HTAB 26: CALL - 868: INPUT “";A% 
IF At = "** THEN 568 
IF LEFTS (A$,1) = "S" THEN 5268 
IF LEFT$ (A$,1) < > "P" THEN PRINT CHRS (7);: GOTO 
35218 
PRINT D$;"PR#* ; SLOT 
PRINT : PRINT : PRINT 
HOME 
AS = "DATES LIST: " + STR (Y) 
PRINT TAB( 12) ;AS 
AS = MOS(F) + * THRU ” + MOS(T) 
PRINT TAB (48 - LEN (AS)) / 2) ;AS 
PRINT : PRINT 
FORM =F TOT 
PRINT : PRINT MO$<M) 
FOR D = 1 TO 31 


IF N$(M,D) = "" THEN 5376 

PRINT TAB( 3);D; TABC 7) ;N$(M,D) 
NEXT D 

NEXT M 


PRINT CHR (12) 
PRINT D$;"PR#O" 
PRINT ; INPUT " <HIT “RETURN’ TO CONTINUE...” ;A% 
GOTO 5ee 

REM #*# SAVE TO DISK ** 

ONERR GOTO 11688 

SAV = 1 

PRINT * ¢*;YE;: INPUT *) ARE YOU SURE? *;B¢ 

IF LEFT$ (B$,1) = "N" THEN 6168 

IF LEFTS (B$,1) < > *Y" THEN PRINT CHR® (7);: GOTO 
6028 
BS = *CAL.FILE-" + STR (YE) 

PRINT D$;"UNLOCK® ;BS 

PRINT D$; "OPEN" ; BS 

PRINT D$; "WRITE" ;BS 

FOR M = 1 TO 12 

FOR D = 1 TO 31 

PRINT N$(M,D) 

NEXT D 


6138 
6148 
6158 
6168 
6178 
6188 
7888 
7018 
7828 
7838 
7048 
7058 


7068 
7878 
7088 
7898 
7100 
7118 
7120 
7138 
7148 
7158 
7168 
7178 
7208 
7218 
7228 
7238 
7248 
7258 
7268 
7278 
8808 


NEXT M 

PRINT D$;"CLOSE® ;B% 

PRINT D$;"LOCK" ;B$ 

POKE 216,8: REM OFF ONERR 
PRINT CHR$ (7); 

RETURN 

REM %*LOAD FROM DISKx* 


SAV = 8 


VTAB 20: PRINT Y;" FILE NOT IN MEMORY.* 

INPUT "LOAD FROM DISK? ";B% 

IF LEFT$ (B%,1) = "N* THEN 7208 

IF LEFT$ (B$,1) { ) "Y" THEN PRINT CHR$ (7)3: GOTO 


7638 


ONERR GOTO 11000 


BS = “CAL.FILE-" + STRS (Y) 


PRINT D%;"OPEN" ;B 

PRINT D%; "READ" ;B$ 

FOR M = 1 TO 12 

FOR D = 1 TO 31 

INPUT N$<M,D) 

NEXT D 

NEXT M 

PRINT D$;"CLOSE" ;BS 

PRINT CHR$ (7)5: POKE 216,@: REM OFF ONERR 
RETURN 

PRINT " CLEARING OLD DATE FILE>* 
FOR M = 1 TO 12 

FOR D = 1 TO 31 


N$(M,D) = "" 


NEXT D 
NEXT M 

PRINT CHR$ (7); 
RETURN 

HOME : PRINT. 


8018 AS = " " + AS + " ": HTAB (48 - LEN (AS)) / 2 


8820 
8838 
8040 
10868 
10085 
18818 
10620 
18838 


10048 


MAN 


18858 
10068 
11008 
11618 
11628 


11638 


11648 
11858 
11868 
11678 
11688 
11098 
11166 
11128 
11138 
11135 
11148 
11158 
11168 
11165 
11178 
11188 
11198 
11195 
11288 
11218 
11215 
11220 
11238 
11248 
11245 
11258 
11268 
11278 
11288 
11298 
11308 
20000 
28085 
20807 
20018 
20828 
20838 
28048 
20850 
20055 
28868 
28865 
28678 
20088 
28698 


INVERSE : PRINT A%: NORMAL 
PRINT 
RETURN 

REM ** QUIT #* 
AS = "QUIT": GOSUB 8888 

VTAB 5: CALL - 868: INPUT “ARE YOU SURE? ";AS 

IF LEFT$ <A$,1) = "N* THEN 568 

IF LEFT$ (A$,1) ¢ > "Y" THEN PRINT CHRS (7);: 
GOTO 160186 
VTAB 1@: PRINT "APPLE CAL"; TAB( 23);"BY GLENN TE 


VTAB 20: HTAB 18: PRINT "<G 00D 

PRINT : END 

REM ##0NERR#* 
ERR = PEEK (222) 

L = PEEK (218) + PEEK (219) * 256: CALL 768: REM 
FIX STACK 

ON (ERR) GOTO 11640 ,11048,11848,11888,11138,11198 
911640 ,11228 ,11268 

REM -UNIDENT ERROR 

PRINT : PRINT "ERROR: "; CHRS (7) ;ERR 

PRINT " ON LINE "3L; CHR (7) 

PRINT : END 

REM -WRT PROTECTED 

PRINT °<WRITE PROTECTED - INSERT NEW DISK..." 

INPUT " <AND HIT ‘RETURN’: ";A$ 

GOSUB 6878: GOTO 5e@ 

REM -END OF DATA 

REM (‘LOAD FROM DISK’ ERROR) 

1F SAV = 1 THEN 11848 

PRINT D$; "DELETE" ;B89 

VTAB 28: CALL - 868 

IF NOO THEN 168 

PRINT "<FILE NOT FOUND! >* 

POKE 216,@: GOSUB 728@: GOTO S88 

REM -FILE NOT FOUND 

REM (‘SAVE TO DISK’ ERROR) 

IF SAV = @ THEN 11648 

GOSUB 46878: REM SKIP “UNLOCK’ 

GOTO See 

REM -1/0 ERROR 

PRINT "<I/0 ERROR - INSERT NEW DISK..." 

INPUT * <AND HIT ‘RETURN’: *;AS 

IF SAV = 1 THEN GOSUB 6868: GOTO 5e8 

IF SAV = 6 THEN GOSUB 788@: GOTO 5e@ 

REM -DISK FULL 

PRINT DS; "DELETE® ;BS 

PRINT "<DISK FULL - INSERT NEW DISK..." 

INPUT " (AND HIT ‘RETURN’: *;AS 

GOSUB 46870: GOTO 5e0 

REM *# TITLE PAGE #* 

TEXT : HOME :L = 25 

PRINT CHR (7); 

UTAB 8: HTAB 9: PRINT "xe eHHHHHEHHEAHERHRERE" 

UTAB 12: HTAB 9: PRINT ° €X#eHH HEHE HERRRHHE” 

VTAB 9: FOR 1 = 1 To 3 

HTAB 9: PRINT "*"5: HTAB 29: PRINT "#° 

NEXT I 

FLASH 

VTAB 1@: HTAB 11: PRINT ‘A PPLE 

NORMAL 

VTAB 18: HTAB 23: PRINT "BY GLENN TEMAN" 

POKE - 16368,8 

VTAB 23: PRINT * 


ie gls 


St 


<HIT ANY KEY TO CONTINUE...> 


continued on page 188 
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Peaceful Coexistence 


by Robert V. Anderson 
10 Anse-a-Valleau 
Ste-Dorothee, Laval 
Quebec 

Canada H7Y 1V5 


DESCRIPTION 

The program FIFTY50 creates a diskette on 
which it is possible to save both DOS 3.3 and 
Pascal files. When running Pascal it will think 
that it is a Pascal diskette and under DOS it 
will behave as a Basic diskette. The files 
created under each system will be invisible to 
the other and all normal disk operations are 
possible in either mode. 


HOW TO USE THE PROGRAM 
It is essential to follow all of the following 
steps: 


1. Initialize a DOS 3.3 diskette with a short 
‘HELLO’ program. 


2. Format or Zero a Pascal diskette. 


3. Change the name of the Pascal diskette to 
FIFTY. 


4. From the FILER M)ake a 144 block file with 
the name BASIC.SPACE. 


5. K)runch the diskette FIFTY starting at 
block 6. 


6. Type in and save the program FIFTY50 on 
APPLE1. 


7. Execute FIFTY50 and follow the instruc- 
tions. 


The program will prevent you from making 
any monumental errors (Such as destroying 
files on the wrong diskette!). 

After execution the diskette may be used 
with either Pascal or DOS 3.3. There will be 
130 blocks available for Pascal files and 136 
for DOS files. The tracks 0-3 have been 
reserved for Pascal; therefore, you should 
not use this diskette to boot DOS (Boot from 
a master and then catalog this new diskette). 
After the creation process, the name of the 
diskette may be changed from Pascal and 
copies may be made from either DOS or 
Pascal. 


HOW IT WORKS 

First, the program copies all the directory 
information from the Basic diskette. Then, on 
the Pascal diskette, two things occur. The file 
BASIC.SPACE has its classification changed 
from DATA to BAD. This prevents the K)runch 
command from moving it so that the hidden 
DOS files will be protected from Pascal disk 
operations. Next the recorded DOS directory 
is modified so that DOS thinks tracks 0-16 are 
in use. Note that DOS can’t change this state 
of affairs because space can only be freed up 
by the DELETE command but DOS sees 
nothing to delete in these sectors! 


POSSIBLE IMPROVEMENTS 

Instead of reserving a fixed number of 
blocks for each system, it should not be too 
difficult to specify which tracks are to be 
reserved for each. However, it is always nec- 
essary to reserve track 17 for DOS and blocks 
0-5 for Pascal. e 
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FROG 


RAM FIFTYSO+s 
(x This rFProGcram 


TYPE BUFFER1=PACKED ARRAYCO..81911 OF CHAR 


VAR 


BEGI 
RE 


UN 
RE 


BUFFER2=PACKED ARRAYLO..20471 OF CHAR? 


A 3 BUFFER1> 

B 3 BUFFER2Z> 

I 3 INTEGER? 
CH $ CHARS 

FLAG : BOOLEAN? 
NAME $ STRINGES 13 
N 
PEAT 


FAGE(COUTFUT)s GOTOXY(05)3% 
WRITE('Place the Basic diskette im drive 2 
(x$I-x) 
UNITREAD (S2Ar81927136) + 
(x$I+x) 
IF (ORD(AC13)<217) AND (ORD(AC23)<215) THEN 
BEGIN 
GCOTOXY<(0710)3 
WRITELN('Basic diskette mot founa!'); 
WRITE('Hit @ key and try again. ')5 
UNITCLEAR(1)% READC KEYBOARD » CH) + 
FLAG?=FALSE 
END 
ELSE FLAG?=TRUE 
TIL FLAG; 
FEAT 
GCOTOXY(0%15)+5 


WRITE (CHR(11))% GOTOXY(0715)% 


<CR>')3 


allows BASIC and Pascal Programs to reside or 
(x the same diskette in harmonious ignorance of each other. 


READLN? 


WRITE('Flace the Fascal diskette in drive 2 <CR>')s READLN; 


(x$I-x) 
UNITREAD (S9By2048%2) + 
(x$I+x) 
NAME? =' 's («x & Sraces X) 
(x Check the mame of the diskette in drive 2 xX) 
(x If mot correct then rereat or exit. x) 
FOR It=1 TO S DO NAMELCIIJ?=8C6+1II3 
IF NAME<>'FIFTY' THEN 
BEGIN 
GOTOXY (0%920)+3 
WRITELNC'I can''t find the diskette ''FIFTY’’ 
WRITEC'Hit seace to rereat <esc> to auit ')% 
UNITCLEAR(1)% READC KEYBOARD sCH) + 
IF CH=CHR(27) THEN EXITCFROGRAM) 5 
FLAG?=FALSE 
END 
ELSE FLAGS =TRUE 
UNTIL FLAG? 
(X Mark Basic srace as bed. &) 
BC30I73=CHRCL) + 
UNLITWRITE (CS »Bs 204892) 3 
(xX Fill we rart of the track sector list so *) 
(kX that DOS thinks that the tracks are used. xX) 


FOR Te=56 TO 123 DO ACIIS=CHR(O)$ 
UNITWRITE (CS 9A 81924136) 


END. 


ae 


APPLE SLUGGER 








Apple Slugger 


by Robert R. Devine 
P.O. Box 10 
Adona, AR 72001 


I've had my Apple for about 11/2 years and 
try to get in as much programming time as 
possible. My biggest problem, of course, is 
trying to get some keyboard time, having to 
compete not only with my wife, but with my 3 
children as well. 

My elder daughter, Sondra, loves sports 
but soon tired of the usual computer fare,’ 
because most programs aren’t enough like 
the real thing. Last year | injured my back and 
had to spend some time in bed, giving mea 
great opportunity to create my own sports 
game. The result was Apple Slugger. 

The Slugger baseball game makes use of 
Hi-resolution graphics, ashape table, the but- 
tons and dials on both game paddles, and 
incorporates the Applesoft tone routine. 


SYSTEM NEEDS 

Slugger is written in Applesoft and requires 
a 48K system. Due to the program length it 
may not run unless your Applesoft is in ROM. 
The program uses up virtually all of the avail- 
able space below HGR page 1, so there isn’t 
much room for enhancement. This also made 
it necessary to remove many of the REMs to 
conserve space. 
PAGE MOD 

There is a way to gain space for enhance- 
ment for those who don’t mind some tinker- 
ing with their Apple. Write to Apple and 
request a copy of the IC number C12 pin 
modification, dated May 15, 1979. The modi- 
fication is simple. This modification allows 
you to select HGR page 2, and still have 4 
lines of text at the bottom of the screen. Being 
able to write over memory areas used by page 
1 should allow lots of space for modification. 
A fancy change might be to have the fielders 
run off the field, and the new team take the 
field after every 1/2 inning, or it might be nice 
to have the base-runners actually run the 
baselines. Base stealing, player names, and 
other refinements could also be added. 


THE PROGRAM APPROACH 

Multiple statements are used heavily; in 
some cases this is to conserve space, but in 
most cases it enhances program logic. Since 
Applesoft ignores any statements on a line 
after encountering an IF statement that is 
false, compound statement logic can be 
handy in eliminating unnecessary branching. 


The accompanying shape table defines the 
players which will be drawn on the screen. 
Enter the shape table through the monitor, 
then place it on the same disk with Slugger 
using BSAVE PLAYER,A$9500,L$61. 


PLAYING SLUGGER 

To play Slugger, the players first select and 
enter the names of their teams. Each player 
uses a game paddle; the home team uses 
PDL(0) and the visiting team uses PDL(1). 

The person whose team is in the field 
presses the button on their paddle, which 
pitches the ball. The computer will select one 
of four different speed pitches. The person at 
bat then presses the button on the paddle to 
try to hit the ball. If the batter thinks it is a bad 
pitch, he may choose not to swing the bat. 
The result may be a ball or a call strike. If the 
batter misses the ball, or swings more than 
once, the result will be a strike. Your Apple 
will describe the pitch. 

When the batter hits a fair ball, control will 
go to the dial on the fielding team’s game 
paddle. The ball will take one of 10 different 
paths, and the fielder must try to catch the 
ball by turning his paddle dial. Your Apple will 
decide which fielder will try for the catch, and 
that fielder will begin to move. One minor 
detail... the fielder NEVER stands still. He is 
always moving either right or left. The trick is 
to find that magic spot on your dial where a 
small turn will change the fielder’s direction 
of movementso that he can intercept the ball. 
The level of difficulty in catching the ball can 
be changed in line 7430. 

Slugger provides some interesting sur- 
prises. Hitting and catching the ball involve 
skill, however many other things may happen 
at the random choice of your Apple; home 
runs, triples, doubles, singles, walks, strike- 
outs, foul balls, double plays, and (if your 
fielder has butterfingers) errors! 

Slugger makes extensive use of GOSUBS. 
The main program only runs from lines 720 
through 1220, the rest being subroutines 
called by the main program or other subrou- 
tines. If you want to make modifications, 
simply add the subroutine anywhere that it 
will fit, and GOSUB to it from the appropriate 
spot in the program. 


THE PROGRAM 


Line 100 “seeds” the random table so that 
every game is different. 


Line 550 loads the shape table “PLAYER”. 


Line 700 draws the playing field, initializes the 
Applesoft tone routine, and sets the start of 
game flag. 

Lines 720 - 1220 comprise the main program 
which consists mostly of tests for GOSUBing 
the subroutines. 

Lines 6500 and 6510 are the Applesoft tone 
routine setup. 

Line 7000 selects the pitch speed. 

Lines 7005 - 7135 pitch the ball, read the pad- 
die button to see if the batter swung the bat, 
draw the bat, and test to see if the ball was hit. 
If the ball was hit, PR=99. If the ball was 
missed, PR=0. If the batter didn’t swing, 
PR=50. 

Lines 7310 and 7325 decide which fielder will 
try to catch the ball, and select the ball path. 
The program then steps through line 7435 to 
move the ball and the fielder, as well as to test 
for the ball being caught. If the ball is caught, 
BC=99. 

Lines 7500 - 7560 read the appropriate paddle 
button to prepare to pitch the ball. 

Lines 8000 - 8045 determine the random re- 
sults if the ball is not caught and update the 
runs scored and status of each base. 

Lines 8200 - 8252 determine the random re- 
sults if the ball was caught and update the 
outs or errors. 

Lines 8400 - 8405 test to see if the ball was 
swung at, hit, or missed. 

Lines 8421 - 8445 are subroutines to describe 
the batting results, and update the balls and 
strikes. 

Lines 8511 - 8545 specify the coordinates of 
the players on the field. 

Lines 8605 - 8630 draw the playing field and 
the baselines. 

Line 8700 and 8730 draw the shape table 
“PLAYER” on the field. 

Lines 8815 - 8900 do the scoring, baserunner 
advances, and record keeping. 

Lines 8950 - 9210 print the various score- 
boards, and input the team names. 

Line 9130 serves as a pause, allowing time to 
read messages on the screen. 


Slugger does not check for a winner, or for 
end of game, so enter Control/C to end the 
game. 


Have fun at the ball game, and don't forget 
the hot dogs and beer!!! 





ILIST 70% GOSUB 9999: GOSUB 8495: GOSUB 8629: GOSUB 46599 
:¥ = 99 
72@ FOR X = 1 TO 8: POKE 768,4@: POKE 769,39: CALL 
SESKAATTSS ESET ELTS ALTE SESS 77@: ON X GOSUB 8511,8512,8513,8514,8515, 8514, 
* APPLE SLUGGER * @517,8518: HCOLOR= 3: GOSUB 879@: NEXT X: GOSUB 
x BY ROBERT DEVINE % 8525: HCOLOR= 9: GOSUB 8799 
x COPYRIGHT (C) 1982 * 193@ IF Y = 99 THEN GOSUB 885d 
* BY MICRO-SPARC INC # 1949 GOSUB 9206: IF TMAB$ = T1$ THEN GOSUB 7599 
* LINCOLN, MA. 01773 # 1986 IF TMABS = T2$ THEN GOSUB 7559 
ROKATAAAAAAA AAA AAA TATE 1996 POKE 768,59: POKE 769,50: CALL 779: GOSUB 799 
@: Gf 3UB 8499 
199 X = RND ( — PEEK (78) — PEEK (79) * 256): REM 1120 IF PR = 99 THEN GOSUB 7399: HCOLOR= 1: GOSUB 
SEED RANDOM TABLE ‘ 8799: FOR X = 1 TO 5: ON X GOSUB 8511,8512,851 
599 TMAB = 1:X@ = 2:Y@ = 2: DIM B(3): HOME =: VTAB 1 3,8514,8515: HCOLOR= 3: GOSUB 8799: NEXT X 
2: HTAB 19: PRINT “APPLE SLUGGER": PRINT =: HTAB 1149 GOSUB 8626: IF BC = 99 THEN GOSUB 8209 
1G: PRINT "BY ROBERT DEVINE": PRINT = HTAB 19: 11469 IF BC = 5@ THEN FOR X = 1 TO 5@:Y = PEEK ¢ - 
PRINT "COPYRIGHT (C) 1982": HTAB 19: PRINT "B 16336) — PEEK ( — 16336): NEXT =: GOSUB 8999 
Y MICRO-SPARC INC" 1179 GOSUB 8815: FOR X = 1 TO 3: IF B(X) = 1 THEN 
529 GOSUB 9130: GOSUB 9139:D$ = CHR (4) HCOLOR= @ 
550 HIMEM: 38144: IF PEEK (38259) < 255 THEN POKE 1296 IF B(X) = @ THEN HCOLOR= 1 
PRINT D$"BLOAD PLAYER”: POKE 232,9: 1226 ON X GOSUB 8535,8549,8545: GOSUB 8799: NEXT : 


38259, 255: 
POKE 233,149 


GOTO 729 
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Apple Slugger (Cont.) 


6589 
6519 


7GBB 
79aS 
7H1D 


791s 
7199 
7195 
7116 


7126 


7516 


FOR X = 779 TO 799: READ Y: POKE X,Y: NEXT =: RETURN 
DATA 173,48, 192, 136, 28,5, 286, 1,3,249,9, 202, 
28, 245, 174,G,3,76,2,3,96 
Y = @:PR = 50:Z = INT ( RND (1) ® 7) — 1: IF 

Z < 2 THEN 7999 

FOR X = 97 TO 142 STEP Z 

HCOLOR= 3: FOR Z = @ TO 2: HPLOT 139,X + Z TO 
141,X + Z: NEXT Z: HCOLOR= 1: FOR Z = @ TO 2: HPLOT 
139,X + Z TO 141,X + Z: NEXT Z 

GOSUB 7196: NEXT X: RETURN 

IF X < 196 THEN RETURN 

IF TMABS = T1% AND PEEK ( — 146287) < 128 THEN 
RETURN 

IF TMAB$ = T2$ AND PEEK ( - 16286) < 128 THEN 
RETURN 

HCOLOR= 9: HPLOT 135,138 TO 152,138: HPLOT 13 
5,139 TO 152,139: POKE 768,268: POKE 769,50: CALL 
776: HCOLOR= 1: HPLOT 135,138 TO 152,138: HPLOT 
135,139 TO 152,139 
Y = Y + 1: IF Y > 1 THEN RETURN 

IF X < 136 OR X > 137 THEN PR = @: RETURN 

IF X = 136 OR X = 137 THEN PR = 99: RETURN 

FOR X = 1 TO 19: POKE 768,20: POKE 769,48: CALL 
77@: NEXT 

X = 149:Z = INT ( RND (1) & 19) + 1: ON Z GOSUB 
8511, 8511,8514, 8514, 8512, 8512, 8515, 8515, 8513,8 

513 

FOR Y = 136 TO 4 STEP - &: ON Z GOSUB 7341,7 
342, 7343, 7344, 7345, 7346, 7347, 7348, 7349, 7358: GOSUB 
7368: IF BC = 99 THEN Y = 9: GOSUB 7365: RETURN 


NEXT Y: GOSUB 7365: RETURN 
xX = X - 5: RETURN 
xX = X — 4: RETURN 
xX = X -— 3: RETURN 
X = X — 2: RETURN 
xX = X — 1: RETURN 
X = X + 1: RETURN 
xX = X + 2: RETURN 
X = X + 3: RETURN 
X = X + 4: RETURN 
X = X + S: RETURN 


IF NOT XO THEN 7379 

HCOLOR= i: HPLOT xX@ — 1,Y@ — 1 TO X@ + 1,Y8 — 

1: HPLOT x@ — 1,Y@ TO X@ + 1,Y@: HPLOT X@ - 1, 
Yo + 1 TO XS + 1,Y@ + 1: IF Y < 4 THEN XO = @: 
RETURN 

HCOLOR= 3: HPLOT X - 1,Y — 1 TO X + 1,Y — 1: HPLOT 
X - 1,¥ TO X + 1,Y: HPLOT X - 1,Y +1 TO0X +1 

oy +t 

IF TMABS = T1$ THEN 7398 
IF PDL (@) > 127 THEN XA 
IF PDL (@) < 127 THEN XA 
GOTO 7469 

IF PDL (1) > 127 THEN XA = 5 

IF PDL (1) < 127 THEN XA = - 5 

XO = XN:XN = XN + XA:YO = YN: IF XN < 5 THEN X 
N=5 

IF XN > 25@ THEN XN = 256 

HCOLOR= 1: GOSUB 8739: HCOLOR= 3: GOSUB 8799: 
X@ = X:¥B = Y 

IF XN + 8 — X < 4 AND XN + 8— X > -— 4 AND Y 
N + 19 - Y < 5 AND YN + 19 —- Y > — 5 THEN BC = 


5 
a | 


: RETURN 
BC = 5@: RETURN 
Y = PEEK ( — 16286): IF Y > 127 THEN RETURN 
GOTO 759d 


Y = PEEK ( — 16287): IF Y > 127 THEN RETURN 


6OTO 75598 

BALL = @:STRIKE = @ 

HOME : VTAB 23:X = INT ( RND (1) ® 16) + 1: ON 
X GOSUB 8934, 8935, 8935, 8949, 8949, 8949, 8945, 894 
5,8845,8945: GOTO 97139 

IF TMABS = Tis THEN R1N = RIN + B(1) + B(2) + 
B(3) + 1 

IF TMABS = T2% THEN R2N = R2N + B(1) + B(2) + 
B(3) + 1 

PRINT "THE ";TMABS;"” GET A "3B(1) + B(2) + BC 
3) + 15" RUN HOME RUN":B(1) = @:B(2) = @:B(3) = 
@: RETURN 

IF TMABS = T1% THEN RiN = RIN + B(1) + B(2) + 
B(3) 

IF TMABS = T2% THEN R2N = R2N + B(1) + B(2) + 


PRINT "THE “;TMABS;" GET A TRIPLE & SCORE ";B 
(1) + B(2) + B(3)3;" RUNS":B(1) = @:B(2) = 6:B¢ 
3) = 1: RETURN 

HTAB 8: PRINT “THE ";TMABS;" GET A DOUBLE”: B( 
2) = B(2) + 1: IF B(1) = 1 THEN B(3) = BCS) + 


= @: RETURN 

B(1i) = B(1) + 1: HTAB 6: PRINT “THAT HIT IS GO 
OD FOR A SINGLE”: RETURN 

FOR X = 1 TO 10: POKE 768,38: POKE 769,36: CALL 


HOME : VTAB 23:X = INT ( RND (1) ® 6) + 1 
ON X GOSUB 8225, 8239, 8235, 8249, 8245, 8250: BALL 
= @:STRIKE = @:HIT = HIT — i: GOTO 9136 
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OUT = OUT + 1: PRINT “GROUNDER — THE THROW TO 
FIRST — OUT ";QUT: IF B(1) = 1 THEN X = INT (¢ 
RND (1) ® 2) + Is IF X = 1 AND OUT < 3 THEN O 
UT = OUT + 1: HTAB 9: PRINT "DOUBLE PLAYS '2"6 
UT “OUT:B(1) = @: GOSUB 9139: RETURN 

IF B(1) = 1 THEN B(2) = B(2) + 1 

B(i) = @: RETURN 

GUTS = OUTS + 1: HTAB 5: PRINT “HIGH FLY BALL 
— CAUGHT — OUT ";O0UT: RETURN 

OUTS = OUTS + 1: PRINT "LINE DRIVE — FANTASTIC 
CATCH — OUT ";QOUT: RETURN 

OUTS = OUTS + 1: HTAB 5: PRINT "HIGH POP UP — 
CAUGHT -— QUT ";0UT: RETURN 

B(i) = B(1) + 1: PRINT “GROUNDER THROW TO FIRS 
T — NOT IN TIME":HIT = HIT + 1: RETURN 

IF TMABS = Tis THEN E2R = E2R + 1 

IF TMABS = T2$ THEN E1R = E1R + 1 

B(i) = B(1) + 1: FOR X = 1 TO 6@:Y = PEEK (¢ — 
16336) -— PEEK ( — 16336): NEXT = PRINT “BALL 
1S DROPPED — ERROR - SAFE ON FIRST”: RETURN 
HOME : VTAB 23:BC = @: IF PR = @ THEN FOR X = 
1 TO 45:Y = PEEK ( - 16336) — PEEK ( — 16336 
): NEXT X: GOSUB 8426: RETURN 

IF PR = 50 THEN X = INT ( RND (1) & 8) + 1: IF 
X < 5 THEN POKE 768,196: POKE 769,79: CALL 77 
@: ON X GOSUB 8421,8422,8423,8425: RETURN 

IF PR = 5@ THEN FOR Y = 1 TO 45:Z = PEEK ( — 
16336) -— PEEK ( — 16336): NEXT Y: GOSUB 8424: 
RETURN 

IF PR = 99 THEN X = INT ( RND (1) # 4) + 1: ON 
X GOSUB 8427,8428,8427,8427: RETURN 

BALL = BALL + 1: HTAB 7: PRINT “HIGH AND OUTSI 
DE '! — BALL ";BALL: RETURN 

BALL = BALL + 1: HTAB 8: PRINT "LOW AND INSIDE 
'!' — BALL “;BALL: RETURN 
BALL = BALL + 1: HTAB 5: PRINT "PITCH IS IN TH 


E DIRT ! — BALL “";BALL: RETURN 
STRIKE = STRIKE + 1: HTAB 12: PRINT “CALL STRI 
KE ' — "s3STRIKE: RETURN 


BALL = BALL + 1: HTAB 9: PRINT “WILD PITCH !! 
- BALL ";BALL: RETURN 

STRIKE = STRIKE + 1:X = INT ( RND (1) # 5) + 
1: ON X GOSUB 8441,8442,8443,8444,8445: HTAB 1 
@: PRINT STRIKE$;" STRIKE — ";STRIKE: RETURN 
HTAB 8: PRINT "THAT’S A GOOD SOLID HIT !":HIT 
= HIT + 1: RETURN 

PR = @: IF STRIKE < 2 THEN STRIKE = STRIKE + 1 


HTAB 3: PRINT “FOUL BALL — OUT OF PLAY — STRI 
KE “;STRIKE: RETURN 

STRIKES = "HARD SLIDER": RETURN 

STRIKES = "FAST BALL": RETURN 

STRIKES = "KNUCKLE BALL”: RETURN 

STRIKES = "CURVE BALL”: RETURN 

STRIKES = “CHANGE-UP": RETURN 

XN = 36:YN = 5S: RETURN 


XN = 125: YN = 5S: RETURN 
XN = 239:YN = 5S: RETURN 
XN = 85:YN = 35: RETURN 
‘XN = 15@:YN = 38: RETURN 
XN = 268: YN = S55: RETURN 
XN = 47:YN = 65: RETURN 
XN = 133:YN = 75: RETURN 


REM PLOT BATTERS XN, YN 

XN = 152:YN = 138: RETURN 

REM PLOT BASEMENS XN, YN 

XN = 219:YN = 78: RETURN 

XN = 13@:YN = 34: RETURN 

XN = 65: YN = 67: RETURN 

HGR : HCOLOR= i: FOR X = @ TO 159: HPLOT @,X TO 
279,X: NEXT : RETURN 

HCOLOR= 3 

HPLOT 9,47 TO 148,137 TO 279,67: HPLOT 148,13 
6 TO 279,66: HPLOT 68,95 TO 148,55 TO 226,95: HPLOT 
136,135 TO 138,15@ TO 158,15@ TO 158,135 

HPLOT 131,135 TO 131,149 TO 149,149 TO 149,13 
S: HPLOT 149,141: HPLOT 138,142 TO 142,142: HPLOT 
137,143 TO 143,143: HPLOT 137,144 TO 143,144: HPLOT 
137,145 TO 143,145: RETURN 

SCALE= 1: ROT= @: DRAW 1 AT XN,YN: RETURN 

DRAW 1 AT X0O,YO: RETURN 

IF STRIKES = 3 THEN OUTS = OUTS + i: FOR X = 

1 TO S@:Y = PEEK ( - 16336) -— PEEK ( -— 16336 

>: NEXT 

IF STRIKE = 3 THEN STRIKE = @:BALL = @: HOME 

: VTAB 23: HTAB 6: PRINT “STRIKE OUT !!! NEXT 
BATTER": GOSUB 913¢ 

IF BALL = 4 THEN B(1) = B(1) + 1: GOSUB 8535: 
HCOLOR= @: GOSUB 8766 

IF BALL = 4 THEN BALL = @:STRIKE = 6: FOR X = 

1 TO 9: POKE 768,75: POKE 769,3@: CALL 776: NEXT 


IF OUT = 3 THEN TMAB = TMAB + 1: IF TMABS = T 
1% THEN HIT = HIT + HIT 

IF OUT = 3 AND TMABS = T2$ THEN H2T = H2T + H 
sty i 

IF OUT = 3 THEN INNING = INNING + .5: GOSUB 9 
166: FOR X = 1 TO 3:B(X) = 6: ON X GOSUB 8535, 
8549,8545: HCOLOR= 1: GOSUB 8796: NEXT X:OUT = 
@:HIT = @ 

TMABS = T2$: IF TMAB / 2 = 
TMABS = T1$ 

IF Y = 99 THEN Y = @: RETURN 

IF B(1) = 2 THEN B(2) = B(2) + 1:B(1) = 
IF B(2) = 2 THEN B(3) = B(3) + 1:B(2) = 
IF B(3) > = 2 AND TMABS = T1% THEN R1N = RIN 
+ B(3) — 1: GOSUB 895@:B(3) = 1 

IF B(3) > = 2 AND TMABS = T2% THEN R2N = R2N 
+ B(3) — 1: GOSUB 8950:B(3) = 1 


INT (TMAB / 2) THEN 


| ll oad 


RETURN 


8959 HOME : VTAB 23: HTAB 8: PRINT "THE ";TMABS;" OnE Re 
SCORE ";B(3) — 13" RUNS": GOTO 9139 %9500 
9999 HOME : VTAB 1G > 
9916 INPUT “WHAT IS THE HOME TEAM’S NAME ? ";T1¢: PRINT 
: PRINT 9500- 
9946 INPUT "WHAT IS VISITING TEAM NAME ? ";T2$: RETURN 9508- 
9108 HOME = VTAB 22: HTAB 6: PRINT "AFTER "; INNING aS 
3" INNINGS THE SCORE IS...": GOSUB 9139 
9119 HOME : VTAB 21: HTAB 26: PRINT "RUNS HITS 9520- 
ERRORS": PRINT T1$: PRINT T2% 9528- 
Rey erm: virus ai, Gone on, eens as 
EIR: ee ae Mcieseene 
Heer 3 5 3 93538- 
9136 FOR X = 1 TO 36: FOR Y = 1 TO 30: NEXT Y,X: RETURN 9540- 
93548- 
9269 HOME =: VTAB 21 9550-— 
9219 HTAB 8: PRINT "THE ";TMAB$;" ARE AT BAT": PRINT 9558- 
: HTAB 4: PRINT "BALLS—"; BALL; " STRIKES-—" 
:STRIKE;" OQUTS-";0UT: RETURN 9560- 
bY 
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REVERSE KEY — A Small 
Utility for the Apple 
Computer 


by Phillip R. Rowley 

2 Woodside Crescent-Clayton 
Newcastle-under-Lyme 

Staffs ST5 48W 

England 


INTRODUCTION 

While Apple’s INVERSE, FLASH and NOR- 
MAL commands are very convenient if a 
whole printed message is to be ina particular 
format; they are irritating to use if only a sin- 
gle character is to be printed in FLASH or 
INVERSE mode. 

| like to use this type of display for menus, 
where the key-letters for the options available 
are in INVERSE mode. To do this using the 
conventional method requires something of 
the form: 


INVERSE : PRINT “A”;:NORMAL:PRINT 
TAB(10)“ADD DATA” 


If multiple options are to be given on asin- 
gle line then the complexity builds up to such 
an extent that errors become very likely and 
even unavoidable. 

The small machine-code program given 
below enables NORMAL, INVERSE and 
FLASH modes to be switched on and off by 
putting control characters into the PRINT 
command. 


OPERATION 

When BRUN from disk, the program modi- 
fies the character output switch to point to 
itself. From this point on, all output charac- 
ters are tested for special ‘format’ characters. 

If acontrol-N, control-F or control-l is sent 
to be printed then it is detected and the output 
format mask ($32) is set to $FF, $3F or $7F as 
appropriate. Characters printed after one of 
these format characters are then displayed in 
the appropriate style. 


HOW TO USE IT 

REVERSE-KEY is activated by either a 
BRUN from disk or a BLOAD followed by a 
CALL 768. Once activated, Flash mode is 
activated by printing acontrol-F, Inverse by a 
control-| and Normal by a control-N. 

It should be noted that NORMAL mode is 
not automatically reset following the end ofa 
PRINT command. A control-N may be needed 
at the end of the PRINT string. 

As control characters do not appear when 
listed, lines containing embedded control 
characters cannot be edited. If required, the 
CHR$ equivalents of the control characters 
may be used (see BASIC demo program). 

Embedded control characters in listings 
may be revealed, if required, by first running 
the program on page 151 of the DOS 3.3 
manual. Reverse-key may be deactivated by a 
PR#0 command, and reactivated by a CALL 
768. 


@ 





LIST 
REVERSE KEY MACHINE LANGUAGE 1 REM SOSeRARAAARATARAA TATRA TAREE 
BY PHILLIP ROWLEY 2 REM * REVERSE KEY DEMO t 
COPYRIGHT (C) 1982 3 REM # BY PHILLIP ROWLEY x 
EY MICROSPARC, INC 4 REM & COPYRIGHT (C) 1982 * 
LINCOLN, MA. 01773 5 REM * BY MICRO-SPARC INC 2 
6 REM € LINCOLN, MA. 01773 % 
MEM ASSY L MACH L COMMENT 7 REM RARKRKERAAAARATA RTARTA ARETE 
=-==~-----~---~-~~~------------------------------------ 8 REM <<< NOTE: IN LINES 45 AND 110: *F7=CTRL Fy ’I7=CTR 
300% LDA #$0C AQ OC RESET OUTPUT POINTER L Iy *N’=CTRL N 
302: STA $36 85 36 10 PRINT CHR® (4)"BRUN REVERSE KEY" 
304% LDA #$03 A9 03 15 HOME » HTAB 10: PRINT "REVERSE KEY DEMO" 
3063 STA $37 85 37 20 HTAB 101 PRINT “se=se=se===s=e==="; PRINT 
308% JSR $3EA 20 EA 03° FASS OUTPUT LOCATION TO DOS 25 1% = CHR® (9)sN$ = CHR® (14)2F® = CHR® (4) 
30B? RTS 60 RETURN FOR NEXT CHARACTER 30 LIST 25: LIST 35: PRINT 
30C: CMP #$86 C9 84 IS CHAR ‘CTRL F’? 35 PRINT "AAAA"FS"AAAA"NS"AAAA" I$" AAAA"NS"AAAA" 
30E$ BEQ $31B FO OF YES, THEN GOTO $31B 40 PRINT : PRINT "OR USING EMBEDDED CONTROL-CHARACTERS": PRINT 
3103 CMP #$8E C9 8E IS CHAR ‘CTRL N’? 2 LIST 45 
3123 BEQ $320 FO OC YES, THEN GOTO $320 42 FOR T = 0 TO 9999: NEXT 
3143 CMP #$89 C9 89 IS CHAR ‘CTRL I’? 45 PRINT 2 PRINT "AAAAFAAAANARAAIAARANAAAA" 
316 BEQ $325 FO OD YES, THEN GOTO $325 50 PRINT : PRINT "LISTING OF LINES WHEN REVERSE: KEY IS ON 
318% JMP $FDFO 4C FO FD PRINT CHAR IN ACCUMULATOR SHOWS HOW LINE WILL PRINT" 
31B3 LDA #$7F A? 7F FOLLOWING CHARS ARE FLASH 55 PRINT : PRINT "LISTING WHEN ’REVERSE KEY’ IS OFF SHOWS 
31D? STA $32 85 32 SO STORE $7F IN $32 NOTHING UNUSUAL" 
31F% RTS 60 RETURN FOR NEXT CHAR 60 PRINT » PRINT "PR#O" 
3203 LDA #$FF A? FF FOLLOWING CHARS ARE NORMAL 65 PR# O 
322? JMP $31D 4C 1D 03 SO STORE $FF IN $32 79 LIST 45 
325% LDA #$3F A9 3F FOLLOWING CHARS ARE INVERSE 75 FOR T = 0 TO 9999: NEXT 
327: JMP $31D 4C 1D 03 SO STORE $3F IN $32 80 PRINT » PRINT "RESTART ’REVERSE KEY’ —- CALL 768" 
85 CALL 768 
NOTE: FOR NON-DISK SYSTEMS THE JSR $3EA AT $308 IS NOT 90 PRINT : LIST 45 
NEEDED AND THE THREE EXTRA BYTES $308-30A CAN BE REPLACED 100 PRINT s PRINT "REVERSE KEY IS NOW ON FOR YOU TO TRY' 
BY NOP NOP NOP? I.E. EA EA EA 110 PRINT : PRINT "LINES CONTAINING FEMBEDDFDN CONTROL CH 
ARACTERS CANNOT BE EDITED" 
120 PRINT » PRINT "LINES USING STRING VARS CAN BE EDITED 


E.G."s PRINT 


s LIST 35 


v 
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Amper-Find 


by Joe Brooks 
521 Moody 
Athens, TX 75751 


Amper-Find is a fast, compact machine 
language program that will locate variables, 
strings, commands, and even control charac- 
ters within an APPLESOFT program, and 
then print out the corresponding line num- 
ber(s) using a space efficient format. It re- 
sides in page 3 of memory, and can be loaded 
at any time without altering your current pro- 
gram. Uses include locating GOTO and 
GOSUB commands to aid in the deletion of 
REM statements, searching for a variable to 
determine whether or not it has been used or 
if itis free for assignment, or perhaps to finda 
misspelling that you noticed while you were 
running a program. Also, a feature that | have 
found quite useful is the ability to locate con- 
trol characters. 


ENTERING AMPER-FIND 

To enter Amper-Find into memory, first 
type CALL -151 to enter the Monitor, then 
type in the memory listing as shown (except 
that you should substitute “:” in place of “-"). 
After the program is entered, type BSAVE 
AMPER FIND,A$300,L$C2 to save to disk, or 
type 300.3C1W to save to tape. 


HOW TO USE IT 

To use the program from tape, type CALL 
-151, then 300.3C1R and turn on the recorder. 
After it has loaded, type 300G, then CTRL-C 
to return to APPLESOFT. From disk, simply 
type BRUN AMPER FIND. You have just 
added a new “FIND” command to your 
Apple!! 

To use the new FIND command, type &: 
followed by the item you wish to locate. This 
may be a string, variable, command, or con- 
trol character, individually or in any combina- 
tion. After pressing the RETURN key, the 
appropriate line numbers will be printed al- 
most instantly! The FIND command can also 
distinguish between strings and variables by 
typing S or V in place of the colon. For 
instance, typing &SB will locate all strings 
containing the character “B”. &VB will locate 
all variables containing “B”. If the & is not 
followed by a “:”, “S”, or “V”, then the mes- 
sage “SYNTAX ERROR’ will be printed. 

NOTE: If the program does not appear to be 
working correctly, you probably have an 
APPLESOFT command hidden somewhere. 
This is because APPLESOFT stores its com- 
mands as “tokens”, using only one byte of 
memory (a token table can be found on page 
121 of the APPLESOFT manual). For exam- 
ple, &:LETTER will actually search for the 
command “LET” followed by the string or var- 
iable “TER”. &SAVENUE will result with 
“SYNTAX ERROR” because the token for 
“SAVE” is stored, rather than “S”. Also, spa- 
ces will be ignored, unless preceded with a 
DATA or REM statement, or a quotation 
mark. 


HOW IT WORKS 
Here is a detailed explanation of how the 
program works. 


SET &-JUMP VECTOR 

This portion of the program is used only for 
initialization. When you BRUN AMPER FIND 
(300G from tape), it places a jump to the start 
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of the program (START) at $3F5 (VECTOR). 
VECTOR is the location APPLESOFT jumps 
to when it encounters the “&”. 


SET POINTERS 

Zero page pointers and flags are used to 
minimize program size (this also increases 
program execution speed). The HTAB poin- 
ter is used in the PRINT ROUTINE. FLGSU is 
the string-variable flag and is set according to 
the command: “:’=0, “S”=1, “V"=2. If a com- 
mandis illegal, the APPLESOFT ROM is used 
($DEC9) to print “SYNTAX ERROR” and 
return to APPLESOFT. NXTLN begins a loop 
that when branched to sets the LSTART, 
LINENO, and FNEXT pointers. To help under- 
stand how they are used, | will explain the 
structure of an APPLESOFT program stored 
in memory. Reference should be made to the 
FIND TEST DEMO. 

Beginning at $801, the first two bytes con- 
tain an address that! calla “line pointer”. The 
following two bytes contain the line number, 
stored in hexadecimal. The bytes following 
this contain the line itself, stored in ASCII 
code (an ASCII code table can be found on 
page 138 of the APPLESOFT manual), except 
for the commands, which are stored as tok- 
ens (also hexadecimal). The last byte of the 
line contains “00”. This sequence is then re- 
peated, beginning once again with a line 
pointer. The line pointers always contains the 
address of the next line pointer (low byte first, 
high byte second). 

Back to my program, LINENO is set to the 
line number, and LSTART is set to the start- 
ing address of the line. FNEXT is set to the 
next line pointer. If it is equal to zero, then 
there are no more lines to search, and a 
branch is made to the basic warmstart routine 
in APPLESOFT ROM at $D43C (BASIC), 
returning the program to APPLESOFT. 


MAIN SEARCH ROUTINE 

FLGSTR is used to distinguish between 
variables and strings. It is toggled between 0 
and 1 (0=variable, 1=string) if a quotation 
mark, DATA token, or REM token is 
encountered. 

It should be noted here that when APPLE- 
SOFT converts its commands to tokens, they 
are stored as such in the keyboard buffer as 
well asin program memory. Also, the first two 
bytes of the buffer are not used here, for they 
contain the “&” and the “:”, “S”, or “V”. 


The keyboard buffer is compared, one byte 
at a time, to the line pointed to by LSTART. If 
there is no match, then a branch is made to 
NXTLN, where pointers are updated for the 
next line. If there is a match, then the string- 
variable decision is made by comparing 
FLGSV and FLGSTR. If all is in order, a 
branch is made to the print routine (PRINT). 
Otherwise, the search is continued where it 
left off. 


PRINT ROUTINE 
- The print routine makes use of two APPLE- 
SOFT ROM routines: $ED24 (LINPRT) prints 
the line number, and $DAFB (CRDO) printsa 
carriage return. At each pass the line number 
pointed to by LINENO is printed. Then the 
horizontal position counter (HTAB) is incre- 
mented by 6, and checked. If it reaches 36 
($24), then a carriage return is printed, and 
HTAB is reset to zero. The horizontal position 
of the cursor (HPOS) is set equal to HTAB, 
and a jump is made to NXTLN. 

Well, that about wraps it up. | hope that you 
find Amper Find to be as useful an addition to 
your Apple utility library as | have!! 


Amper-Find 
Hex Memory Listing 
Copyright (c) 1982 
by Micro-SPARC Inc. 


ICALL-151 


FS 63 AS 
@3 8D F? 


BS 


18 


BS 


5 
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Amper-Find Test Demo 


ILIST 


16 HOME 
28 PRINT "THIS IS A TEST" 
END 


LINE POINTER LINE NUMBER HONE 
8888- 80 a7 88 BA 88 37 88 iD 
$308 $3801 $802 $803 $304 $3885 $8068 $907 
POINTER LINE NUMBER PRINT T H I 
0383- B38 i4 80 BA 54 43 43 
$303 $3883 $380A $80B $80C $800 $80E 8 86$80F 
s I 3 A T 
838108- 53 28 43 53 41 28 34 
$818 $811 $812 $813 $3814 $315 $816 $317 
5 =) ii 2 LINE POINTER LINE 
B3138- 45 33 54 22 23 83 1E 
$3818 $3819 $81A $381B $310 $810 $81E $81F 
NUMBER END 
B328- 8B 308 88 89 88 88 88 
$820 $821 $822 $823 $824 $825 $826 $827 


trial LL EKER ERE ERE REE REESE 














ee ‘ @375- FO 28 = 2018 BEQ FFRINT WES! 
ete e B3rr- CI B82 202 CHP #282 PRIHT UARIABLEY 
A 63735- FU 24 2030 BEQ FPRIWT VES! 
Sc anierer ine : O37B- 08 10 2040 —— BE STEPS 
~ by Joe Brooks I37°D 2050 STEF6 LOA <LSTART 3,4 
“368 * Copyrieht (ec) 1962 5 2066 BE® NoTL HEXT LINE 
iv + by Micro-SPARC, Inc + B3oi— C9 22 2bru CHF #422 " TOKEN 
Lanes : a383- FO Os = -2080 BEQ SHFLG 
; 8365- C3 33 2u3u CHP #$33 DATA TOKEH 
EEHEEA EEE EES REEL EEEREEES E W3er- FO 64 2108 BEQ SHFLG 
.OR 300 0383- Cs Bz 2118 CHP #462 REH TOKEH 
26 FLGSU .EQ $06 Y33B- DB Bb ele BHE STEP? 
4 FLGSTR EL $07 W38U- AS 87 2136 SWFLG LDA FLGSTR 
a STO -cQ $03 W33F- 43 G1 2148 EOR #¢81 
a HTAE -EQ $0 8331- 55 G7 2158 STA FLGSTR 
Se ath. Be sie B393- B1 18 2160 STEP7 LOA CLSTART)," 
74 LINENO LEQ $10 @395- 0D 62 G2 2170 CHP KEYBRD+2.% 
36 FHEAT -EQ tic 3333- FB C7 2138 BEQ STEPR4 
HOS “en #4 B339A- Ad 6s 21396 STEFs LOY ¥STG 
AB KEYVERO En $200 B33C- 4C SF 83 2260 JMP STEPS 
21H VECTOR .E $3F5 221b # 
3 BASIC EQ $043C 2228 # PRINT ROUTINE 
238 CROU Eu $DAFE w 223 +# 
nae ae seats B33F- AB BB 2240 FPRINT LOY #300 PRINT LINE 
=50 LINFRT EG e024 O3A1- B1 1A = 2250 LDA <LINENO),'’ NUMBER 
* W3R3- AA 22608 TAX 
4% SET &-JUMP VECTOR G3h4- C3 2276 IN 
2 ¥ WSAS- Bl 1A 2238 LDA ¢LIHEHO),4 
@300- AI 4c LDA ##4c0 @3A7- 20 24 ED 2230 JSR LINPRT 
3302- 80 FS 63 1300 STA VECTOR G3AA- AS 83 =—s- 238 LOA HTAB HTAB TO 
8305- AS 18 1218 LOA #START B3AC- 138 23165 CLC NEXT FIELD 
w387- 8D FE 83 1320 STA VECTOR+1 B3AD- 63 Bb 23208 AOC #$06 
B38R- AS a3 1338 LOA «START O3AF- CS 24 2336 CHP #424 TIHE FOR CRY 
83BC- 80 F? 83 1340 STA VECTOR+? W3B1- 08 85 =. 2348 BNE STEPS 
BSEF- 6H 13548 RTS @3B3- 26 FB DA 2350 JSR CROG YES! 
1368 * B3B6- AS BB 2360 LDA #303 
1378 * SET POINTERS B3Bs- 85 83 2370 STEFS STA HTAB 
= i338 + BSBR- 35 24 2388 STA HPOS 
J318- AB GG 1338 START LOW #$00 ZERO @3BC- 4C 34 03 2398 JHP NXTLN 
@312- $4 83 = 1488 STY HTAB HTAB POINTER ANC! 2408 * 
O3i4- 34.06 = 1418 STY FLGSU STR-UAR FLAG 2410 * RETURN TO APPLESOFT 
1426 * 24208 * 
J316- CS 1438 IH‘ SET FNEXT O3BF- 4C 3C 04 2436 END JHP BASIC 
631¢- 34 1C 1440 ST FNEAT TQ STARTING 
313- A3 8s 145 LOR #£03 ADDRESS OF as 
§31B- 35 10 1465 STA FNEAT+1 FROGRAH 
1478 * 
J31D- AD B1 B2 i408 LOA KEYBRD+1 COMMAND? 
6326- C3 3H 1438 CHP #3$3A ASCII “:3*% 
B322- FB 18 1588 BEQ HATLH YES! 
8324- 34 U5 1518 STY FLGSU SET STR-VAR FLAG=1 
H326- C3 33 1526 CHP #$53 RSCIE *S*e 
B328- FO BH 1536 BEQ N&ATLN YES! 
Bs2n- C3 15408 IN? 
632B- 34 BE 1558 STY FLGSU SET STR-VYAR FLAG=2 
Q320- C3 56 1568 CHP #$56 ASCII “U’? 
B32F- FO BS Td BE@ NATLN YES! 
8331- 4C C3 DE 15388 JHP SHTAER SYNTAX ERROR 
1536 +* 
8334- AS 1C 1688 NATLN LOA FHEAT SET LINENO 
O336- 15 1616 CLC TO ADDRESS 
’33r- 63 B2 1620 ADC #482 OF CURRENT 
¥3339- SS 1A 1638 STA LINENG LINE NUMBER 
W33B- AS 10 1646 LDA FNEAT+1 
§330- 63 Bu 1656 ADC #360 
W33F- 85 16 1668 STA LINENO+1 
1676 * 
W341- AS 1A 1630 LOA LIMEHO SET LSTART 
6343- 18 163 CLC TO ADDRESS 
H344- 63 G2 1768 ADC #402 OF CURREMT 
6346- 35 15 1716 STA LSTART LINE START 
i348- AS 1B 1720 LOA LINENO+1 
B34A- 63 BU 1736 ADC #400 
B34C- 35 13 748 STA LSTART+1 
rou # 
H34E- AB Bi 1768 LOY #301 SET FHEAT 
6356- B1 1C 1776 LDA ¢FNEAT 3.4 TO NEAT 
W352- FO 6B 1738 BEQ EHD LIHE POIWTER 
B354- AA 1738 TRA 
B355- 33 1300 DE’ 
6356- Bi iC 151 LOA ¢FNEAT 3." 
B358- 85 1C 13208 STA FHEXAT 
635H- 386 10 1838 STA FHEAT+1 
1340 * 
1856 * MAIN SEARCH ROUTINE 
1368 + 
B35C- 34 Ur 1376 ST FLGSTR 
W3SE- 36 13380 DEY 
@35F- Az FF 1890 STEPS LDA #3FF 
8361- Cs 1388 STEP4 IHY 
8362- Es 1910 INK 
a363- 06 2 1328 BYE STEPS 
B365- 34 BS 13938 STY STO 
3367- BO B2 G2 1340 STEPS LOA KEYBRD+2.x 
836A- CS UG 1956 CHF #306 
336C- 08 OF 1368 BHE STEP6 a 
@36E- AS 86 13976 LDA FLGSU FRINT ALL* 
g376- FO 2D 13388 BEQ FPRINT VES! 
B3r2- 33 1338 SEC 
aara- ES 87 2000 3BC FLGSTR PRINT STRING? 


NIBBLE EXPRESS/VOL. II1/1983 


4 ee oe ee | 


5 
Sm 


fy 


Sets SS ON 
es 1 eee 
+ Ae 


7 
on 


' z ‘ 
~~ * 
a pittiin, 





APPLE BOND MANAGER 








Apple Bond Manager 


by Doug Sprinkle 
4269 Bristol 
Troy, MI 48098 


You just inherited a modest nest egg from 
your spinster aunt and have decided to invest 
this money fora rainy day. The stock market 
is too risky, and you instead decide to invest 
in secure corporate bonds. You visit your 
stockbroker to determine which bonds will 
provide the maximum return on your money. 
After asking a number of financial questions, 
your broker suggests two different bonds, 
one of which has a face interest rate of eleven 
percent and the other a face interest rate of 
two percent. Before you conclude that your 
broker is a candidate for a padded cell, read 
on. 

All bonds have a Face Value which repre- 
sents the sum the issuer will pay to you at 
some future date, known as the bond Due 
Date. Likewise, all bonds have a face interest 
rate which represents the periodic interest on 
the bond that the issuer will pay to you up to 
the bond Due Date. Thus, a bond having a 
Face Value of $2000.00 and an interest rate of 
10% will pay $200.00 per year as interest on 
the bond. Typically, this interest is paid semi- 
annually or $100.00 every six months for this 
example. 

Bonds, however, are rarely (if ever) sold for 
their Face Value. Thus, if you purchase the 
$2000.00 bond for $1000.00, the issuer will 
still pay 10% interest on the Face Value 
($2000.00) of the bond and your actual annual 
return jumps to 20%, i.e. $200/year on your 
$1000.00 investment. Your actual rate of re- 
turn on your money, however, is still higher 
since the issuer will pay you $2000.00 on the 
bond Due Date on your $1000.00 investment. 
The precise increase will vary, of course, on 
the bond Due Date. 

The current interest rate and the overall 
bond yield are respectively known as the Cur- 
rent Yield and Yield to Maturity and are read- 
ily available to investors in the Wall Street 
Journal and other financial publications. 
Unfortunately, there is one further complicat- 
ing factor to consider when determining your 
rate of return from a bond. Specifically, the 
federal Internal Revenue Service treats all 
interest income from your bond as ordinary 
income and levies a tax based on your indi- 
vidual tax rate. Conversely, any increase 
between the purchase price of your bond and 
its Face Value is treated as a capital gain (if 
the bond is held longer than one year) and 
only one half of the gain is taxed. Conse- 
quently, the after tax rate of return is not only 
difficult to determine but also varies, depend- 

.ing on a number of different factors. The in- 
stant program, Bond Manager, simplifies this 
process by calculating not only the current 
yield for the bond but also the capital gain 
yield for the bond. In addition, Bond Manager 
uses these calculated values to determine 
both the total bond yield and the after tax 
yield depending, of course, on your individ- 
ual tax rate. All of this is discussed in greater 
detail below. 


SYSTEM REQUIREMENTS 

Bond Manager requires Applesoft in ROM, 
one disk drive and at least 32K RAM. A printer 
is optional but, obviously, a requirement to 
run the printer routine. No special procedure 
is necessary to run Bond Manager — asimple 
“RUN BOND MANAGER’ will suffice. 


HOW THE PROGRAM WORKS 

Bond Manager is driven from the main 
Menu which begins at line 11230 in the pro- 
gram. From the main Menu, eight options are 
available to the user. The main Menu requests 
that the user enter a selection number from 1 
to 8 and all other entries are ignored (accom- 
panied by a “beep” from the Apple to advise 
you of the error). Each of these eight options 
is discussed separately below. 


OPTION 1 — DATA INPUT 

Option 1 enables the user to enter the bond 
data from the keyboard and transfers control 
of the program to line 5060. First, the program 
prompts the user to enter the bond name. Any 
alphanumeric string can be entered, e.g. 
“AT&T” (without quotation marks), but only 
the first five characters will be significant. 

Secondly, the program prompts the user to 
enter the bond purchase price, i.e., the price 
actually paid for the bond. Any numeric value 
greater than .50 will be accepted. Otherwise, 
the Apple bell will beep and the purchase 
price must be reentered. 

Third, the program prompts the user to 
enter the bond Face Value, i.e., the amount 
the bond issuer will pay you at the due date of 
the bond. The bond Face Value is usually a 
round number, e.g. 25, 1000 or the like. As 
with the Purchase Price, only numeric values 
greater than .50 will be accepted. 

Fourth, the user must enter the bond inter- 
est rate (in percent), i.e. 5, 8.5 or whatever, 
and the program first displays the appro- 
priate screen prompt. Only a numeric value 
greater than .50 is acceptable (ALL bonds pay 
more than 0.5%). 

Fifth, the program prompts the user to 
enter the month and day Due Date in the form 
MO.DA. Thus, February 7is entered as 2.07 
while February 2 is entered as 2.02 and not 2.2 
(the value 2.2 is equivalent to February 20). 
Any month value greater than 12 or less than 


1 is not accepted, and any day value greater’ 


than 31 is not accepted. Bond Manager does 
not, however, check for 28, 29 or 30 day 
months so that February 31 will be accepted 
by the program. As a practical matter, how- 
ever, this makes very little difference in the 
bond calculations. As a default condition, if 
only the month is specified, Bond Manager 
will automatically supply the first day of the 
month for the due date. 

Lastly, the user must enter the year Due 
Date for the bond, e.g. 1987. The complete 
year date must be entered and (you guessed 
it) abbreviated entries are rejected and ac- 
companied by a beep from the Apple bell. 

After entry of the bond data, four com- 
mands are available to the user and the 
prompts for these commands are displayed at 
the lower right hand corner of the screen. The 
letter “R” will return the user to the main 
Menu, the letter “D” will delete the record, 
and acarriage return, <CR>, will proceed to 
the next record for entry of the data for the 


next bond. Whenever the “R” key or a car- 
riage return is depressed, a GOSUB to the 
routine at line 3000 is executed where the 
calculated bond values (see Option 4 below) 
are generated. The final option, “E” for Edit, is 
described below. 

Following entry of the data for the first 
bond and after either “R” or <CR> is de- 
pressed, the program prompts the user to 
enter the date (self-explanatory) and the 
user’s incremental tax rate (not so self- 
explanatory). All of us have a federal incre- 
mental tax rate which is dependent on our 
TAXABLE income rather than GROSS in- 
come. In essence, the taxable income is equal 
to the gross income minus the deductions 
available to the individual. The !ncremental 
Tax Rate can be determined from Tables X-Z 
in the instruction booklet for IRS form 1040. 


EDITING 

The Edit routine, which begins at line 
10250, permits the user to edit the data after 
it has been entered. Once the “E” key is 
depressed, the numbers 1 - 6 are displayed in 
a very narrow window on the left side of the 
screen so that one number is aligned with 
each line of data previously entered. Each 
number is called A “field number”. 

The Edit routine then sets a very small win- 
dow at the lower left hand corner of the 
screen (see program line 10380) and asks the 
user to specify which field he or she wishes to 
edit. The Edit routine then prompts the user 
to enter the new value for the data field and, 
after the carriage return is depressed, the new 
data is updated on the screen. As in the data 
entry procedure, the Edit routine checks the 
data during input to ensure that itis in proper 
form. 


OPTION 2 — LOAD DATA FILES 

The second option from the main Menu 
enables the user to load previously stored 
data from the disk drive. From this option, 
which begins at line 14000, the user can either 
append the data from the disk data file to the 
existing data in memory, or replace the exist- 
ing data in memory, if any. Thereafter, three 
commands are open to the user. 

After prompting from the program, the let- 
ter “M” will abort the command and return the 
program to the main Menu. The letter “C” will 
display a disk catalog; all data files will begin 
with ‘BONDDATA”. Lastly, the user may 
specify a single character “FILE IDENTIFIER” 
which is the character following the file name 
BONDDATA. Any character other than “M” or 
“C” will do. 

The File Identifier serves a two-fold pur- 
pose. First, it allows the user to store multiple 
data files since the “in memory” capacity of 
the Apple is limited. Secondly, the File Identi- 
fier enables the user to separate and save 
bond files with bonds having a different risk 
factor. Certain bonds have uncertain final 
values, and thus pay higher yields than the 
so-called safe or “bluechip” bonds. With high 
risk bonds, however, the bond issuer may not 
be able to pay you the bond Face Value on the 
bond Due Date. 


OPTION 3 — SAVE DATA TO DISK 
The third option from the main Menu per- 


continued on next page 
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Apple Bond Manager (Cont.) 


mits the user to save data in memory toa disk 
file. This routine, which begins at line 15000, 
prompts the user to specify a single character 
File Identifier which is appended to the file- 
name “BONDDATA\”. All data is preserved in 
memory following this routine. 


OPTION 4 — DISPLAY/EDIT DATA 

This routine, which begins at line 6000, dis- 
plays not only the bond data previously en- 
tered, but also the calculated bond yields 
(discussed below). The program prompts the 
user to enter the starting record number, or 
<RETURN> for all records. 

Four calculated values are displayed dur- 
ing this routine, namely the CURRENT YIELD, 
the CAPITAL GAIN YIELD, the GROSS YIELD 
and, perhaps most importantly, the AFTER 
TAX YIELD. The CURRENT YIELD is simply 
the Bond Face Value divided by the Purchase 
Price and multiplied by the bond Face Inter- 
est Value. Thus, a $1000 bond purchased for 
$500 and having a face interest of 4% will have 
a Current Yield of ($1000/$500 * 4%) or 8%. 

The CAPITAL GAIN YIELD is equal to the 
appreciation of the bond prorated over the 
life of the bond, provided that the bond is held 
for over one year, the so-called capital gains 
holding period. Thus, assuming that the $1000 
bond in the previous example matured or was 
payable ten years from the purchase date, the 
CAPITAL GAIN YIELD is equal to 100%/10 
Years or 10% per year. 


The GROSS YIELD is straightforward and 
is simply equal to the CAPITAL GAIN YIELD 
plus the CURRENT YIELD. The GROSS 
YIELD is significant for tax exempt bonds, 
such as municipal bonds. 

The final calculated value is the AFTER TAX 
YIELD which is the total yield on the bond 
after taking into account the incremental tax 
rate of the individual user. Since only one half 
of the capital gain is taxed as ordinary income, 
and thus subject to the full tax rate, high 
income users are financially better off pur- 
chasing bonds with high capital gains than 
high ordinary income. This will become ap- 
parent shortly. 

After the data and calculated values for the 
first record are displayed on the screen, the 
same four commands as in the data entry 
routine are available, namely “R”, “D”, “E” 
and <CR>. These commands, which are dis- 
played in the lower righthand corner, pro- 
duce the same effect as in the data entry rou- 
tine but do so in a slightly different fashion. 


The Delete command immediately replaces 
the bond name with astring of three asterisks 
(AS$), sets the delete flag (variable DL) to 1 
and then displays the next record. The Return 
command first checks to see if the delete flag 
is set and, if itis, first executes aGOSUB 2000 
at line 6600 which deletes all bond data 
records having the bond name “***”. The 
Return command then returns the program to 
the main Menu. 

The Edit command, as before, permits the 
bond data to be edited and then immediately 
updates the screen. The Apple window is set 
to the right side and spaced upwardly from 
the bottom of the screen sothat only the data 
is cleared and replaced on the screen. This 
procedure is much less distracting and some- 
what faster than clearing and then rewriting 
the entire screen. 
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Lastly, a carriage return will display the 
data and calculated results for the next record. 
As in the Edit command, only the data and 
calculated results are cleared and then rewrit- 
ten to the screen. 


OPTION 5 — PRINT RESULTS 

The fifth option from the main Menu begins 
at line 7000 and enables the user to obtain 
columnar printed output of the bond data as 
well as the calculated results. This routine, 
which prompts the user for the starting record 
as well as the ending record, will print the 
bond data output and calculated results for 
seven bonds before starting a new line. The 
printing can be interrupted at any time by 
pressing the letter “S”. As written, the printer 
output will print the bond results for fourteen 
bonds ona sixty line page of paper. Custom- 
ization instructions follow. 


OPTION 6 — CHANGE TAX RATE 

Option 6 enables the user to change the 
incremental tax rate. Do not set this tax rate 
upon entry to the program — when the pro- 
gram needs the incremental tax rate, it will 
ask for it. After entry of a different tax rate, the 
program will automatically calculate all of the 
values for all of the bonds. 

The reason for this routine is two-fold. 
First, it makes the program adaptable to dif- 
ferent users. Secondly, this option permits 
the user to easily recalculate the bond yield in 
the event that the tax rates change. 


OPTION 7 — SORTING THE DATA 

With Option 7 the user can sort the bond 
data by any data field as well as any calculated 
result. The Sort Menu begins at line 13000 
and is self-explanatory. The sort routine itself 
begins at line 1000 and is placed near the start 
of the program in order to speed the execu- 
tion of the sort routine. The Sort routine sorts 
numerical values in descending order and the 
bond names in ascending order, i.e. A-Z. 

The Sort routine is simple in operation. It 
starts at Record 1 and simply searches 
through all of the bond data records for the 
bond data record having highest value of the 
specified sort field. The sort then “swaps” the 
entire first record with the bond record hav- 
ing the highest value for the specified sort 
field. This procedure is then repeated for the 
second record and so on throughoutall of the 
bond records. With more than 100 records, 
the Sort routine will take a minute or so. 


OPTION 8 — END 

The End routine is (or should be) self- 
explanatory. It does, however, give the user 
the option to abort (also self-explanatory). 


SAMPLE RUN 

As a sample run, we will compare two dif- 
ferent bonds in order to determine the best 
investment strategy. For our purposes, we 
will assume that the best investment strategy 
is the one which yields the highest AFTER 
TAX YIELD. 

The first bond, “ABC”, is a bond which 
matures or comes due on May 1, 1989 (most 
bonds are due on the first of the month). ABC 
has a Face Value of $1000, a Purchase Price of 
$560 and pays an annual interest rate of 2%. 

The second bond, “XYZ”, matures on April 
1, 1992. It pays an annual interest rate of 11%. 
XYZ has a Face Value of $1000, and a Purchase 
Price of $840. Assume that today’s date is 
January 1, 1981. 


Lastly, assume that your incremental tax 
rate is 19%. After entry of the data for these 
two bonds (see Option 1 above), on the DIS- 
PLAY/EDIT mode (Option 4) we find that the 
After Tax yield for bond ABC is 11.43% while 
the After Tax yield for bond XYZ is 12.14%. 
Consequently, the high interest bond XYZ is 
the better investment. 


*** BOND YIELD CALCULATIONS *** 
** TAX RATE 19% ** 


“RECORD NO. 1 2 
BOND NAME ABC XYZ 
PURCHASE PRICE 560 840 
FACE VALUE 1000 1000 
MONTH DUE DATE MAY 1 APR 1 
YEAR DUE DATE 1989 1992 
FACE INTEREST 2.00 11.00 
GROSS YIELD 13.00 14.79 
CAPITAL GN YLD 9.43 1.69 
CURRENT YIELD 3.57 13.10 
AFTER TAX YIELD 11.43 12.14 


However, you have just gotten a promotion 
and a raise and your incremental tax rate has 
jumped to 49%. After resetting your tax rate 
(Option 6), the After Tax yield for bond ABC 
drops somewhat to 8.94% (Uncle Sam takes a 
bigger chunk of your income) but the After 
Tax yield for bond XYZ drops even more 
dramatically to 7.96%. Bond ABC, the low 
interest but high capital gains bond, is now 
the better buy. Please note that the low inter- 
est bond ABC has a better After Tax Yield 
than bond XYZ even though the Gross Yield 
for bond XYZ (14.79%) exceeds the Gross 
Yield for bond ABC (13.00%), all because of 
the different tax treatment for Capital gains 
income versus Ordinary income. 


*** BOND YIELD CALCULATIONS *** 
** TAX RATE 49% ** 


RECORD NO. 1 2 
BOND NAME ABC XYZ 
PURCHASE PRICE 560 840 
FACE VALUE 1000 1000 
MONTH DUE DATE MAY 1 APR 1 
YEAR DUE DATE 1989 19392 
FACE INTEREST 2.00 11.00 
GROSS YIELD 13.00 14.79 
CAPITAL GN YLD 9.43 1.69 
CURRENT YIELD 3.57 13.10 
AFTER TAX YIELD 8.94 7.96 


GENERAL PROGRAMMING NOTES 

The routine which begins at line 110 is my 
own version of PRINT USING and converts 
the floating point variable VV in decimal for- 
mat, e.g., 0.0650, to a two decimal string value 
VV$, e.g. 6.50. This conversion routine first 
takes the integer part of the decimal value 
multiplied by 10000 and converts this to a 
string T$ (line 190). VV$ is then constructed 
by inserting PE$ (“.”) before the second 
rightmost digit and then returns to the place 
from which it was called. Consequently, this 
conversion routine must be called each timea 
number is output to the screen in XX.XX for- 
mat but it really isn’t as slow as it looks. In 
addition, since Applesoft truncates floating 
point numbers in odd ways, it is necessary to 
add acorrection factor of .00005 (variable C1) 
to the floating point value before calling this 
conversion routine. 

After executing a GOSUB to this conver- 
sion routine, the number 0.0650 is converted 
into a string 6.50 (VV$). VV$, however, can 


vary in length from four characters (e.g., 
0.56%) up to six characters (e.g., 145.78%). 
Consequently, in order for the decimal points 
in the output to be aligned, it is necessary, 
after returning from the conversion routine, 
to determine the length of string VV$ and then 
insert the proper number of spaces or blanks 
BEFORE VV$ is output to the screen. Pro- 
gram lines 6330 and 6340 (among others) 
accomplish this purpose by establishing an 
output field that is six characters in length. 
The use of the ABS function in line 6340 (also 
among others) prevents the program from 
bombing in the event that the output field 
exceeds six characters. 

My PRINT USING can be easily transported 
to your other programs. 


BOND CALCULATIONS 

The actual calculations of the bond data 
are performed in lines 3000 to 3170 of the 
program. Line 3120 determines if the holding 
period for the bond is greater than twelve 
months (variable TW) and, if not, all gains are 
calculated at the ordinary income rate. If the 
capital gain holding period should change, 
also change line 3120. 

The printer output assumes a 60 line output 
(e.g., a Paper Tiger with automatic page 
feed). If your printer does not have automatic 
page feed, add the appropriate number of 
print statements at line 8000. In addition, if 
your printer requires special control codes in 
order to operate, add them at the end of line 
7170. 

Error trapping throughout the program has 
been handled in two different ways. First, the 
data entry is examined at the time of entry to 
protect against improper and/or ridiculous 
data values. Secondly, the routine at line 


16000 is provided to trap disk errors over 
which the program has no control. The disk 
error trap routine preserves data in the event 
of an error and permits the user to return to 
the main Menu with his or her data unscathed. 

The data storage requirements will vary 
depending on your Apple configuration. With 
48K and Applesoft in ROM, the program will 
easily handle 200 bonds in active memory 
(RAM). If you wish to change the storage 
capability of the program, change not only 
the DIM statement in line 11210 but also the 
constant HH in line 11190. 


THE WINDOWS 

“Windows” are used extensively through- 
out the program and particularly in the Edit 
routine. Windows not only provide a less dis- 
tracting appearance to the program than con- 
tinually clearing and rewriting the screen but 
also prevent unintended scrolling of the top 
of the screen. This is particularly evident in 
line 10380 which sets a very small window at 
the lower left hand corner of the screen for 
entry of both the field number to be edited, as 
well as the new data for the field which is 
edited. After the new data has been entered, 
the Apple is returned to full screen in line 
10570. Personally, | find it very handy to 
return the Apple to “full screen” when moving 
from one subroutine to another, since it 
ensures that the window is preset whenever 
any subroutine is called. 


THE ARRAYS 

The bond data as well as the calculated 
results are stored in the array X(N,Record#) 
where N equals one of the bond data values or 
calculated values. The bond name is stored in 
the string array BN$(Record#). Those read- 


ers with eagle eyes (as well as the critics) will 
quickly notice that the array value X(5,Rec- 
ord#) is unused. This was intentional, since 
someday, it may be convenient to have an- 
other value handy and variable X(5,Record#) 
is centered between the input data values and 
the calculated data values. 


THE SUBROUTINES 

The actual placement of the program sub- 
routines within the program is also important 
for rapid and efficient running of the program. 
Subroutines which are frequently executed, 
as well as subroutines which are reiterative in 
nature (e.g. my XX.XX conversion routine and 
the Sort calculations), are placed near the 
beginning of the program for more rapid exe- 
cution. For those who do not know it, when- 
ever Applesoft encounters a “GOTO line 
number” or “IF Z THEN line number” pro- 
gram line, Applesoft searches for the line 
number from the beginning of the program. 
Consequently, if the Sort routine which starts 
at line 1000 is moved to the end of the pro- 
gram, your sorts will be extremely slow. 

My last effort to speed the execution of the 
program was to assign numerous constants 
to variable names in program lines 11180 - 
11200 when the program is first executed. 
Applesoft interprets variable names within 
parentheses much more rapidly than con- 
stants. For example, the program statement Y 
= X(N5) executes much more rapidly than the 
statement Y =X(5).| strongly recommend that 
you use variable names, rather than numeric 
values, in your own programs if program exe- 
cution speed is desired. 

That's about it. Before you buy a bond, run 
Bond Manager, and test the alternatives for 
your “Best Buy”. y 





1 REM #eeHRERREMREH RHR ERE ER 
2 REM *# BOND MANAGER * 
3 REM # BY DOUG SPRINKLE # 
4 REM * COPYRIGHT (C) 1982 * 
S REM * BY MICRO-SPARC INC * 
6 REM # LINCOLN, MA. 01773 * 
7 REM RHRMRERERRASRRRR HERES 
168 GOTO 11600 

116 REM 


THIS ROUTINE CONVERTS 
TO XX.XX FORMAT 


176 REM 
188 W = 
198 Tt = 


INT (W *# TT) 
STR$ (W):SL = LEN (T$) - N2 


200 #IF SL < PS THEN T$ = 22% + T$:SL = SL + N2 
RIGHTS (T%,N2) 


216 WS = LEFTS (T$,SL) + PES + 
228 RETURN 

1666 REM 

REM START SORT 

1028 REM 

FOR SN = Ni TO! 

1648 MX = SN: REM MAX SUBSCRIPT 
165@ T = X(A,SN) 

FOR SF = SN TO! 

IF X(A,SF) < T THEN 18698 
1988 T = X<(A,SF):MX = SF 


109@ NEXT SF 

1188 IF MX = SN THEN 1228 
1118 REM 

1126 REM SWAP FIELDS 
113@ REM 

1148 FOR SW = N@ TO N@ 


1158 T = X(SW,SN) 

1168 X(SW,SN) = X<(SW,MX) 
117@ X(SW,MX) = T 

NEXT SW 

1198 T$ = BNS<SN) 

1288 BNS(SN) = BNS(MX) 
1218 BNS(MX) = TS 


REM SORT FOR BOND NAME 
1268 REM 

FOR SN= Ni TO! 

1288 MX = SN:T$ = BNS(SN) 

FOR SF = SN TO I 


1368 
1318 TS = BNS(SF) :MX = SF 


1328 
1330 
2666 REM 
2018 REM 
2028 
2036 REM 
2848 


NEXT SF 


GOTO 1100 


IF BNS(SF) > TS THEN 1328 


REM THIJS ROUTINE DELETES RECORD 


CALL - 9346: VTAB TW: HTAB 15: FLASH : PRINT "DELE 


TING’: NORMAL 


2058 
206@ POP : 
2078 
2088 
2090 


2118 


IF I > PS THEN 2078 
RETURN 

FOR MK = Ni TO I 

IF BNS(MK) < 
FOR M = MK TO I 
21080 X=M+ Ni : 
FOR MM = N@ TO NQ 


> ASS THEN 2178 


2128 X(MM,M) = X(MM,X) 


2138 NEXT MM 


215@ NEXT M 


216@ 1 = 1-Ni 
GOTO 2888 


2165 
2178 NEXT MK 
2186 DL = NB 
2198 
3006 REM 
3018 
3620 REM 
3038 
3848 


2148 BNS(M) = BNS<X) 


REM CALCULATE VALUES 


IF DT < PS THEN GOSUB 4088 
IF DI] ¢ PS THEN 3670 
305@ JJ = 1: CALL - 936: VTAB TW: HTAB 18: FLASH : 


PRINT 


"WAIT": NORMAL 


3868 


FOR L = BR TO JJ 


3078 X(N6,L) = X(N2,L) 7 HU 
3088 MO = (X(N3,L) - CY) * TW + X(N4,L) - CM 
3098 X(NB,L) = ((X(N1,L) - X(N@,L)) 7 X(NB,L)) 7 (MO 7 T 


Ww 


3168 X(N9,L) = (X(N1,L) 7 X(NB,L)) * X(N6,L) 
3118 X(N7,L) = X(N9,L) + X(NB,L) 


3128 


IF MO > TW THEN 3148 


3136 X(N9,L) = X(N9,L) + X(NB,L):X(NB,L) = NB 
3148 X(NQ,L) = (N1 - TR) #* (X(N9,L) + PS # X(NB,L)) + PS 


* X(NB,L) 
IF DI] < PS THEN RETURN 


3158 
3168 
3178 
4008 
4016 
4020 


NEXT L 
RETURN 


PRINT * 
PRINT * 
1,3,1981) 


CALL - 936: VIAB TW 
ENTER TODAY’S DATE": 
BY MONTH,DAY,YR": PRINT : 


PRINT 


INPUT " (E.G.1 


*;(M,CD,CY 
continued on next page 
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4838 


4048 
4858 
4868 
4078 
4088 
4098 
4168 
4118 


4128 


4138 
5eee 
5018 
5828 
5838 
548 
595@ 
5868 
5878 
5888 
598 


3188 
5118 


3128 
5138 


3148 
5158 


5168 
5178 


5188 
5198 
5288 


5218 
5228 


5238 


5248 
5258 
5268 
3278 
5288 
5298 
5388 
5318 


5328 
5338 


5348 
5358 
5368 


5378 


5388 
5398 


5488 
5418 
6008 
6818 
6828 
6838 
6848 
6858 
6868 
6878 


6668 
6898 
6168 
6118 


6128 


6138 


6148 
6158 
6168 
6178 
6188 


61978 
$206 
6218 
6228 


$236 


PRINT : PRINT : HTAB TW: PRINT MO$(CM);" ";CD;", * 
3CY 

’ 

PRINT : PRINT : PRINT TAB 12)"CORRECT (Y/N)?"; 
GET A$: IF AS = NL® THEN 4858 

IF LEFT (A$,N1) < > Y$ THEN 4008 

CM = CM + CD / F386 

CALL - 936 

PRINT : PRINT 
PRINT * ENTER YOUR MAXIMUM" 

PRINT : INPUT “ INCREMENTAL TAX RATE ---- "j;A$:T 
R= VAL (A$): IF TR < PS THEN PRINT G$: GOTO 48686 


TR = TR / HU:DT = Ni: CALL - 936: FLASH : VTAB TW: 
HTAB 18: PRINT "WAIT": NORMAL : RETURN 

RETURN 

REM 

REM 

REM INPUT DATA FROM 

REM KEYBOARD ROUTINE 

REM 
REM 
CALL 
FOR I 
CALL 
INPUT 


936:JX = 1 + Ni 


wie A 
g 
=] 
o 
=z 
| 


ENTER BOND NAME ";BNS(I): PRINT 
BNS(I) = LEFT$ (BN$(1),NS) 

INPUT * ENTER PURCHASE PRICE $$ “j;A$:T = VAL 
(A$): IF T < PS THEN HTAB N1: VTAB N2: PRINT 6%: GOTO 
3118 
PRINT :X(N@,I) = T 

INPUT * ENTER BOND FACE VALUE $ “jA$:T = VAL 
(A$): IF T < PS THEN HTAB Ni: VTAB N4: PRINT 6$: GOTO 
5138 
PRINT :X<N1,I) = T 

INPUT * ENTER INT. RATE ( X% ) ";AS:T = VAL 
(A$): IF T ¢ PS THEN HTAB Ni: VTAB Né: PRINT G$: GOTO 
5158 
PRINT :X(N2,I) = T 

INPUT * ENTER DUE DATE ( MO.DAY ) ";A$:A = VAL 
(AS) 

1F A= > NW OR A (NI THEN PRINT G$: HTAB NI: VTAB 
N?: GOTO 5178 
T = HU ® (A -_ INT (AD): IF T > ND THEN PRINT G$: HTAB 
Ni: VTAB N?: GOTO 5178 
X(N4,1>) = TD ® (A - INT (AD) + INT (A): IF X(N4,1 
>) = VAL (AS) THEN X(N4,1) = X(N4,1) + TD / HU 
PRINT 

INPUT * ENTER DUE DATE (YR 1982) “;A$:T = VAL 
(A$): IF T ¢ PS THEN HTAB Ni: VTAB N@: PRINT G$: GOTO 
5228 


IF LEN (A$) ¢ > N4 THEN PRINT G$: HTAB Ni: VTAB 
11; GOTO 5228 
X(N3,1) = T 

PRINT 

PRINT : PRINT 

cC = I:L = CC 

GOSUB 14888 

IF NS = Ni THEN NS = N@: GOSUB 38638: RETURN 

IF NS = N2 THEN NS = N@: CALL - 936: GOTO 5898 

IF NS = N4 THEN NS = N@: CALL - 936: GOSUB 3038: GOTO 
5488 

POKE 33,16: POKE 32,38: VTAB Ni: HTAB 35: POKE 35, 


18: REM SET WINDOW 
CALL - 936: PRINT BN$(1): PRINT : PRINT X(N@,1): PRINT 


PRINT X(N1,1): PRINT 
PRINT X(N2,1): PRINT 
A = INT (X(N4,1)):T = INT (HU * (X(N4,1) - A + CO 
> / TD) 
= STRS (A):T$ = STR (T): IF LEN (T$) < N2 THEN 
Ts = "8" + TS 
PRINT AS + PES + T$: PRINT 
PRINT X(N3,1): PRINT : POKE 33,48: POKE 32,@: POKE 
35,24: GOTO 5288 


REM THIS ROUTINE OUTPUTS 
REM ANSWERS TO THE SCREEN 
REM 
REM 


CALL - 936:KZ = Ni 

VTAB 8: PRINT TAB( 5)*ENTER RECORD NO.*: PRINT : INPUT 
- <{RTN) FOR ALL RECORDS * ;As 

KZ = VAL (AS): IF KZ ¢ PS THEN K2 = Ni 

IF K2 > I THEN RETURN 

CALL - 936 

PRINT TAB( N4)"BOND NAME’: PRINT : PRINT TAB( N4 
)*PURCHASE PRICE $": PRINT : PRINT TAB( N4)"BOND 
FACE VALUE $*: PRINT : PRINT TAB N4)"FACE INTERE 
ST (%)": PRINT 

PRINT TAB( N4)"DUE DATE (MO-DAY)": PRINT : PRINT 
TAB( N4)"DUE DATE ( YEAR )*: PRINT : PRINT TAB( N 
4)"GROSS YIELD (%)": PRINT : PRINT TAB( N4)"CAPITA 
L GN YLD (%)": PRINT 

PRINT TAB{ N4)*CURRENT YIELD (%)": PRINT : PRINT 
TAB( N4)"AFTER TAX YIELD (%)* 

FOR K = KZ T0 1 

REM 

REM SET WINDOW 

REM 


HTAB 38: POKE 33,15: POKE 32,24: POKE 35,BM: CALL 
- 936 

T = LEN (BNS(K)):S = ABS (N6 - T) 

PRINT SPC( S)BN$(K);" RCD ";K 

PRINT 

T$ = STR (X(N@,K)):T = LEN (1$):S = ABS (NS - T 
) 


PRINT SPC S)T%: PRINT 
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$248 


6258 
6268 
6278 
6288 
6298 
6388 


6318 
6328 
$6338 
6348 
$358 
6368 
6378 
6388 
$398 
6408 
6418 
6428 
6438 
6448 
6458 
6468 
6478 
4488 
6498 
6568 
6518 
6528 
6538 
6548 
$558 


6568 
6578 
6588 
6598 
6668 
6618 
7888 
7818 
7828 
7838 
7848 
7858 
7868 
7878 
7888 


7898 
7168 


7118 
7128 
7138 
7148 


7158 
7168 
7178 


7188 
7198 
7288 


7218 
7228 
7238 
7248 
7258 
7268 
7278 
7288 
7298 
7388 
7318 
7328 


7338 
7348 
7358 
7368 
7378 
7388 
7398 
7488 
7418 
7428 
7438 
7448 
7458 
7468 


7478 
7488 
7498 
7568 
7518 
7528 


7538 
7548 
7558 
7568 
7578 
7586 
7598 
7608 
7618 
7626 
7638 
7648 


T$ = STR$ (X(N1,K)):T = LEN (T$):S = ABS (N6 - T 
) 


PRINT SPC( S)T$: PRINT 

W = X(N6,K) + C1: GOSUB 188 

T = LEN (W$):S = ABS (N6 - T) 
PRINT SPC¢ S)WW$: PRINT 

A = X(N4,K):B = INT (A) 

Ws = STR® ( INT (HU ® (A - B + CO) 7 TD)):S = ABS 
(N3 - LEN (VV$)) 

PRINT SPC( S)MO$¢ INT (X(N4,K)));VV$: PRINT 
PRINT SPC¢ N2)X(N3,K): PRINT 
W = X(N7,K) + Cl: GOSUB 188 

T = LEN (WS):S = ABS (N6é - T) 
PRINT SPC S)WS 

PRINT 

W = X(N8,K) + Ci: GOSUB 188 

T = LEN (W$):S = ABS (N6é - T) 
PRINT SPC( S)WS 

PRINT 

W = X(N9,K) + Ci: GOSUB 188 
T= LEN (W$):S = ABS (Né - T) 
PRINT SPC( S)WS 

PRINT 

W = X(NQ@,K) + C1: GOSUB 188 

T = LEN (W$):S = ABS (Né - T) 
PRINT SPC( S)WS 

REM RESET WINDOW 

POKE 32,8: POKE 33,48 

CC = K: GOSUB 16808 

BM = 28 


IF NS = Ni THEN NS = N@: GOTO 6686 
IF NS = N4 THEN NS = N@: GOTO 6598 
IF NS = N3 THEN 6578 
BNS(K) = AS$:NS = N@:DL = Ni: REM SET 
DELETE FLAG 
GOTO 6598 
NS = N@:N = CC:L = CC 


GOSUB 3676:SC = N@: GOTO 6188 

NEXT K 

BM = 24: IF DL > PS THEN GOSUB 2868;DL = N@ 
RETURN 


REM 
REM PRINTER OUTPUT 


REM 

CALL - 936 

INPUT “PRINT RESULTS? (Y/N) (RET> *;AS 
PRINT 


IF LEFT$ (A$,N1) < > YS THEN RETURN 

PRINT “TURN ON PRINTER AND": PRINT 

INPUT “ENTER PRINTER SLOT NUMBER <RET> *;A$:N = VAL 
(AS) 

IF N < N1 OR N > N7 THEN PRINT GS: GOTO 7838 

CALL - 936: VTAB 7: PRINT “ENTER FIRST RECORD NO. 
OR": INPUT "PUSH <RET> FOR FIRST RECORD - *;A$: PRINT 


IF A*% = NLS THEN KK = 1: GOTO 7138 

KK = VAL (A$) 

IF KK < PS THEN KK = ON 

PRINT “ENTER LAST RECORD NO. OR*: INPUT “PUSH <RET 
> FOR LAST RECORD - *;AS 

IF AS = NL& THEN LR = I: GOTO 7178 

LR = VAL (AS) 

CALL - 936: PRINT TAB 6)"PUSH “ S “ TO HALT PRI 
NTING*: VTAB 4: HTAB 1: POKE 34,3: PR®N 

REM THIS ROUTINE OUTPUTS TO PRINTER 

KN = KK + 6: IF KN > LR THEN KN = LR 

PRINT CHR (NW): PRINT SPC( 15)"*#*# BOND YIELD C 
ALCULATIONS #*#": PRINT 

T = INT (TR ® HU + .5) 

PRINT SPC( 2@)"## TAX RATE ";T;" % ##*: PRINT 
PRINT ‘RECORD NO. “a 

FOR K = KK TO KN 

T$ = STRS (K):T = LEN (T$):S = NS - T 

PRINT SPC S)TS$; 

NEXT K 

PRINT CHR (NW) 

GOSUB 8838 

PRINT “BOND NAME “s 

FOR K = KK TQ KN 

IF LEN ¢<BNS$(K)) >) N8 THEN BNS(K) = LEFTS (BNS(K) 
»N8) 

T = LEN (BNS(K)):S = ABS (NB - T) 

PRINT SPC( S)BNS<K); 

NEXT K 

PRINT CHRS® (NW) 

GOSUB 8838 

PRINT "PURCHASE PRICE *; 

FOR K = KK TO KN 

TS = STR (X(@,K)):T = LEN (T$):S = NB - T 

PRINT SPC( S)T#; 

NEXT K: PRINT CHR® (NW) 

GOSUB 883@ 

PRINT “FACE VALUE sa, 

FOR K = KK TO KN 

T® = STRS (X(NI1,K)):T = LEN (T$):S = N8 - Ts: PRINT 
SPC( S)T$;: NEXT K 

PRINT CHRS (NW) 

GOSUB 8838 

PRINT "MONTH DUE DATE *; 

FOR K = KK TO KN 

T = X(N4,K):A = INT (T):T® = MOSCA) 

Ws = STRS ¢ INT (HU ® (T - A + CO) / TD)):T = LEN 
(W$):S = NS - T 

PRINT SPCi S)TS;\V$; 

NEXT K 

PRINT CHR (NW) 

GOSUB 8038 

PRINT "YEAR DUE DATE ‘; 

FOR K = KK TO KN 

T# = STRS (X(3,K))sS = 4 

PRINT SPC( S)T$; 

NEXT K 

PRINT CHR (NW) 

GOSUB 8838 

PRINT “FACE INTEREST ‘"; 


7656 FOR K = KK TO KN 
7668 yak sey + Cis GOSUB 160:T = LEN (Yys):S 
i Ba 

7676 PRINT SPC( S)WS; 

7686 NEXT K 

76976 PRINT CHRS (Mu) 

7788 GOSUB 2626 

7716 PRINT *GROSS YIELD “7 

7726 FOR K = KK TO KN 

7738 A) = XOM7,K) + Ci: GOSUB 188:T 
(mB - T) 

7748 ~=PRINT SPC S)WS; 

7756 NEXT K 

7766 PRINT CHRS (MU) 

777¢ GOSUB 2636 

7786 PRINT “CAPITAL GN YLD ‘; 

FOR K = KK TO KN 

7868 WW = X(NB,K) + Ci: GOSUB 186:T = LEN (V¥ys):5 

(MB - T) 

PRINT SPC( S)WS; 


w 


LEN (V8):S 


ABS 


PRINT “CURRENT YIELD °; 

FOR K = KK TO KN 

W = X0N9,K) + Cl: GOSUB 186:T 
(NB - T) 

PRINT SPC‘ 5); 

NEXT K 

PRINT CHRS (Mu) 

PRINT “AFTER TAX YIELD*; 

FOR K = KK TO KM 

W = X0NO,K) + Cl: GOSUB 188:T 
(Na - T) 

PRINT SPCC S)UVS; 

NEXT K 

PRINT CHRS (Nu) 

IF 04> = LR THEN 8978 

KK = K+ 7:10 = KK + 6 

IF 4 > LR THEN OM = LR 

260@ PRINT : PRINT 

9818 GOTO 7288 

687@ REM KEY DEPRESS SENSE 

9038 B= PEEK ( - 14384): POKE - 16368,8: IF B < 127 THEN 

RETURN 

2048 IF B = 211 THEN POP : GOTO 3878 

8856 RETURN 
8868 REM RESET WINDOW AND RECONNECT DOS 

8878 POKE 24,6: CALL - 375: CALL - 345: CALL 1662: RETURN 


LEN (V/$):S = ABS 


LEN (V48):5 = ABS 


SUSEIY FILPGE SERIE 


19666 REM 


FEM 
16878 FEN EDIT ROUTINE 
19636 FEN 
16648 NS = @: POKE 35,74: REM RESET BOT MAR 
16856 YTAB 21: HTAB 25: PRINT “R TN TO MENU™ 
18668 VTAB 22: HIAB 25: PRINT °D DELETE RCD* 
16678 ‘YTAB 23: HTAB 25: PRINT *E EDIT RCD* 
10088 VTAB 24: HTAB 24: PRINT “RTM WEXT RCD’; 
16678 HTAB 1 
18186 POKE 33,28: POKE 32,6: POKE 24,22 
18118 GET GS: IF AS = NLS THEN 16118 
19128 IF A&® < ») *R* THEN 16156 
18138 POKE 33,46: POKE 32,8: POKE 34,86 
16146 NS = i: RETURN 
10156 IF AB < >» “O° THEN 16188 
18168 POKE 33,48: POKE 32,8: POKE 34,86 
18178 NS = 2: RETURN 
10186 IF @& < » *E* THEN 16218 
181978 POKE 323,40: POKE 32,6: POKE 34,86 
19206 NS = 3: GOTO 1875¢ 
16216 IF A& = CHRS (M4) THEN 18226 
16226 PRINT GS: GOTO 16118 
18236 POKE 33,40: POKE 32,6: POKE 34,8 
18248 NS = 4: RETURN 
16758 REM 


REM 
16276 REM EDIT ROUTINE 
19788 REN 
18276 REM SET WINDOW 
16268 POKE 33,3 
19318 CALL - 936: PRINT “1 -* 
18326 PRINT °2 -* 
19338 PRINT °3 -* 
18348 PRINT °4 -* 
10358 PRINT °S -" 
10364 PRINT °6 -*: VTAB 73: HTAB i 
19376 POKE 33,4¢: REM RESET WINDOW 
19388 POKE 33,28: POKE 22,6: POKE 34,71 
163978 REM 
19466 CALL - 736: PRINT “ENTER FIELD NO.* Seat 
16418 GET AS: IF VAL (AS) ( PS OR VAL (AS) 7 6.5 THEN 

PRINT 6%: GOTO 19466 
18428 A= VAL (AS) 
16438 CALL - 736 
16446 PRINT “ENTER NEY "2 PRINT EFS(A);° °3: INPUT 


1945¢ JF A = 1 THEN GNS(CC) = LEFTS (AS,N5): GOTO 1657 


16468 IF UAL (AS) = NO THEN PRINT 6%: GOTO 16396 

16478 IF & = NZ THEN X(NG,CC) = VAL (AS): GOTO 18576 

1948@ IF A = NZ THEN X(M1,CC) = VAL (AS): GOTO 16576 

1949@ IF & = N4 THEN X<NZ,CC) = VAL (AS): GOTO 16578 

195¢@ IF A< > NS THEN 16550 

16516 A= VAL (AS): IF A 4 PS OR A> = N4 THEN PRINT 
GH: GOTO 16296 

19528 T = HU * (A - INT (A)): IF T > ND THEN PRINT GS: 
GOTO 162976 

19538 X(M4,CC) = TO * (A - INT (A)) + INT (AD: IF KONG 
,£0) = VAL (A%) THEN X(N4,CC) = X(N4,CC) + TOD / HU 


16546 GOTO 1¢578 
19556 1F A= M6 AND LEN (AB) ¢ =) N4 THEN PRINT GS: GOTO 


16376 


16568 X(N3,CC) = VAL (AS): GOTO 16576 
18578 CALL ~ 936: POKE 33,3: POKE 34,0: CALL - 936: POKE 


1165@ EFS(S) "DUE DATE(MO)* 

116468 EFS(64) *DUE DATECYR)* 

11876 REM BS =BOND NAME 

11686 REM X%(6,X)=BOND INTEREST RATE 

11676 KEM X47 ,4)=GROSS YIELD 

11166 REM X%(8,X)=CAPITAL GAIN YIELD 

11118 REM X69 ,A)=CURRENT YIELD 

11126 REM X(18,XI=REAL YIELD 

11138 REM Xx(@,X) = BOND PRICE 

11148 REM XON1 ,X) = BOND FACE VALUE 

11156 REM X(2,4) = BOND INTEREST 

11168 REM X(3,%) = DUE DATE (YR) 

11176 REM K(4 KD DUE DATE (M0) P 

11188 TT = 16006:HU = 106:22$ = *68°;:PES = “.*:TW = 12:P 
5S = ,4:AS$ = *s9e°sN@ = GsNI = 1:7S = “¥"sSTS = *ae 
":NL6 = *":ND = 31: REM PS HAS BEEN CHANGED TO .4 

~ CAPITAL GAIN RATE IS NOW 467% 

1119786 NS = S:N2 = 2:N3 = 3:N4 = 4:F2@ = 36:HH = 206:N6 
6:N7 = 7:N6 = 8:N7 = F:NQ = 16:MW = 13:84 = 24:70 
3.3333:CO = .665:Ci = .66665 

11286 GS = “"; REM GS = (CONTROL) G 

11218 DIM BNS< 266) ,M0S‘12) ,X(16,268) ,EC$(15) 

11226 GOSUB 17666 

11236 REM 

11246 REM 

1125@ REM 

11266 REM MENUE 

11276 REM 

11286 REM 

11276 CALL - 736 

11366 PRINT SPCC 14)°s*#* MENUE ##8°: PRINT : PRINT 

11318 PRINT TABC NS)*1 - ENTER DATA FROM KBD": PRINT 

11328 PRINT TAB NS)*2 - LOAD DATA FROM DISC*: PRINT 

11338 PRINT TABS NS)"3 - SAVE DATA TO DISC*: PRINT 

11348 PRINT TAB N5)*4 ~ DISPLAY/EDIT DATA’: PRINT 

1135@ PRINT TAB NS)*S - PRINT RESULTS": PRINT 

11368 PRINT TAB NS)"S - CHANGE TAX RATE*: PRINT 

11376 PRINT TABS N5S)*7 - SORT*: PRINT 

11386 POKE 346,NS5 - 1: PRINT "8 - END*;: HTAB 27: PRINT 
1;° *;: INVERSE : PRINT "RECORDS": NORMAL : PRINT : 

PRINT 

113978 PRINT TABC N@)*ENTER SELECTION *; 

11488 HTAB 1: VIAB 24: POKE 34,23 

11418 GET AS: IF AS = HLS THEN 11418 

11426 A= VAL (AS) 

11930 IF A > PS AND A 4 8.5 THEN 11458 

11446 PRINT GS: GOTO 11418 

11458 POKE 34,86 

11466 ON A GOSUB 50466 14666 ,15668 ,46466,7636,12666,13068 


33,46: RETURN 
1168@ REM 
11616 EF$(3>) = *BOND NAME’ 
11626 EF$(2) = “PUR PRICE* 
11636 EFS(3) = “FACE VALUE" 
11648 EFS$(4) = “INTER RATE" 
= 


neu 


,11488 
11476 GOTO 11236 
11488 PRINT ; PRINT * ARE YOU SURE? (Y/ND”* 


114976 GET AS: IF A® = NLS THEN 114978 

11508. IF AS < ) YS THEN 11238 

11516 END 

12668 REM 

12616 REM THIS ROUTINE RESETS 

12626 REM THE TAX RATE AND 

12638 REM RECALCULATES 

12048 CALL —- 936: VTAB 12:MD = 1 

12658 GOSUB 4678:D1 = 1:BR = Ni: GOSUB 3838 

12668 DI = 6: RETURN 

13668 REM 

13616 REM 

13628 REM SORT ROUTINE 

13638 REM 

13848 REM 

13658 CALL - 9736 

13868 VS(N@) = N@:VS(NI) = Né:VS(NZ2) = N7:VS(N3) = NB8:VS 
(N4) = N7:VSONS) = NQ:VS(N6) = N@:VS(N7) = NI :VS(NB 
>) = N3:VS(N7) = N4 

13878 PRINT TABC 18)*##* SORT ROUTINE *###": PRINT : PRINT 


13686 PRINT TAB NS)*@ - BOND NAME" 

13698 PRINT TAB< NS)*1 - BOND INTEREST” 

13166 PRINT TABC N5)*2 - GROSS YIELD® 

13118 PRINT TABS NS)*3 - CAPITAL GAIN YIELD* 

13126 PRINT TABS NS)*4 - CURRENT YIELD" 

13138 PRINT TABS N5)*S - AFTER TAX YIELD* 

13146 PRINT TAB NS5)*é - BOND PURCHASE PRICE" 

13158 PRINT TAB‘ N5)*7 - BOND FACE VALUE" 

13168 PRINT TAB< NS)*8 - BOND DUE DATECYR)* 

13178 PRINT TAB N5)*9 - BOND DUE DATECMO)*: PRINT 

13186 PRINT TAB N3)*<RET> - RETURN TO MENUE": PRINT : 
PRINT 

1317@ PRINT TAB< S)*ENTER SORT FIELD*; 

13268 GET AS: IF AS = NLS THEN 13268 

13218 1F A® = CHRS (NW) THEN RETURN 

13228 IF AS = "6" THEN A = 8: GOTO 13248 

13238 A = VAL (AS): IF A < PS OR A) 7.5 THEN PRINT GS 
: GOTO 13198 

13246 CALL - 936: VTAB TW: HTAB 16: FLASH : PRINT "SOR 
TING": NORMAL 

13258 1F A = N@ THEN 1276 

13268 A = VS(A) 

13276 GOTO 1686 

14868 ONERR GOTO 14068 

1461@ REM 

14928 REM THIS ROUTINE LOADS DATA 

14838 REM FROM FILE ‘BONDDATA’ 

14949 CALL - 936: FOR J = Ni TO N8: PRINT GS: NEXT J 

14658 VTAB 11: PRINT TABC 12)* INSERT DATA DISK* 

14668 VTAB 13: HTAB 12: INPUT “AND PRESS RETURN" ;AS 

14678 DS = CHRS (4):BK = Ni:JJ = N@: CALL - 936: VTAB 
Tw: IF I < PS THEN 14138 
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14888 PRINT "APPEND TO EXISTING FILE? (Y/N) "; 

14890 GET AS: IF AS = NL$ THEN 14898 

14108 IF LEFT$ (A$,N1) < > Y$ THEN 1 = N@:BR = Ni: GOTO 
14120 

14110 JJ = 1:BR = 1 

14128 PRINT : PRINT 

14138 PRINT “ENTER FILE IDENTIFIER * 

14148 PRINT : PRINT “OR PRESS ‘C’ FOR CATALOG" 

1415@ PRINT : PRINT "OR ’M’ TO RETURN TO MENUE "; 

14168 GET FFS: IF FFS = NL$ THEN 14168 

14178 IF FF$ = "M" THEN RETURN 

14180 IF FFS < > "C* THEN 14248 

14198 PRINT * *: CALL - 936 

14288 PRINT D$; "CATALOG" 

14218 PRINT : PRINT "PRESS ANY KEY TO CONTINUE’: 

14228 GET AS: IF AS = NLS THEN 14220 

14238 GOTO 14008 

14248 CALL - 936: VTAB TW: HTAB TW: NORMAL 

1425@ PRINT "READING BOND DATA" ;FFS 

1426@ PRINT D$;"OPEN BONDDATA® ;FFS 

14278 PRINT D$;*READ BONDDATA‘ ;FFS 

14288 INPUT KK 

14290 1 = 1 + KK 

14308 IF I >) HH THEN I = HH 

1431@ FOR J = JJ + NI 101 

1432@ INPUT BNS<J) 

14338 INPUT X(N@,J) 

14348 INPUT X<N1,J) 

1435@ INPUT X(N2,J) 

14368 INPUT X(N4,J) 

14378 INPUT X<N3,J) 

14388 NEXT J 

14398 PRINT D$;*CLOSE BONDDATA* ;FFS 

14488 DI = Ni: GOSUB 3838:DI = N@: RETURN : REM cA 
LCULATE RESULTS 

1588@ ONERR GOTO 14ee@ 

15818 REM 

1582@ REM THIS ROUTINE SAVES DATA 

15838 REM TO FILE ‘BONDDATA’ 

15048 REM 

15¢5@ IF 1 > PS THEN 15898 

15@6@ CALL - 936: VTAB 11: PRINT TAB( 12)"NO DATA IN 
MEMORY * 

15878 VTAB 13: HTAB 14: INPUT "PRESS RETURN* ;AS 

15@8@ RETURN 

15698 CALL - 936: FOR J = Ni TO NS: PRINT G$: NEXT J 

15188 VTAB 11: PRINT TAB( 12)*INSERT DATA DISK* 

1511@ VTAB 13: HTAB 12: INPUT “AND PRESS RETURN" ;AS 

1512@ CALL - 936: VTAB TW: HTAB TW 

1513@ PRINT "ENTER FILE NUMBER "; 

1514@ GET FFS: IF FFS = NLS THEN 15148 

1515@ REM 

15168 CALL - 936: UTAB TW: HTAB TW: NORMAL 

15178 PRINT “WRITING BOND DATA‘ ;FFS 

15188 D$ = CHRS (4) 

15198 PRINT D$;"OPEN BONDDATA" ;FFS 

15288 PRINT D$;*DELETE BONDDATA" ;FFS 

15218 PRINT D$;*OPEN BONDDATA" ;FFS 

{5228 PRINT D$;*WRITE BONDDATA® ;FFS 

1523@ PRINT I 

15248 FOR J=Ni TO 1 

15258 PRINT BNS<J) 

15268 PRINT X(N@,J) 

15278 PRINT X<N1,J) 

15288 PRINT X<N2,J) 

15298 PRINT X(N4,J) 

1538@ PRINT X(N3,J) 

15318 NEXT J 

15328 PRINT D$;*CLOSE BONDDATA’ ;FFS 

15338 NORMAL 

15348 RETURN 

1600@ REM 

16818 REM 

16828 REM ERROR ROUTINE 

16838 REM 

16048 REM 

1685@ EC = PEEK (222) 

16868 GOTO 16168 

16878 CALL - 936: FOR T = Ni TO NB: PRINT G$: NEXT T 

16898 VTAB 12: PRINT * *#* DISK ERROR #*#* 

16138 PRINT : PRINT ECS(EC) 

1614@ PRINT : INPUT “PUSH RETURN TO CONTINUE* ;A% 

1615@ GOTO 11236 

1616@ EC$(1) = “LANGUAGE NOT AVAILABLE’ 

16178 EC$(4) = "WRITE PROTECTED" 

16188 EC$(5) = “END OF DATA" 

16198 EC$(6) = ‘FILE NOT FOUND" 

1626 EC$(8) = *1/0 ERROR* 

16218 EC$(7) = "DISK FULL" 

16228 EC$(1@) = "FILE LOCKED" 

16238 EC$(11) = ‘SYNTAX ERROR" 

16248 GOTO 14878 

17868 1$ = *JANFEBMARAPRMAY JUNJLYAUGSEPOCTNOVDEC" 

17018 T= - N2 

17828 FOR J = Ni TO Tw 

17030 T=T + NB 

17648 MOS(J) = MIDS (T$,T,N3) 

17858 NEXT J: RETURN 
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INTRODUCTION 

There are three main advantages to having 
the new 16-sector DOS 3.3. There’s a 23% 
increase in disk storage space, the speed of 
disk I/O is substantially increased, and it is 
the new standard for Apple computer soft- 
ware. The one big disadvantage is its incom- 
patibility with the earlier 13-sector versions of 
Apple DOS. This article presents a program, 
called DOS 3+2, that provides co-resident 13 
and 16 sector DOS and goes a long way 
towards solving problems associated with 
having two incompatible disk formats. 


PROBLEMS OF TWO DOS’s 

What are some of the problems caused by 
the incompatibility of DOS 3.3 with DOS 3.2? 

To use the 13-sector formatted disks now 
requires a cumbersome two disk booting 
process. You no longer have the nice auto- 
run feature with DOS 3.2 software. But why 
would anyone still be using 13-sector disks? 
Well, if you’ve accumulated a lot of programs 
and data on the old disks, you just may not 
feel up to converting them all to DOS 3.3. Or 
maybe you trade disks with some old die- 
hards who haven't gotten DOS 3.3 yet. More 
importantly, much of the Apple software 
available today still comes only in the 13- 
sector format. It’s easier to produce only one 
format, and while DOS 3.3 owners can run 
DOS 3.2, the reverse is not true. Also, a lot of 
commercial software is in a copy-protected 
format that can’t even be transferred to 16- 
sector DOS. And finally, if you do decide to 
transfer to DOS 3.3 you have to deal with the 
notorious “MUFFIN” program. 


FILE TRANSFER 

The advertising describing DOS 3.3 is de- 
ceptive. It claims to include a utility program 
to convert 13-sector disks to 16-sector. Not 
quite! The program “MUFFIN” doesn’t con- 
vert disks, but rather transfers files from a 
13-sector to a 16-sector disk. Picky, Picky, 
you say. Transfer, not convert — what's the 
big deal? The big deal is that MUFFIN trans- 
fers ONE FILE AT ATIME. So if you have fifty 
files on a disk and only one disk drive, MUF- 
FIN’ing that one disk requires inserting and 
removing disks ONE HUNDRED TIMES! Mul- 
tiply that by thirty or forty disks and you're 
ready to go back to cassette tape. 

Before DOS 3.3, Apple didn’t provide any 
program atall for copying a disk with asingle 
disk drive. Even “FID” uses the same excru- 
ciatingly slow, one file at a time technique as 
“MUFFIN”. And try programming in Pascal 
with one drive — it is an exercise in futility! 

Fortunately, single drive disk copy pro- 
grams have been written that can transfer all 
the files on a disk in four passes or less. And 
single drive, whole disk “MUFFIN” programs 
have been written as well. In fact, it was to 
provide an environment for such a program 
that | wrote my first version of DOS 3+2 (for 
DOS 3.3 and DOS 3.2). 


FEATURES OF DOS 3+2 

DOS 3+2 is an assembly language program 
that relocates the 13-sector disk I/O routines 
from “MUFFIN” and appends them to 48K 
16-sector DOS 3.3. 

The version of DOS to be used is selectable 
from within any program via a single POKE 
command. 

The DOS version can also be changed at 
any time (even while running an unmodified 
program) via a keyboard intercept switching 
routine. 

Additionally, DOS 3+2 features error-driven 
automatic switching. Any disk read error will 
lead to the other DOS being tried automat- 
ically!! 

Any disks INIT’ed under 16-sector DOS will 
contain the entire DOS 3+2. (INIT under DOS 
3.2.1 is disabled.) 


BACKGROUND 

To understand how DOS 3+2 works requires 
some knowledge of the structure of DOS. A 
breakdown of 48K DOS 3.3 into its major 
functional components is presented in 
TABLE 1. 


TABLE 1. MAJOR PARTS OF DOS 


Address_ Descripton 
BFFF- RWTS — (Read or Write a Track 
B600 and Sector) 
low level disk access routines 
B5FF- FILE MANAGER — disk file 
AAC1 command routines (calls RWTS) 
AACO- OPERATING SYSTEM — BASIC 
9D00 interface, command interpreter 
(calls File Manager) 
9CFF- FILE BUFFERS (MAXFILES3) 
9600 


Comparing DOS 3.2.1 and DOS 3.3 reveals 
that the operating system and file manager 
portions of the two DOS’s are almost identi- 
cal, but the RWTS sections are substantially 
different. So we can use the same operating 
system and file manager sections for both 
DOS'’s and just have different RWTS sections. 

The program “MUFFIN” from the DOS 3.3 
System Master serves as the source for the 
13-sector RWTS routines. These routines will 
be relocated to just below DOS 3.3. A com- 
parison of the locations of these routines is 
given in TABLE 2 for normal 48K DOS 3.2.1, 
for MUFFIN, and for DOS 3+2. 


TABLE 2. DOS 3.2.1 RWTS LOCATION 


48K MUF- DOS 
DOS FIN 3+2 
BF _ — (used only by INIT) 


B7 _ _ 
B6 _ _— 


(used only by INIT) 


(used only during 
boot) 


PROGRAM LOGIC 


Refer to LISTING 1. 

The program was assembled on the Apple 
Pascal 6502 assembler and transferred to 
Apple DOS using a special Pascal<=>DOS 
File Transfer Program | wrote. A few notes on 
some non-standard features of this assem- 
bler are in order. The assembler uses the 
unconventional “@” instead of parentheses to 
indicate the indirect addressing mode. The 
percent symbol “%” is used to indicate the 
MODULO operation (remainder division). 
Oddly, the assembler also uses the “%” sym- 
bolas the external parameter token in. MACRO’s. 
Since this prevents use of MODULO in 
.MACROs, | patched the assembler to use the 
question mark “?” as the external parameter 
tokenin.MACRO’s. Another bug in the assem- 
bler gives an error when numbers greater 
than $8000 are divided (or moduloed) by $100 
and used as immediate addressing mode 
arguments. The unusual coding in the 
.MACRO labeled PATCH compensates for 
this bug. 

Though the assembly listing is pretty well 
commented, some more detailed explanation 
will be useful in understanding how DOS 3+2 
works and in applying these techniques to 
other programs. This explanation will be 
divided into two main parts: 1) explaining 
how DOS 3+2 is created by the program; and 
2) understanding how the modifications to 
normal DOS work. You can enter the Hex 
Code directly into your Apple (see Entering 
the Program later in this article). 


CREATING DOS 3+2 

The action starts at $323C with a check to 
see that 48K DOS 3.3 is present. Then the 
operator is prompted to insert a disk contain- 
ing the program “MUFFIN”. (The PRINT sub- 
routine (at $3225-323B) doesn’t have the 
string length restriction of 127 or 255 char- 
acters that many others do, and can easily be 
used in other assembly language programs.) 

After BLOADing “MUFFIN”, the DOS 3.2.1 
RWTS routines are relocated to just under 
DOS 3.3. Since these routines occupy $700 
bytes, when relocated they will occupy the 
space from $9600-$9CFF. Relocating 
machine language code involves more than 
just moving the code to a new address. All 
address references in the code must be 
changed to reflect the new address range. 
DOS also contains segments which are com- 
posed of data (rather than instructions). This 
data may represent a lot of different things, 
some of which will be the same value at any 
address, and other items (like tables of 
addresses) which have to be modified for the 
new location. To correctly modify this re- 
quires detailed information on all the data 
segments. (More discussion of code reloca- 
tion can be found in the manual for Apple’s 
Programmer's Aid #1 ROM, which contains a 
code relocation program.) 

Fortunately, a DOS relocation routine al- 
ready is available on any DOS 3.2.1 Master 
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Disk (one bootable on any memory size 
machine). | have simply adapted it to work 
here. This routine disassembles (using the 
monitor) the code in a range of addresses 
(found in a table at $3003-300A). Any three 
byte instructions found are checked to see if 
the addresses are in the range being relo- 
cated, and if so they are adjusted by the offset 
between the source and destination ad- 
dresses. Finally, the relocated code is actu- 
ally moved to its destination. 

The rest of the program moves three addi- 
tional sections of code into DOS, makes 
some other patches to DOS, and jumps to the 
DOS coldstart routine. The purpose of these 
patches and the extra code is explained in the 
next section. 


HOW DOS 3+2 WORKS 


THE RWTS VECTOR 

Conveniently, all calls to the RWTS 
routines in DOS are vectored through one 
subroutine (at $B7B5-B7C1). The various 
command parameters are stored in a table 
pointed to by the 6502 A and Y registers. This 
routine is patched to jump to $BCEO0 (a nor- 
mally unused section of DOS), where the 
short section of code labeled RWTSVEC 
($31BB-31C4) has been moved. This patch 
resets a flag for use in the error-driven switch- 
ing routine. Changing a single byte in the 
address field of the final JMP instruction here 
is all that it takes to select between DOS 3.3 
and DOS 3.2.1! 


THE KEYBOARD INTERCEPT 

The DOS keyboard input processing rou- 
tine is intercepted at $9EAF and sent to 
$9CB1 (in the middle of another unused sec- 
tion of DOS where the DOS switching rou- 
tines from $31C5-3224 are now located). If 
the key is control-A then DOS 3.2.1 is 
selected, if it's control-B then DOS 3.3 is 
picked. This process is otherwise invisible to 
DOS and to any program that might be run- 
ning at the time. 







This keyboard intercept routine is somewhat 
unusual in that it is not done by changing the 
vector at $38-39 (that is too easily discon- 
nected). Also, note that it is only a keyboard 
intercept — a control-A {or CHR$(1)} in a 
PRINT statement will not cause any DOS 
switching. 


THE ERROR-DRIVEN SWITCH 

To compensate for programs which dis- 
connect the DOS keyboard intercept, or for 
instances when an operator fails to select the 
proper DOS, | added a routine which causes 
the computer to automatically try the other 
DOS if it encounters a disk read error using 
the currently active version of DOS. (Now 
that's what you call a user-friendly feature!) 

Disk read errors from both RWTS sections 
are vectored to $9CC1 (where the routine 
labeled ERRSWX at $31E6 is moved to). This 
causes the other DOS to be tried in case of a 
disk read error. If a disk read error recurs, it 
switches back to the DOS originally in use 
and exits through the regular DOS error 
routine. 


OTHER ROUTINES 

The FLIPX routine (or a portion of it) is 
called whenever DOS is switched either 
through the keyboard or the error switch. 
This routine does two things besides chang- 
ing the RWTS vector. It rings twice for DOS 
3.2.1 and three times for DOS 3.3 to provide 
the operator positive assurance that the 
switch has been made. It also updates the 
DOS version number (3.2 or 3.3), which is 
displayed whenever a CATALOG command 
is given. (The string “DISK VOLUME” is 
changed to “DOS 3.x VOL” .) So any applica- 
tion program using DOS 3+2 which 
changes DOS by POKEing the appropriate 
value into the RWTS vector at $BCE9, should 
change this byte ($B3B4), too. 

Another patch disables the INIT command 
under 13-sector DOS (gives an |/O ERROR). 
Other patches tell DOS that it has grown in 
size, either for saving itself to disk during 16- 
sector INIT, or so it knows where to start 
building file buffers without writing over the 
new sections that have been appended to it. 


DOSVER 


ENTERING THE PROGRAM 

DOS 3+2 can be entered directly into your 
Apple by first, entering the monitor (type 
CALL-151 <RETURN>). Then begin enter- 
ing the Hex Code at memory location $3000. 
The initial entries are: 3000: 4C 3C 32 00 19 8F 
1B etc. If you are unfamiliar with how to enter 
Hex Code, consult your Apple I! Reference 
Manual pp 43-44. After entry, it would bea 
good idea to check your list against the listing 
by using the disassembler. Since this pro- 
gram makes several patches to DOS, evena 


- single byte error could have disastrous 


results. When you're sure it’s correct, you can 
save it with BSAVE DOS 3+2, A$3000, L$351. 

Ready to go? Start the program with 3000G 
from the monitor or CALL 12288 from BASIC. 
Insert a disk containing “MUFFIN” when 
you're told to, and two seconds later it’s all 
over. (It would be wise to only use disks that 
you can afford to lose until you've verified 
that DOS 3+2 is working properly.) 


Usage Notes 

Pardon me for patting myself on the back, 
but | must say that DOS 3+2 works like a 
dream! (Almost any application program (like 
“FILE CABINET”) can now read or write data 
on 13 and 16-sector formatted disks inter- 
changeably, without any program modifica- 
tion! (It’s best to use control-A and control-B 
to switch between the two DOS's. You could 
leave the automatic error-driven switch do it 
for you, but this means listening to the unset- 
tling grinding sound that comes with any disk 
read error.) 

You can now use “FID” to transfer files 
between the two DOS versions. Unlike 
“MUFFIN”, you can see the disk catalog or 
check the available disk memory space 
before transferring any program. Also, you 
can transfer from 16 to 13-sector instead of 
just the other way. And while “FID” still 
requires the same effort (one file at a time) as 
“MUFFIN” to transfer files, with DOS 3+2 the 
need to make the transfer is in many cases 
eliminated. 

One of the nicest features about DOS 3+2is 
that the program only needs to be used once. 
You can INIT disks under DOS 3+2 and when 





3; DOS 3+2 
; BY JOEL BUCKLEY RWTSVEC .EQU OBCEO ; relocated address 
$ DOSSW -EQU OBCE9 ; RWTS vector hi-byte 
; COPYRIGHT (1982) ENTERS .EQU OBDO4 ; DOS 3.3 RWTS reentry point 
MICRO-SPARC, INC. ERRORS .EQU OBE48 ; DOS 3.3 disk read error exit 
DISASS .EQU OF BBE 
3 Program relocates DOS 3.2.1 RWTS routines from MUFFIN and na a pa 
3 appends them to DOS 3.3. A keyboard intercept routine cout * EQU OFDED 
3 controls switching between DOS 3.2.1 and DOS 5.5. BELL “QU OFF3A 
; Additionally, a disk read error will automatically cause 000 4 5 
3 the other DOS to be tried. Other changes enable slave ae G36 Se JMP START 
3 diskettes to be INIT’ed in 16 sector format with entire 
3 DOSS+2. (DOS 3.2.1 INIT command is disabled.) 
; Misc Data 
3003: 00 19 PROGBEG .WORD 1900 3 code 
: REE cl yo +e 3005: OF 1B PROGEND .WORD  1BOF 
; 3O12-31BA String Data , - : an eere 
; 31BE-31C4 WTS Vector - moved to $BCEO-BCE? roan reas ee eee aa 
; ZICS-3iES Keyboard Intercept - moved to $9CA0-9CCO ee v4 Poke 88: 
3 31E6-3224 Error-driven switch - moved to $9CC1-9CFF — se 
} 3225-3236 Print Subroutine ogi tee ce 
; 3230-3350 Main Routine PROGNO! -sERU!. — KTEME =F RUSEES 
3 No. of sections of code to be relocated. 
- ABSOLUTE . 
"PROC DDOS, © 300Cs iF SRCTOP .BYTE 1F 3 Top page of source. 
* ORG 3000 300D: 9C DESTOP .BYTE 9C 3 Top page of destination. 
BSOVEs O00 OFFSET .BYTE ; DESTOP-SRCTOF goes here. 
P-Hiac wquatie: S00Fs O07 COUNT «BYTE 7 3 No. of pages to be moved. 
SWITCH .EQU 2% ; 98 KOR BD 30103 19 RNGLO « BYTE 19 : Relocation range low. 
DISINDX .EQU 2F BOLL: 20 RNGHI «BYTE 20 3 Relocation range hi. 
ZP 1 -EOU 40 
ZP2 - EGU 42 
DOSCOLD .EQU 3D3 tl mty sé 
ENTER? .EQU 9B04 4; DOS 3.2.1 RWTS reentry point ‘ : , peer 
SNERS LEG) . OACAE Og DOO'SIRLOGISE read errar extt SOPZs 45 SE SR 20 SS, 20 2e pe Court BES Fi Veena hh eel Pelee 
DOSS = wEQU.Ss«SCAs;:- relocated address SO) IA. 5 ge ae eee 
ENTRY * EQU 9CBIL Bs 3 3020: 42 59 20 4A 4F 45 4C 
ERRSW  EoU SCC i 3027: 20 42 55 43 4B 4C 45 
ERRFLG .EQU 9CDS ; sobeetl ee 
FLIF vEQU «PCE " " copa ne! BYTE § VD 
DOSNUM .EQU OBSB4 3 x in CATSTR S030; 2D. 2D' 20 2D 20 20 2B.) ASG oe Oe ee 
3037: 2D 2D 2D 2D 2D 2D 2D 





60 NIBBLE EXPRESS/VOL. III/1983 


booted they'll still contain all of DOS 3+2. The 
technique used for expanding DOS can also 
be applied to other frequently used routines 
that you would like to have permanently at- 
tached to DOS (like a lower-case driver). 


LIMITATIONS 

DOS 3+2 does place a few limitations on 
programs being used with it. Other programs 
that patch into the same unused parts of DOS 
that DOS 3+2 uses obviously won’t work. And 
some programs that directly access parts of 
DOS may not perform as expected. But there 
shouldn't be any problems if only the stand- 
ard page 3 jump vectors are used to access 
DOS. 

It is now impossible to enter a control-A or 
control-B into a program or string while DOS 
3+2 is in effect. While this is unlikely to be 
much of a problem, if it is, there are two 
approaches to dealing with it. If the applica- 





tion permits, you can temporarily disconnect 
DOS (with TEXT : PR #0 : IN #0), and recon- 
nect it later with a call 1002. Or you can 
change the control codes that select which 
DOS is in effect (at $31DA and $31E2 before 
DOS 3+2 is run, or $9CB5 and $9CBD after it’s 
been run). 
RENUMBER FIX 

Other programs that won't work without 
modification are those that expect the DOS 
starting address to be at $9D00 (or the DOS 
file buffer bottom to be at $9600). One such 
program is “RENUMBER”, which has its own 
slightly deficient code relocation routine. 
Since it's a very commonly used program, | 
will presenta fix for its use with DOS 3+2 here. 

Please note that this fix will work only with 
“RENUMBER’” from the DOS 3.3 System Mas- 
ter Disk. “RENUMBER” from the DOS 3.2.1 
Master Disk is NOT the same. 

LOAD RENUMBER. Enter the monitor with 





3O3E: 2D 2D 2D 2D 2D 2D 2D 5 
3045: 2D 2D 2D 2D 2D 2D 2D ; 
304C: 2D ; 
304D: OD -BYTE oD 4 
SO4E: 28 43 4F SO 59 52 49 .ASCII "(COPYRIGHT 1981 BY JOEL BUCKLEY)" 3 
3055: 47 48 54 20 31 39 38 ; 
3O5C: 31 20 42 59 20 4A 4F ‘ 
3063: 45 4C 20 42 55 43 45 ; 
3O6A: 4C 45 59 29 
306E: OD OD . BYTE OD, OD 
3070: 20 20 20 54 48 49 535. .ASCII " THIS PROGRAM AFFENDS DOS 3.2.1" ; 
3077: 20 50 52 4F 47 52 41 ; 
3O7E: 4D 20 41 SO 50 45 4 : 
3085: 44 53 20 44 4F 53 20 
30sec: 33 2E 32 2E 31 - 
3091: OD OD -BYTE OD, oD 31C5: A? BD 
3093: 44 49 53 4B 20 49 2F .ASCII "DISK I/O ROUTINES TO 48k DOS 3.3." 31C7: 20 Eé 9C 
309A: 4F 20 52 4F 55 54 49 
BOAI: 4E 45 53 20 54 4F 20 Sica: a4 24 
SOAS: 34 38 4B 20 44 4F 535 SiICC: BL 28 
SOAF: 20 33 2E 33 2 SICE: 48 
30B4: OD OD - BYTE oD, OD SiCF: 29 3F 
30B6: 20 20 20 49 4E 53 45 .ASCII “ INSERT DISK CONTAINING *MUFFIN’" | 31D1: 09 40 
3OBD: 52 54 20 44 49 53 4B 31D3: 91 28 
30C4: 20 43 4F 4E 54 41 49 31D5: 468 
SOCB: 4E 49 4E 47 20 27 4D 
30D21 55 46 46 49 4E 27 
30DE: OD OD «BYTE OD, OD 31D6: 20 BA GE 
SODA: 41 4E 44 20 50 52 45 .ASCII "AND PRESS <RETURN>." 
3O0E1s S53 53 20 3C 52 45 54 31D9: C9 Bl 
30E8: 55 52 4E 3E 2E 31DB: DO 04 
3OED: 00 -BYTE 00 31DD: A9 9B 
STR2 -EQU 3OEE SiDF: DO Eé 
SOEE: OD 04 -BYTE OD, 04 
3OFO: 42 4C 4F 41°44 20 4D .ASCII “BLOAD MUFFIN” SiEl: C9 G2 
3OF7: 55 46 46 49 4E SLES: FO Eo 
3OFC: OD -BYTE OD 
STR3 -EQU 3OFD S1E5: 60 
3OFD: OD . BYTE 
SOFE: 44 4F 53 20 33 20 2B .ASCII “DOS 3 + 2 IS INSTALLED." 
3105: 20 32 20 49 53 20 49 
31i0C: 4E 53 54 41 4C 4C 45 
Bi13: 44 2€ 
3115: 07 07 OD OD -BYTE 07, 07, OD, OD 
3119: 20 20 20 43.54 52 4C .ASCII "“ CTRL-A SELECTS DOS 3.2.1." 
3120: 2D 41 20 53 45 4C 45 
3127: 43 54 53 20 44 4F 53 
3i2E: 20 33 2E 32 2E 31 2E 
3135: OD oD -BYTE OD, OD 
3137: 20 20 20 43 54 52 4C .ASCII “ CTRL-B SELECTS DOS 3.3." 
3i3E1 2D 42 20 53 45 4C 45 
3145: 43 54 53 20 44 4F 53 3iE6: 2C DB 9C 
314C: 20 33 2E 33 2E S1E9: 70 OE 
3151: OD OD -BYTE OD, OD 
3153: 28 41 20 44 49 53 4B .ASCII "(A DISK READ ERROR CAUSES OTHER" 31EB: 8D DB 9C 
3i5A: 20 52 45 41 44 20 45 SEE: 20 El 9C 
3iéis 52 52 4F 52 20 43 41 SIFis BO O03 
3168: 55 53 45 53 20 4F 54 SLF3: 4C 04 9B 
3i6F: 48 45 52 3iFé: 4C 04 BD 
3172: OD oD -BYTE OD, OD 
3174: 44 4F 53 20 54 4F 20 .ASCII "DOS TO BE TRIED AUTOMATICALLY.)" 
317B: 42 45 20 54 52 49 45 31F9: 20 El 9C 
3182: 44 20 41 55 54 4F 4D BSiFCs AP OO 
3189: 41 54 49 43 41 4C 4C i 
3190: 59 2E 29 S1FE: BO 035 
3193: 00 -BYTE 00 3200: 4C 39 9C 
STR4 -EQU 3195 3203: 4C 48 BE 
3194: 34 38 4B 20 44 4F 53. .ASCII "48K DOS 3.3 NOT FOUND." 
319B: 20 33 2E 33 20 4E 4F 
31A2: 54 20 46 4F 55 4E 44 
S1A9: 2E 3206: AD E? BC 
S1AA: 07 07 OD OD 00 -BYTE 07, 07, OD, OD, 00 3209: 49 26 
CATSTR ; "DOS 3.x VOL" replaces "DISK VOLUME" 320B: 8D E9 BC 
SLAF: AG CC CF Dé AO BS -BYTE AO, OCC, OCF, ODS, GAO, OBS S2UE: 6A 
SiB5: AE BS AO D3 CF C4 -BYTE OAE, OBS, OAO, ODS, OCF, OC4 pe nA oe 
CATEND 
CATLEN .EQU CATEND-CATSTR 3213: 6D B4 BS 
3 This RWTS vector section becomes a 3216: 6A 
3} permanent part of DOS 3+2 = sat. ied ee 
3 will be moved to $BCEO-$BCE?. Seeman aa ee 
31BB: 48 RWTSVEX PHA 321D: 20 SA FF 
31BC: AJ 00 LDA #0 3 reset for error 3220: 20 3A FF 
SiBE: 8D D8 9C STA ERRFLG ; driven switching 3223: 28 
3iCi: 68 PLA 3224: 60 
31C2: 4C 00 BD JMP OBDOO ; for DOS 3.3 


(changed to JMP 9BO0 for DOS 3.2.1) 


CALL -151. Type B62: 4C DO OB <return> 
BDO: C9 D6 DO 03 4C 70 0B 18 69 104C 65 0B 
<return> 1085: D6 <return>. (This patch 
was provided by C. Bongers in the July/ 
August 1981 Call -A.P.P.L.E.) And while 
you're at it, you might as well fix another 
“RENUMBER” bug, one that prevents line 
numbers after LIST from being renumbered, 
and instead treats anumber after an asterisk * 
(multiplication symbol) as if it was a line 
number. Type 12B5:AC AB. (This patch from 
Alan and Valerie Floeter in the October 1981 
Call -A.P.P.L.E.) Now reenter BASIC and 
SAVE RENUMBER before RUNning it. The 
patched “RENUMBER” will still work pro- 
perly under regular DOS. 


SUMMARY 
DOS 3+2 can be a very effective remedy in 
attempting to deal with the two DOS blues. 


@ 










DOSSW is the hi-byte of this address . 
Peek at DOSSW to see which DOS is active. 


$BCE9 (48361, 


=17i 7a) § 
$9B (155) => 3.2.1 
$BD (189) => 3.3 


Poke these values to switch DOS 
from within a program. 


RWEND 


RWLEN -EQU RWEND-RWTSVEX 


This DOS switch section becomes a 
permanent part of DOS 3+2 and 
will be moved to $9CAO-$9CFF. 


Keyboard Intercept 


DOS3X LDA # OBD ; 3.3 RWTS hi-byte 
DOSSEL JSR FLIP+S 
RDKEY LDY 24 
LDA @ 28, Y 
FHA 
AND # SF 
ORA # 40 
STA ®@ 28, Y 
PLA 
3 Relocated entry at $9CBl. 
ENTRYX JSR SEBA 
KTEST CMF # 81 3 ctl-A => 3.2.1 
BNE NOT2 
LDA # 9B ; 3.2.1 RWTS hi-byte 
BNE DOSSEL 
NOT2 CMP #82 ; ctl-B => 3.3 
BEQ DOS3X 
NOTS RTS 


Error-driven DOS switch. 
All disk read errors are vectored here. 
On first error: 
Save error code. 
Flip DOS. 
Try again. 
On second error: 
(in case switching DOS didn*t correct error) 
Restore old DOS. 
Restore error cade. 
Normal error exit. 
Moved to $9CCl. 


ERRSWX BIT ERRFLG 
BYVS ERR2 
ERRL STA ERRFLG 3; first error 
JSR FLIP 
BCS ENTS 
ENT2 JMP ENTER2 3; reenter RWTS 
ENTS JMP ENTERS 
ERR2 3 second error 
JSR FLIP 3 restore old DOS 
LDA « 0 
; ERRFLG stored nere ($9CD&). 
BCS EXITS 
EXIT2 JMF ERROR2 j; error exit 
EXITS JMF ERRORS 


3; Relocated at $9CEl. 


FLIPX 3 Switch to other DOS. 
LDA DOSSW 
EOR # SWITCH 
STA DOSSW 
ROR A 
AND # OL 
EOR # OBS 
STA DOSNUM 
FOR A 3; DOS 3.3 if carry set. 
PHP 
BCC BELL2 
JSR BELL 
BELL2 JSR BELL 
JSR BELL 
PLP 
RTS 


continued on next page 
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Apple DOS 3 + 2 (Cont.) 


3225: 
3227: 
3229: 
322B: 
322D: 
322F: 
3232: 
3233: 
3235: 
3237: 
3239: 
323B: 


323C: 
S23F: 
3241: 


3243: 
3245: 
3247: 
324A: 


324B: 


324E: 
3250: 
3252: 
3255: 


3258: 
325A: 
325C: 


325F 
3261: 
3263: 


3266: 
3267: 
326A: 
326D: 
3270: 
3272: 
3273: 
3274: 
3276: 


3278: 
3278: 
327E: 
3280: 
3283: 


3285: 
3287: 
3289: 
328C: 
328E: 
2290: 
3292: 
3294: 
S2a7s 
3299: 
329C: 
329Es 
S2AL: 


S2A3: 
32A4: 
32A6: 
32A8: 
S2AA: 
324Cs 
S2AE: 
32B0: 
32B3: 
32B6: 
32B8: 
32BA: 
32ED: 


32BF : 
32C0: 
32C1: 
32C3: 
32C4: 
32C6: 


85 
84 
AO 
Fo 
09 
20 
cs 
DO 
E6 
BL 
DO 
60 


40 
41 
00 
oA 
80 
ED 


o2 
41 
40 
F2 


40 
40 
00 


Di = 
06 


40 


0S 


08 


FD 


32 


FC 


32 
FD 


32 


32 


30 
30 
30 


§ 


FS 


30 


30 


SWEND 

SWLEN -EQU SWEND-DOS3x 

Print Subroutine 

This routine prints a string of ASCII 
characters terminated with hex 00. 
Call with address lo-byte in A, 
address hi-byte in Y. Uses A, X, Y; 
and two zero page locations. 


a 


PRINT STA zPi 
STY ZPi+l 
LDY #0 
BEQ PRS 
PR2 ORA # 80 
JSR COUT 
INY 
BNE PRS 
INC ZPi+t 
PRS LDA ® ZPl, Y 
BNE PR2 
RTS 
«MACRO DISPLAY, 1 
LDA # P1%100 
LDY # 71/100 
JSR PRINT 
«ENDM 


3 Main Routine 


START LDA DOSVER 
CMP # 3 3; 48 DOS 3.3? 
BEQ YEP 
DISPLAY STR4 
* LDA # STR4%100 
* LDY # STR4/100 
* JSR PRINT 
RTS 
YEP JSR HOME 
DISPLAY STRIL 
= LDA # STRLZLOO 
* LDY # STR1/100 
* JSR PRINT 
JSR GETLN 
DISPLAY STR2 
* LDA # STR2%100 
of LDY # STR2/100 
# JSR PRINT 
DISPLAY STRS 
* LDA # STR3%100 
* LDY # STR3/100 
* JSR PRINT 


Relocation routine adapted from 
DOS 3.2.1 Master relocation code. 
MUFFIN DOS 3.2.1 RWTS code 

will be relocated to $94600-$9CFF. 


RELOC SEC 


eee 


LDA DESTOP 
SBC SRCTOP 
STA OFFSET 
LDA #0 
TAX 

TAY 

STA oP kt 
STA ZP2 


3; Get starting address of code to 
3; be relocated. 


PRGREL STX XTEMP 
LDA PROGBEG, X 
STA ZP1 
LDA PROGBEG+1, X 
STA ZP1i+1 


3 Adjust any instructions in range 
: KNGLO to RNGHI by adding OFFSET. 


INSDIS LDXx #0 
LDA 2 Z7P1l, X 
JSR DISASS 
LDY DISINDX 
CPY . 3 S-byte instruction 
BNE NXTINS 
LDA @ ZPl, Y 
CMP RNGLO 
BCC NXTINS 
CMP RNGHI 
BCS NXTINS 
ADC OFFSET 
STA @ 7Pl, ¥ 


Adjust starting address for next 
disassembly. Check for out of range. 


zee 


XTINS SEC 
LDA DISINDX 
ADC ZF i 
STA ZF 1 
LDA # oO 
ADC ZPiel 
STA ZPiel 
LDX XTEMP 
CMP PROGENDe1l, X 
BCC INSDIS 
LDA ZFL 
CHF FROGEND, « 
BCC INSDiS 

: Check for last code range. 
TXA 
CLC 
ADC #4 
TAX 
CPx # PROGNO 
BCC PRGREL 
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32C8: 
32CE: 
32CD: 
32D0: 
32D2: 
32D4: 
32Dé6: 
32D8: 


32D9: 
32DB: 
32DD: 
32DE: 


32E0: 
S2E2: 
32E4: 
32E7: 


AD 
85 
AC 
84 
a? 
85 
85 
Aas 


Bi 
91 
cs 
DO 
cé 
cé 


CE 
DO 


av 


4c 


BO 


o9 
oA 


o7 


oD 


31 
BS 


31 
BC 


B7 
B7 


9E 
9E 


9B 
9B 


9D 


OS 


3; Move COUNT memory pages from 
3; SRCTOP to DESTOP working down. 
MOVE LDA SRCTOP 

STA 2P itl 

LDY DESTOP 

STY ZF2+1 

LDA #0 

STA ZPL 

STA ZP2 

TAY 
NXTADR LDA ® ZPl, Y¥ 

STA @ ZP2, Y 

INY 

BNE NXTADR 

DEC ZPi¢l 

DEC ZP2+1 

DEC COUNT 

BNE NXTADR 


Patch DOS and exit. 


-MACRO MOVE,S 
3 Moves up to 256 bytes. 


LDX # 71 
$1 LDA arly % 
STA Cie ee 
DEX 
BNE $1 
-ENDM 
»~MACRO FATCH,2 
3: (-8000,+80 compensate for assembler 
; bug with arguments » $6000.) 
LDA # = 21-8000%100 
LDY # = 21-8000/ 100+80 
STA 72 
STY P2+1 
«ENDM 


3 Move CATSTR to $BS3AF. 
MOVE CATLEN, CATSTR, OBSAF 


LDX # CATLEN 

$1 LDA CATSTR-1, X 
STA OBSAF-1, X 
DEX 
BNE $1 


3; Move RWTS vector to $BCEO. 
MOVE RWLEN, RWTSVEX, RWTSVEC 


LDX # RWLEN 

$1 LDA RWTSVEX-1, X 
STA RWTSVEC-1, X 
DEX 
BNE $i 


Patch in RWTS vector. 
(JSR $BCEO replaces JSR $BDUU.) 
FATCH RWTSVEC, UB7B8 


LDA # RWTSVEC-80007%100 
LDY # RWTSVEC-80007 100+80 
STA OB7BS 

STY OB7BES+1 


3 Move keyboard intercept and 
3 disk error switch routines to $9CAU. 
MOVE SWLEN, DOS3X, DOSS 


* LDX # SWLEN 
sl LDé DOSIX-1, x 
* Sie DOSS-1l, X 
* DEA 

* BNE ol 


3; Patch in DOS keyboard intercept. 
FATCH ENTRY, 9EAF 


LDA # ENTRY-8000%100 
LDY # ENTRY-8000/ 100+80 
STA FEAF 

STY FEAF +1 


3 Change disk read error vectors to $9CCl. 
PATCH ERRSW, 9BFC 


LDA # ERRSW-8000%100 

LbDyY # ERRSW-8000/ LOO+8U 

STA 9BFC 

STY OBFC+lL 

PATCH ERRSW, OBEO9 

LDA # ERRSW-86007%100 

LDY # ERRSW -8000/ 1L00+80 

STA OBEO9 

STY OBEO9+1L 
3 Disable DOS 3.2.1 INIT command. 

LDA “39 

STA 9C07 
3 Extend DOS for DOS 3.3 INIT. 

LDA # 96 

STA 9DOD 3; DOS bottom 

LDA * OB 

STA OB71A 3; last DOS sector 

STA OB763 3; last DOS sector 

LDA * 22 

STA OB7EO ; # DOS pages - $A 
3 Extend DOS for HIMEM, MAXFILES. 

LDA # 95 

STA 9DOL 3 file buffer ptr 
3 Cold start DOS (to adjust pointers). 

JMP DOSCOLD 

»~ END 30f assembly 


@ 
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AMPER-SPEED: Fast Read 
And Write For Text Files 


by William Reynolds III 
1733 N. Ford St. 
McMinnville, OR 97128 


While converting Alan Hill's Amper-Reader 
(Nibble Vol. 2 #1) for use with my Memory 
Management System 2.0, | was asked 
to produce a routine that would write toa text 
file as quickly as Amper-Reader reads a file. 
With the information that | had learned from 
the excellent book Beneath Apple DOS, | 
decided to rewrite Amper-Reader to includea 
writing function. The result is AMPER- 
SPEED. It is called by using nearly the same 
format as Amper-Reader. It uses about the same 
amount of memory for code, and uses the 
standard DOS buffers (not a dedicated buffer 
area). 

Since DOS buffers are used, the calls to 
Read & Write may use different filenames, 
and the pointers for the files that are open will 
not be disturbed by the call for the specified 
file. 


THE PROGRAM BUFFERS 

The routine resides in .75K of memory, at 
$9A00-9CFF. The problem with using that 
area is that itis part of the memory that DOS 
uses for its buffers. Any attempt to store a 
routine in an area that is being used for DOS 
i/O may be disastrous. For this reason, the 
DOS buffers must be moved down in memory 
by .75K. The routine AMPERSPEED START 
should be used. All that you need to do is 
include this line at the beginning of your pro- 
gram: PRINT CHRS$(4);‘‘BLOAD AMPER- 
SPEED START”’: CALL 768 


NEW DOS BUFFERS 

AMPERSPEED START will set up a new 
address for the part of memory that may be 
used for buffers, call the DOS routine that 
builds them, and set the & jump vector to 
point to AMPERSPEED. Then it will tell DOS 
to BLOAD AMPERSPEED,A$9A00. At this 
point, the routine is installed in memory, the & 
vector is set, and HIMEM is set to the bottom 
of the last buffer. 


WHAT IT DOES 

Now that the routine is in place, how do you 
use it? The purpose of this routine is to speed 
up disk Input/Output (I/O) when using se- 
quential text files. It will read or write using 
DOS, without going through the DOS com- 
mand interpreter. The I/O will occur directly 
between the disk file and the Applesoft string 
variable storage area in memory. The advan- 
tage is an increase in I/O speed of nearly 3 to 
1! 


THE AMPERSAND 

Applesoft has three ways to jump to a 
machine language routine: CALL, USER(X), 
and the &. The first two can call a routine 
anywhere in the Apple. The third, the &, will 
force ajump to the address $3F5 whenever it 
is included in an Applesoft program. This is 
true for program-running mode, and direct 
keyboard mode as well. You can see that by 
setting the proper jump command at $3F5, we 
ean direct it to any location in memory. 


Unless set by the programmer, $3F5 will 
cause ajump to an address in the monitor that 
merely tells it to RETURN to Applesoft. This 
keeps you from bombing your normal pro- 
grams with the &. 


THE SYNTAX 

The AMPERSPEED command syntax is as 
follows: &X(FI$,A$(Y),NR%). The ‘X’ is nota 
command letter, but rather, represents these 
commands: R)ead, C)ontinue to read, W)rite, 
A)ppend, and D)elete variable. The items in 
the parentheses are parameters for the command. 

In the example, FI$ is the name of the string 
variable that contains the name of the file to 
be used, A$(Y) is a dimensioned string varia- 
ble which the string data will be input from or 
written to the disk. Y is the starting subscript 
to be used. Y may be predefined as a variable, 
or specified implicitly in the call to AMPER- 
SPEED. The variable NR% in the call must be 
an integer variable that tells the routine how 
many strings to read, or how many subscripts 
of A$ to write. 


A CAUTION 

One note of caution. Although you may use 
whatever names that you wish for your varia- 
bles, they MUST be set before AMPERSPEED 
is called. Also, do not exceed the array size of 
A$ with NR% or Y, as this is not verified by the 
program, and the results will be unpredictable. 

The single exception to the above is for the 
command D. To delete a dimensioned string 
array, the syntax is: & D (A$(0)) (NOTE 
—you must specify the 0 element). When this 
is executed, the array will no longer exist, and 
all the memory that was used by its elements 
will be made available. 


FILE ACCESS 

When the routine is called for file access, 
AMPERSPEED will locate a buffer for the file 
to use. If a buffer is already assigned to the file 
(that is, if the file is already Open), it will use 
that one. If a buffer is not assigned it will 
OPEN one, and that buffer will remain OPEN 
until CLOSED by a DOS command. 

The heart of the routine is the use of inter- 
nal DOS routines and the DOS File Manager. 
All parameters are set for the DOS File Man- 
ager, and it does the work of finding the file 
sectors. 

In the case of a Read, a record length of 
$100 is simulated. In this way, each time we 
run out of the data on a sector when looking 
for text strings, we have only to increment the 
record number to read, and DOS will get the 
next sector. The data from itis scanned for an 
$8D. When found, the bytes between the pre- 
vious $8D and the one just found are stored in 
string memory area, and the length byte and 
address of the beginning of the string are 
stored in the variable area. 

During the scan, the text characters are 
stored in the keyboard input buffer, which is 
not in use at that time. lf AMPERSPEED is 
called directly from the keyboard, and not 
from a program, it will perform properly, but 
you will get a ‘SYNTAX ERROR’ message. 
This occurs because AMPERSPEED uses 
page zero pointers for access to the file man- 
ager parameter list, the buffer name section, 
the buffer data section, and the buffer work 
area. The file buffer’s work area for the file 


manager has 4 bytes that are not used by 
DOS. | use these to save the current sector 
number, and the pointer to the sector for 
scanning text. 


THE COMMANDS 

Now, an explanation of the commands: R 
will Open the file at the beginning, and then 
read the number of strings specified by NR% 
into array A$, starting at subscript Y. 

The C (continue) command will read in the 
same manner, but uses the ending point of 
the last R or C for its starting point. 

The W (Write) will Open the file, making a 
new one if necessary, then write NR% strings 
from A$, starting at Y, into the file. 

The A (Append) will write to the file, but will 
use the pointers left by the last W or A. 

In all four cases, NR% will contain the 
number of items to be read or written. Upon 
return, NR% will be set to the number of times 
that were actually read or written. In the case 
of anerror, you will be able to tell how far you 
got when the error occurred. 


ERRORS 

Ah yes, about errors. AMPERSPEED is set 
up to send any errors that occur, to the 
Applesoft error handler. You may use the 
ONERRGOTO statement to check and pro- 
cess the errors. If you decide not to trap 
errors that occur when AMPERSPEED is 
running a fatal error will occur to the Apple- 
soft program upon re-entry, and no error 
message will be printed. All errors use the 
standard DOS and Applesoft numbers when 
they are checked in the error handling rou- 
tine. 


THE POINTERS 

The pointers must be set up by AMPER- 
SPEED itself, so do NOT use &A without first 
using a &W or &C before using the &R com- 
mand for EACH file to be accessed. 

Since AMPERSPEED uses the DOS file 
buffers for !/O, if you do not set Maxfiles toa 
large enough number to handle the Open 
files, you will run out of them, and be unable 
to complete your task. When you have fin- 
ished with a file make certain that you re- 
member to CLOSE it. 

Any file that has been Opened by AMPER- 
SPEED may be CLOSED by the standard 
DOS syntax. If the file has been OPENed fora 
WRITE, it is very important to remember to 
CLOSE it. If itis not CLOSED, the last of the 
text (or data) will not be written from the 
buffer, and it will be lost. Also, the VTOC will 
not be updated to protect the sectors used by 
the file, and the directory sector count for the 
file entry will not be correct when CATA- 
LOGed 


HOW AMPERSPEED WORKS 

When the & is encountered by Applesoft, it 
will JUMP to $3F5. From there it is sent to 
$9A00. At $9A00, the next character in the line 
is checked to see if it is valid command for this 
routine. If it is, the address is retrieved , and 
the function is performed. 

If no match is detected, a branch to ‘NOT- 
NOW is performed. This will cause a JUMP to 
anRTS instruction, which will return to Apple- 
soft. The JuMP instruction may be patched 
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by the user to interface with other routines. 
Also, inthe address table and character table, 
there is room for six more functions to be 
detected. If the user desires to detect other 
commands and to direct control to other rou- 
tines, the ASCII equivalent for the command 
letter should be stored in the first byte(s) of 
the character table, and the address-1 of the 
routine(s) should be stored in the first byte 
pair(s) of the address table. The value of the 
X-register (at the beginning of the command 
detect sequence) must be increased for each 
new command which is added. 


THE SYSTEM 

As written, the routine will use drive 1, slot 
6, and it will set volume match to 0. If desired, 
these parameters may be changed from your 
Applesoft program by using POKE 39657, 
DRIVE:POKE 39662,SLOT:POKE 39715, VOL- 
UME. The assembly listing is sufficiently 
commented to help the reader understand 
the purpose of each of the functions and 
major subroutines. AMPERSPEED was writ- 
ten for DOS 3.3, and the Applesoft page 0 
pointers are saved into an unused area in the 
DOS 3.3 RWTS. 


If you use DOS 3.2, you must change the 
loops that store and restore page 0 to store to 
another area that will be protected. If you are 
not using page three, $300 — $318 could be 
used. Also, many times the lower part of the 
stack ($100 — $118) can be safely used. 

Since heavy use is made of routines that are 
imbedded in ROM Applesoft, the old Ram 
version will not work. 


ENTERING AMPERSPEED 


The AMPERSPEED START and AMPER- _ 


SPEED programs can be entered into your 
Apple using a LISA 2.5 Assembly Language 
Program (using the Source Language list- 
ings). 

Alternatively, they can be entered directly 
into memory using the Hex Machine Lan- 
guage from the listings. For more detail on 
enter Hex code directly into your Apple Mem- 
ory, consult the Apple Reference Manual pp. 
43-44. 

Here are the steps for entering the pro- 
grams using the Hex code! 


1. Type CALL-151 to enter the Monitor 


2. Begin entering AMPERSPEED START at 
memory location $300 as follows: 
*300:A9 9A 8D F7 03 AQ 99 etc. 


3. When you have finished entering AMPER- 
SPEED START save it to Disk with: 
BSAVE AMPERSPEED START, A$300, 
L$40 


4. Now begin entering AMPERSPEED at 
memory location $800 as follows: 
*800:A2 05 CA 30 32 DD DF 9C etc. 


5. When you have finished entering AM PER= 
SPEED, save it to Disk with: 
BSAVE AMPERSPEED, A$800, L$2F4 


6. The Programs are now stored on Disk. 


Note that both AMPERSPEED START and 
AMPERSPEED must be on the same disk for 
correct operation. This is necessary because 
AMPERSPEED START is the Loader for AM- 
PERSPEED and relocates AMPERSPEED to 
a beginning memory location of $9A00 upon 
loading it. 


A FINAL NOTE 

There you have it. Remember, AMPER- 
SPEED is a fast writer/reader for sequential 
text files only. But it will produce a speed 
improvement of up to three times the normal 
Apple DOS. 


ga: 





AMPERSPEED START LISTING 


‘ASM 
SSEND OF PASS 1 


SEND OF PASS 2 


0800 1 j;AMPERSPEED START 
0800 2 ;WILLIAM REYNOLDS III 
0800 3 

06800 4 ;COPYRIGHT (C) 1982 
0800 S  ;MICRO-SPARC, INC. 
0800 & ;ASSEMBLED WITH LISA 2.5 
0800 7-28 

0800 os 

OsFS 9 VECTAD EQU $3FS5 
9A00 10 RT48AD EQU $9A00 
9D01 11 BUFFAD EQU $9D01 
A7D4 12 BUILD EQU $A7D4 
FDED 13 PRINT EQU SFDED 
0800 14 ; 

0800 15 3 

0300 16 ORG $300 
0300 17 OBJ #800 
0300 18 5; 

0300 19 ; 

0300 AI 9A 20 START LDA /RT48AD 
0302 8D F7 OS 21 STA VECTAD+802 
0305 AI 99 22 LDA #899 
0307 8D 01 9D 23 STA BUFFAD 
O3SOA 20 D4 A7 24 JSR BUILD 
OSOD AI 4C 25 LOAD LDA #94C 
OSOF 8D FS OS 26 STA VECTAD 
0312 AF 00 27 LDA #800 
0314 BD Fé 03 28 STA VECTAD+$01 
0317 AO 00 29 LDY #800 
0319 BY 25 O3 30 ~=6LOOP LDA MESS,Y 
O31C FO 06 31 BEQ END 
O31E 20 ED FD 32 JSR PRINT 
0321 C8 33 INY 

0322 DO FS 34 BNE LOOP 
0324 60 35 END RTS 

0325 8D 84 36 MESS HEX 8D64 
0327 C2 CC CF 37 ASC 

032A Ci C4 AO 

032D Ci CD DO 

0330 CS D2 DS 

0333 DO C5 CS 

0336 C4 AC Ci 

0339 A4 BY Ci 

O33C BO BO 

O33E 8D 00 38 HEX 8DOO 
0340 39 END 


a88%% END OF ASSEMBLY 
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AMPERSPEED HEX DUMP 


@80G- A2 
@808- D@ F8 8A BA 
@818- D@ 9D 69 BA 
@818- F6 68 AA 20 
@820- C9 28 DB F7 
@828- EF 9C 48 BD 
@830- DC 83 84 E2 
@838- 36 9A A2 198 
@849- 9A 68 AA 4C 
@848- A5 DA 91 D4 
@850- D4 A2 O88 BD 
9858- E8 ES 18 DB 
9860- 93 28 D6 B3 
@868- Bl E2 AA DO 
@870- 86 E4 28 E3 
@878- D@ 94 D1 E8 
9880- 86 28 BE DE 
@888- Bl 88 AD BB 
@899- 85 DC 88 Bl 
@898- 88 AS DC DB 
@8AG- DD 84 D9 84 
@8A8- DB 85 DS C8 
@8B9- B1 DB 85 D1 
@8B8- 20 95 AB A4 
@8CO- Bl DO B9 8B 
@8C8- F4 20 64 A7 
@808- DB B5 A2 BC 
@8D8- 41 A5 44 85 
O8EG- 20 4E A7 20 
@8EB- AD B1 91 E2 
O8FB- E2 AI BB CB 
O8F8- Bl E2 85 D6 
@908- D7 A® BC Bl 
@908- Bl E2 85 DF 
9919- 9A AB BB AY 
@918- C8 C8 91 E2 
@920- E2 C8 AD BB 
9928- 9A 28 6E 9A 
9938- 9B AB 2A AD 
9938- 85 E4 91 DE 
0949- 2B Bl DE 48 
9948- AB BB AD B3 
@958- E2 68 C8 91 
@958- E2 AI 88 C8 
@960- E2 28 SE 9A 
9968- 84 E5 Bl D6 
@978- FO 26 E6 D9 


32 DD E3 9C g988- DE 18 69 @1 91 DE C8 Bl 
48 A2 68 BS @988- DE 69 88 91 DE 86 E4 4C 
E8 EB 18 DB @999- 3F 9B 84 E5 98 AB 2C 91 
Bl 68 FO 1A @998- DE A6 D9 CA AD BB AS 6F 
28 Bl 88 BD B9AB- DB G62 C6 78 C6 GF BD BB 
EE 9C 48 28 @9A8- 62 91 6F CA E@ FF D® EE 
85 E3 68 4C @9BG- AD BB AS DO 91 D2 AS 6F 
8A 48 28 46 @9B8- C8 91 D2 A5 78 C8 91 D2 
65 D8 AS G1 @9CB- 28 B5 9C AS 6E 69 B1 C5 
88 A5 DB 91 @9C8- 78 98 B5 A2 2D 4C 3C 9A 
69 BA 95 D® @9D8- A2 6B 86 D9 86 E4 A4 ES 
F6 68 28 DC @9D8- C8 F@ A2 DB 8B A2 B5 DS 
98 87 AB BA @9EB- EC 28 6E 9A 28 BS 9A AD 
CF 68 A2 89 @9E8- 2C Bl DE AB 84 E5 4C DO 
DF A6 E4 95 @9FB- 98 28 E3 DF 38 AS 83 E9 
E8 EO 86 FO @9F8- 87 85 DE A5 84 EO BO 85 
4C 78 9A 28 @AGB- DF AM B2 Bl DE 85 EB C8 
A® 81 Bl D4 @AS8- Bl DE 85 El 18 AS EB 65 
D4 85 DD DB @A18- DE 85 48 AS El 65 DF 85 
@4 C6 DC C6 @A18- 41 AM BB Bl 48 91 DE E6 
DA 84 DB Bl @A2B- DE D® B2 E6 DF AS 48 C5 
Bl D® 48 C8 @A28- 6D A5 41 E5 6E E6 48 DO 
68 85 DB 68 @A38- 62 E6 41 98 E6 38 AS 6D 
D8 88 38 B89 @A38- E5 E® 48 AS 6E E5 El 85 
99 75 AA D8 @A4G- GE 68 85 6D 28 Bl BB DO 
98 BF AS 45 @A48- AB 4C 51 9A 28 GE 9A AD 
4C 3C 9A 85 BA5B- BB 26 BD 9B AD BB AD BA 
48 28 43 A7 BA58- 91 E2 AD BB AD G2 91 E2 
2C A7 A® 5 BA6G- C8 CB B6 DB FO 28 SE YA 
C8 AY 86 91 @A68- AB BB AD B4 91 E2 4A CB 
91 E2 A® 18 @A7B- 91 E2 AB BB Bl D2 AB BE 
C8 Bl E2 85 @A78- 91 E2 AA AD BO CB 91 E2 
E2 85 DE C8 BABB- ADI B2 AB BI 91 E2 8B AD 
68 48 28 B8 @A88- OB 91 E2 AD G1 Bl D2 85 
@1 91 E2 98 @A9B- DE C8 Bl D2 85 DF AB BB 
C8 68 AA 91 BA98- CA E® FF FO BA B1 DE 89 
91 E2 4C SE BAAS- 88 99 BB B62 CB DB Fl AD 
AS 81 28 BD @AA8- 8D 99 BB B2 2H SE 9A 29 
@@ 91 DE C8 @ABB- BS 9C 4C 72 9C 18 AS D2 
C8 91 DE AG @AB8- 69 B83 85 D2 AS D3 69 BB 
88 Bl DE 48 @ACB- 85 D3 E6 DA DO B2 EG DB 
91 E2 C8 91 @AC8- A5 DB C5 DD 98 BB AS DA 
E2 C8 68 91 @BADB- C5 DC 98 B5 28 46 9A 68 
91 E2 C8 91 @AD8- 68 68 28 GE 9A 28 BB 9A 


BAEB- 4C 68 9C 52 43 44 57 41 
BAE8- BB BH BH BH BH BB 28 9B 
@AFG- ED 9B FB 9B 4B 9C D9 9C 


@978- 62 E8 C8 D® EB A® 2A Bl 


CONOUEWNY 


3 AMPERSPEED 

;WILLIAM REYNOLDS III 
3COPYRIGHT (C) 1982 
3MICROSPARC, INC. 

3; ASSEMBLED WITH LISA 
348K LEVEL VERSION 


Al EPZ $49 
A2 EPZ $44 
ENDSTP EPZ $6D 
FRETOP EPZ $6F 


LVAR EPZ $83 
CHRGET EPZ $Bi 
FNAME EPZ $D@ 
NAL EPZ $D2 
NR EPZ $D4 


BUFF 1 EPZ $Dé 
LENFN EPZ $D8 
NCHAR EPZ $D9 


NREAD EPZ $DA 
VNR EPZ $DC 
TEMP 1 EPZ $DE 


OFFSET EPZ $E9 

PARMAD EPZ $E2 

XSAVE EPZ $E4 

YSAVE EPZ $E5 

BUFF 2 EQU $299 
FILMAN EQU $3Dé6 
GTPMAD EQU $3DC 
NONAME EQU $A995 
NAMADD EQU $A72C 
MOVNAM EQU $A743 
DOSPAR EQU $A74E 
GETBUF EQU $A764 
NMBUFF EQU $AA75 
HOLD EQU $BA69 
BASERR EQU $D865 
GETNXT EQU $DEBE 
GETADD EQU $DFES 


3 
ORG $9A99 
OBJ $899 


& IS VECTORED HERE 


3;CHECK FOR COMMAND LETTER 

3I1F NOT A MATCH, EXIT WITH 
sASCII OF COMMAND IN A-REG 

’ 

31F FOUND, CHECK FOR *(* TO 
3BE START OF PASSED VALUE 
3;DEFINITIONS, IF NOT FOUND 
3EXIT VIA BASIC *SYNTAX ERROR’ 
’ 

31F FOUND, SET ADDRESS TO 
;RETURN TO, ADDRESS TO GO TO, 
3AND ADDRESS OF DOS FILE MANAGER 
3;PARAMETER LIST 


, 
START LDX #$95 
Loop DEX 
BMI NOTNOW 
CMP CHRTBL, x 
BNE LOOP 
TXA 
ASL 
PHA 
LDX #899 
SVMORE LDA FNAME, x 
STA HOLD, x 
INX 
CPX #$18 
BNE SVMORE 
PLA 
TAX 
LOOPg1 JSR CHRGET 
BEQ@ ERRSYN 
CMP #7’ 
BNE LOOPS1 
JSR CHRGET 
LDA ADDTBL+$91, X 
PHA 
LDA ADDTBL, x 
PHA 
JSR GTPMAD 
STY PARMAD 
STA PARMAD+$91 
BYE RTS 


3EXIT HERE IS FOR COMMAND NOT FOR 
3 THIS ROUTINE. MAY BE PATCHED 

3BY USER FOR OTHER ROUTINE CALLS 
3 

3 

NOTNOW JMP BYE 

; 


3 
3EXIT WITH ERROR 


3 
ERRSYN LDX #$19 


ERROR TXA 
PHA 
JSR EXIT 
PLA 
TAX 
JMP BASERR 


, 
3SAVE NUMBER OF ITEMS HANDLED 
sRESTORE ZERO PAGE DATA 


, 

3 

EXIT LDY #961 
LDA NREAD 
STA (NR),Y 


122 
123 
124 
125 
126 
127 


‘128 


129 
138 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 
151 
152 
153 
154 
iss 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
179 
171 
172 
173 
174 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
199 
191 

192 
193 
194 
195 
196 
197 
198 
199 
269 
261 

262 
293 
264 
205 
2G6 
207 
268 
289 
219 
211 

212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
238 
231 
232 
233 
234 
235 
236 
237 
238 
239 
246 
241 


DEY 

LDA NREAD+$91 

STA (NR),Y 
EXIT1 LDX #$99 
RDMRZP LDA HOLD, X 

STA FNAME, X 

INX 

CPX #$18 

BNE RDMRZP 

RTS 


GO TO FILE MANAGER 
E 


5 
; 
5 
;ERROR TRAP IF CARRY SET 
; 
i 
G 


OF LMN JSR GTPMAD 
JSR FILMAN 
BCC OKOUT 
LDY #$9A 
LDA (PARMAD),Y 
TAX 
BNE ERROR 
OKOUT RTS 


se 


3GET PASSED PARMS NOW 

3FIRST SECTION LOOPS 3 TIMES 
3;GETTING ADDRESS OF FILENAME 
sMATRIX STRING VARIABLE TO BE 
3;USED, AND NUMBER OF ITEMS 


’ 
3REST OF ROUTINE INITIALIZES 
;VARIABLES FOR COUNT, AND 
3;SETS FILENAME LENGTH AND 
3;ADDRESS OF THE NAME ITSELF 
Ld 
BASPRM LDX #$90 
LOOP1 STX XSAVE 

JSR GETADD 

LDX XSAVE 

STA FNAME, Xx 

STY FNAME+$91, x 

INX 

INX 

CPX #$96 

BEQ CONT 

JSR GETNXT 

JMP LOOP1 
CONT JSR CHRGET 

LDA #$99 

LDY #$91 

LDA (NR),Y 

STA VNR 

DEY 

LDA (NR),Y 

STA VNR+$91 

BNE CONT1 

LDA VNR 

BNE CONT1 

DEC VNR 

DEC VNR+$@1 
CONT1 STY NCHAR 

STY NREAD 

STY NREAD+$91 

LDA (FNAME) ,Y 


STA LENFN 

INY 

LDA (FNAME), Y 
PHA 

INY 


LDA (FNAME) ,Y 
STA FNAME+1 
PLA 

STA FNAME 

RTS 


wee 


3GET A THE DOS BUFFER IN USE 
3;0R A NEW ONE IF NOT IN USE 


3 

3FIRST BLANK THE NAME BUFFER TO 
;ALL SPACES, THEN COPY NAME 

3FROM MEMORY INTO BUFFER 

3 

3NEXT, CHECK ALL BUFFERS TO SEE 

3 IF THERE IS A BUFFER ALREADY IN 
;USE FOR THIS FILE, IF NOT GET 
;ADDRESS OF THE FIRST FREE BUFFER 


5 
31F Ai+1 = @ THEN NO BUFFER, ERROR 


;MOVE NAME INTO BUFFER NAME FIELD 
37TO HOLD IT OPEN, SET FILE MANAGER 
;PARAMETER LIST TO HAVE ADDRESSES 
30F THE SECTIONS FO THE DOS BUFFER 
3AND THE ADDRESS OF THE FILENAME 


3;SET PARM LIST FOR DRIVE, SLOT 
3;AND TEXT FILE TYPE 
;SET BUFF#1 TO POINT TO DATA 
;SECTION FOR DOS BUFFER, AND 
3; TEMP1 TO THE WORKAREA OF BUFFER 
5 
FNDBUF JSR NONAME 

LDY LENFN 
FNDBF 1 DEY 

BMI NAMMOV 

LDA (FNAME), Y 

ORA #$89 

STA NMBUFF,Y 

BNE FNDBF1 
NAMMOV JSR GETBUF 

BCC BUFFND 

LDA A2+$91 

BNE BUFFRE 

LDX #$9C 

JMP ERROR 
BUFFRE STA A1+$@1 


242 
243 
244 
245 
246 
247 
248 
249 
259 
251 
252 
253 
254 
255 
256 
257 
258 
259 
269 
261 
262 
263 
264 
265 
266 
267 
268 
269 
279 
271 

272 
273 
274 
275 
276 
277 
278 
279 
289 
281 

282 
283 
284 
285 
286 
287 
288 
289 
299 
291 

292 
293 
294 
295 
296 
297 
298 
299 
309 
391 

3G2 
393 
304 

395 
386 
397 
398 

3a9 

319 

311 

312 
313 
314 
315 
316 
317 

318 
319 

326 

321 

322 
323 
324 
325 
326 
327 
328 
329 
339 
331 

332 
333 
334 
335 
336 
337 
338 
339 
349 
341 

342 
343 
344 
345 
346 
347 
348 
349 
359 
351 
352 
353 
354 
355 
356 
357 
358 


LDA A2 
STA Al 
BUFFND JSR MOVNAM 
JSR DOSPAR 
JSR NAMADD 
LDY #$95 


DRIVE # IS LOADED HERE 


or we ee ee we 


LDA #$@1 
STA (PARMAD),Y 
INY 


SLOT # IS LOADED HERE 


ae ee ee ee ee 


LDA #$96 

STA (PARMAD),Y 
LDA #$99 ' 
INY 

STA (PARMAD),Y 
LDY #$19 

LDA (PARMAD),Y 
STA BUFF1 

INY 

LDA (PARMAD),Y 
STA BUFF 1+$61 
LDY #$9C 

LDA (PARMAD) ,Y 
STA TEMP1 

INY 

LDA (PARMAD), Y 
STA TEMP1+$91 
RTS 


3 
; 
3;SETS PARM LIST TO OPEN 
;RECORD LENGTH IS $199 IF A-REG 
3=1, OR $69 IF A=G. ALSO, A NEW 


3;FILE MAY BE CREATED IF A=G 
3AND MAY NOT WHEN A#D 


, 

;SAVE A-REG TO X-REG FOR FILE 
;MANAGER USE, SET VOLUME #, 
;GOTO FILE MANAGER 


3 
OPEN PHA 
JSR FNDBUF 
LDY #$99 
LDA #$91 
STA (PARMAD) ,Y 
TYA 
INY 
INY 
STA (PARMAD),Y 
INY 
PLA 
TAX 
STA (PARMAD),Y 
INY 


VOLUME # IS LOADED HERE 


sas as ee ae ee 


LDA #906 
STA (PARMAD), Y 
JMP GOFLMN 


READ FILE STARTS HERE 


3SET A=1 (RECORD LENGTH=$199), 
3CREATE NO FILE. SET STORED RECORD 
3NUMBER AND POINTER IN SECTOR TO @ 


; 
3AT *READFN’, GET RECORD NUMBER 
3SET PARM LIST TO READ THAT REC # 
3GOT TO FILE MANAGER TO READ 

3 

3AT *READ2’, LOOP, COPYING ASCII 
3;DOS BUFFER INTO KEYBOARD BUFFER 
370 HOLD UNTIL A ’CR’” IS HIT. 

> 

31F Y=@, THEN WE ARE OUT OF DATA 
3IN THIS SECTOR, ADD COUNTER, GO 
370 *READFN’. IF A *CR’ IS HIT 

3 THEN END OF STRING, SAVE LENGTH 
3;0F STRING TO VARIABLE, MOVE 
3STRING INTO STRING MEMORY, AND 
3SAVE ADDRESS OF START OF STRING 
3 INTO VARIABLE AREA. 

3 

3GOTO SUBROUTINE TO GET ADDRESS OF 
3NEXT VARIABLE SUBSCRIPT, AND 
3CHECK COUNTER TO SEE IF WE ARE 
3DONE WITH THE COMMAND YET 


5 
3;ERROR TRAP FOR OUT OF MEMORY 
3;AND END OF FILE IN HERE ALSO 


’ 
’ 
READ JSR BASPRM 
LDA #$91 
JSR OPEN 
LDY #$2A 
LDA #$99 
STA (TEMP1),Y 
INY 
STA XSAVE 
STA (TEMP1),Y 
INY 
STA (TEMP1),Y 


continued on next page 
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AMPER-SPEED: Fast Read 


And Write For Text Files 
(Cont.) 


359 
349 
361 
362 
363 
344 
365 
366 
367 
368 
369 
378 


READFN LDY #$2B 
LDA (TEMP1),Y 


LDA (TEMP1),Y 


LDY #$99 
LDA #$93 
STA (PARMAD),Y 


STA (PARMAD),Y 
STA (PARMAD),Y 


STA (PARMAD),Y 
LDA #$99 


STA (PARMAD),Y 


STA (PARMAD) ,Y 
JSR GOFLMN 
LDY #$99 
LDX XSAVE 
READ2 STY YSAVE 
LDA (BUFF1),Y 
BEQ EOF 
CMP #$8D 
BEQ ENSTRG 
INC NCHAR 
AND #$7F 
STA BUFF2, X 


BNE READ2 
NEWSEC LDY #$2A 
LDA (TEMP1),Y 


ADC #$01 
STA (TEMP1),Y 


LDA (TEMP1),Y 

ADC #800 

STA (TEMP1),Y 

STX XSAVE 

JMP READFN 
ENSTRG STY YSAVE 


LDY #$2C 
STA (TEMP1),Y 
LDX NCHAR 


LDY #806 
READS LDA FRETOP 
BNE READ4 
DEC FRETOP+$@1 
READ4 DEC FRETOP 
LDA BUFF2, Xx 
STA (FRETOP).Y 


CPX #$FF 
BNE READS 
LDY #890 
LDA NCHAR 
STA (NAL),Y 
LDA FRETOP 


STA (NAL),Y 
LDA FRETOP+$@1 


READ6 LDA ENDSTP+$@1 


CMP FRETOP+S$@1 

BLT READ7 

LDX #$2D 
JMPERR JMP ERROR 
READ7 LDX #809 

STX NCHAR 

STX XSAVE 

LDY YSAVE 


BEQ NEWSEC 

BNE READ2 
EOF LDX #$95 

BNE JMPERR 
; 
3 
;CONTINUE STARTS HERE 
3;GET PASSED PARAMETERS, GET BUFFER 
3ADDRESSES SET UP, GET CURRENT 
;POSITION IN SECTOR, RECORD # 
31S ALREADY SAVED FROM LAST CALL 


, 

’ 

CONTRD JSR BASPRM 
JSR FNDBUF 
LDY #$2C 
LDA (TEMP1),Y 
TAY 
STY YSAVE 
JMP READ7 


;DE-ALLOCATE ROUTINE,NO CHANGE 
;DELETES THE VARIABLES PASSED 
;AND MOVES ALL OF REST DOWN TO 
;CLEARED SPACE 
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469 
476 
471 
472 
473 
474 
475 
476 
477 
478 
479 
489 
481 
482 
483 
484 
485 
486 
487 
488 
489 
498 
491 
492 
493 
494 
49S 
496 
497 
498 


3 
DELETE JSR GETADD 


LDA LVAR 

SBC #$97 

STA TEMP1 
LDA LVAR+$@1 
SBC #$99 

STA TEMP1+$@1 
LDY #%92 

LDA (TEMP1),Y 
STA OFFSET 


LDA (TEMP1),Y 
STA OFFSET+$9@1 


LDA OFFSET 
ADC TEMP1 
STA Al 
LDA OFFSET+$@1 
ADC TEMP1+$61 
STA Al+$@1 
LDY #$99 
MOVE LDA (A1),Y 
STA (TEMP1),Y 
INC TEMP1 
BNE NEXTAL 
INC TEMP1+$@1 
NEXTA1 LDA Al 
CMP ENDSTP 
LDA A1+$@1 
SBC ENDSTP+$61 
INC Al 
BNE MOVE1 
INC A1+$@1 
MOVE 1 BCC MOVE 


LDA ENDSTP 
SBC OFFSET 


LDA ENDSTP+$@1 
SBC OFFSET+$@1 
STA ENDSTP+$@1 


STA ENDSTP 
JSR CHRGET 
BNE DELETE 
JMP EXIT1i 


WRITE STARTS HERE 
ET BUFFER ADDRESSES, OPEN FILE, 


Gi 
CREATING IF NOT FOUND,POSITION AT 
START OF FILE 


a a 


;COPY STRING LENGTH INTO PARM LIST 
;COPY STRING INTO KEYBOARD BUFFER, 
;THEN ADD A ’CR* TO IT. CALL FILE 
;MANAGER TO WRITE AT CURRENT 

3; POSITION. 


3 
;GOTO SUBROUTINE TO GET NEXT 
3;ADDRESS, AND CHECK TO SEE IF DONE 
3 
s 
WRITE JSR BASPRM 

LDA #$69 

JSR OPEN 

LDY #$90 

LDA #$@A 

STA (PARMAD),Y 

LDA #809 

LDY #$62 


WRITE1 STA (PARMAD),Y 

INY 

CPY #$96 

BNE WRITE1 

JSR GOFLMN 
CONWRT  LDY #899 

LDA #$04 

STA (PARMAD),Y 

LSR 

INY 

STA (PARMAD),Y 
WRITE2 LDY #890 

LDA (NAL),Y 

LDY #96 

STA (PARMAD),Y 

TAX 

LDA #$00 

INY 

STA (PARMAD),Y 

LDA #892 

LDY #899 

STA (PARMAD) ,Y 

DEY 

LDA #8900 

STA (PARMAD),Y 

LDY #891 

LDA (NAL),Y 

STA TEMP1 

INY 

LDA (NAL),Y 

STA TEMP1+$@1 

LDY #$90 
MOVSTG DEX 

CPX #$FF 

BEQ STORCR 

LDA (TEMP1),Y 

ORA #889 

STA BUFF2,Y 


BNE MOVSTG 
STORCR LDA #$8D 
STA BUFF2,Y 
JSR GOFLMN 
JSR ADD 
JUMP WRITE2 


698 
699 
619 
611 
612 
613 
614 
615 
616 
617 
618 
619 
628 
621 
622 
623 
624 
625 
626 
627 
628 
629 
639 
631 
632 
633 
634 
635 
636 
637 
638 
639 
646 
641 
642 
643 
644 
645 
646 


3 


3 

; SUBROUTINE TO GET ADDRESS OF NEXT 
;STRING SUBSCRIPT, AND ADD TO 
;COUNT TO SEE IF DONE YET. 


3 
3; IF DONE, EXIT ROUTINE, ELSE, RTS 
; 


, 

ADD CLC 
LDA NAL 
ADC #$93 
STA NAL 
LDA NAL+$@1 
ADC #$99 
STA NAL+$91 
INC NREAD 
BNE ADDS 
INC NREAD+$91 

ADDS LDA NREAD+S@1 
CMP VNR+$@1 
BLT ADDEND 
LDA NREAD 
CMP VNR 
BLT ADDEND 
JSR EXIT 
PLA 
PLA 

ADDEND RTS 

; 


; 

;APPEND STARTS HERE 

;GET PASS PARMS, GET BUFFER 
3;G0TO WRITE 


’ 
; 
APPEND JSR BASPRM 
JSR FNDBUF 
IMP CONWRT 


“ae 


;STORAGE FOR ZERO PAGE SAVE 
;CHARACTER TABLE FOR COMMANDS 
3AND ROUTINE ADDRESSES HERE 


; 
; 
CHRTBL ASC *R’ 
asc ’C’ 
asc ”D’ 
ASC *W’ 
ASC ’A’ 
DFS $86 
ADDTBL ADR READ-$91 
ADR CONTRD-$@1 
ADR DELETE-$81 
ADR WRITE-$91 
ADR APPEND-$61 
DFS $C 


APPLE DARTS 








Apple Darts 


by Robert R. Devine 
Small Computer Service 
P.O. Box 10 

Adona, Arkansas 72001 


When you consider the relatively short 
period of time that personal computers have 
been around, it’s really amazing how many 
good game programs have been written. Even 
now, it’s not easy to sit down and create a 
program that someone else hasn't already 
written!! 1 think you'll find that APPLE DARTS 
takes an old and popular game, and makes it 
fun (as well as a bit safer) for all ages to play. 
No longer will Johnny need to worry about 
getting grounded for a month because he 
stuck a dart into dad’s new paneling, mom’s 
pretty lampshade, or his sister’s backside!! 


HOW TO ENTER THE PROGRAM: 

To enter the shape table, you should first 
boot DOS, and then enter the monitor using 
CALL-151. You're now ready to enter the 
shape table which consists of 13 shapes: the 
numbers 0 thru 9, asmall square, adart, anda 
Y% circle. After it’s all entered, return to Apple- 
soft by entering 3D0G, and save your shape 
table to disk using BSAVE DB SHAPES 
A$9400/L185, A$9400,L185. | always like to 
include the start address and length in any 
shape table or assembly routine names, as it 
makes it easier to access them for future use. 

You’re now ready to enter the Applesoft 
program. There are no special tricks involved, 
so you Can simply enter it as listed. 


HOW THE GAME WORKS 

When you run the program you'll first be 
asked if you would like instructions, after 
which you'll be able to select one of two dif- 
ferent game variations and difficulty levels. 
The dart board does take a little time to be 
drawn on the screen; however, it’s rather 
detailed, and well worth the wait. 

Once the board is drawn you can play as 
many games as you wish, without having to 
redraw the board. The reason the program 
starts drawing each circle very fast, and then 
seems to slow down, is because of the pecul- 
iarities of the way your Apple draws lines. 
When the lines are close to vertical, a simple 
increment of 1 in the Y=SQR(Radiust2-Xt2) 
formula will fill in all the points between the 
lines. However, as the lines become more and: 
more horizontal, it is necesary to keep reduc- 
ing the formula’s X increment, all the way 
down to .03, in order to be sure that all points 
are filled in. Once the board is drawn, the 
game is ready to play. Simply press the button 
on your game paddle to “throw” your dart. 


GAME VARIATIONS 

You'll note that the scoring for games 1 and 
2 start in lines 350 and 400 respectively. C(X) 
is the value of the segment that the dart hit. 
PS(PL) is the score holder for player PL. The 
value of F (1-3) indicates whether the hit was 
in the bulls eye, inner ring, or outer ring 
respectively. Testing to see if X is an integer 
will tell whether the segment hit was black or 
white, depending on if it was in the inner or 
outer ring. With this information in hand, you 
can easily add as many different game rule 
variations as you wish. To do so, simply 


change the ON G GOSUB 350,400 in line 300 
to ON G GOSUB 350,400,GAME3,GAME4, 
GAME-N, and write the new scoring routines. 


HOW THE PROGRAM WORKS 

The program first initializes the most fre- 
quently used variables at the beginning of the 
variable table, and DiIMensions the needed 
array in line 1. It then jumps to line 15000, 
which prints the title, and handles the instruc- 
tions routine. Line 16000 then allows game 
selection, and difficulty level, after which it 
tests (IF F>O then we've played before) and 
resets previous scores to zero. Falling through 
to line 16010 indicates that this is the first 
game since a RUN command, whereupon the 
shape table is read from the disk (line 10000), 
the color is set, and execution jumps to line 
1000, which begins execution of the graphic 
routines to draw the dart board. 

Lines 1000 thru 1035 draw the first seg- 
mented circle. Rather than using a nice neat 
FOR ...NEXT loop, it was necessary to 
INCrement a counter to bump the X value, 
and as the lines become closer to horizontal, 
slowly make the INCrement smaller and 
smaller. Line 1030 and 1035 test for which 
quadrants are to be drawn and GOSUBs the 
routines at 200 thru 230 which draw the lines. 

Lines 1040 thru 1075 repeat the routine for 
the inner segmented circle, using the same 
logic, except that this time, some color switch- 
ing is needed because we must erase parts of 
the lines that were drawn by the previous 
routine. 

Lines 1080 thru 1090 draw the innermost 
black circle, again erasing parts of the lines 
drawn by the last routine. 

Finally we get to lines 1095 thru 1100 which 
draw the bulls eye. 

Line 1145 reads the DATA tables, getting 
the X and Y coordinates (XC and YC) of 
the number circles for each segment, then 
GOSUBs line 1200 which draws the circle in 
4 ROTations, and finally GOSUBs the routine 
at line 1210 thru 1225 which draws the num- 
bers inside each circle. At this point the dart 
board is complete. 

Line 1230 reads in all of the outer circle 
coordinates OX(X) and OY(X), and then does 
the same for the inner circle coordinates IX(X) 
and lY(X), as well as reading and POKEing the 
sound routine into memory. 

As you've probably noticed by now, the 
major part of the program involves the initial 
setup, and is used only once!! 


THE MAIN PROGRAM 

The main program resides in lines 240 thru 
280. The program jumps from segment to 
segment, drawing the cursor, erasing it, and 
jumping to line 300 to see if the button was 
pushed. In difficulty level 1 the cursor always 
moves counterclockwise, however in level 
2... who knows? | originally planned to use 
the sound routine to make a sound as the 
cursor passed each segment, however it 
slowed things down too much. 

The F flag tells which circle, inner or outer, 
we came from, or if the bulls eye was hit. 
When the button is pressed, the program 
jumps to lines 310 thru 320 to draw the dart, 
bumps the throw counter T, and GOSUBs the 
appropriate game scoring routine at 350 or 
400. 


After updating the player’s score PS(PL), 
the routines test for a win. If none is found, 
execution jumps to line 610 which tests for 
change of player, prints the current scores, 
makes the sound (one beep or two) for the 
next player who throws a dart, jumps to line 
100 or 110 to set color, and then to lines 
310,315 or 320 which erase the dart. 

Note: The RETURNs on lines 310 thru 320 
(in this instance only) actually cause a jump 
to line 305, which is another RETURN. This 
completes all unRETURNed GOSUBs, and 
puts us back at the very next segment on the 
board so that we can complete the same 
FOR ...NEXT loop that we started. 

If a winner is found in line 360, game 1, the 
dart is first erased from the bulls eye in line 
310, and the program jumps to line 600 which 
declares the winner, POPs two unRET URNed 
GOSUBs off the stack, and goes into the new 
game routine. 

If a winner is found in line 430, game 2, 
execution jumps to line 620 which finds out 
where we came from, sets color, and then 
jumps to line 310,315 or 320 which again 
erase the dart. This time however, they 
RETURN to line 430, which promptly sends 
the program to line 600 for the end of game 
routine. 

I’ve tried to give a slightly clearer idea of 
what happens with each of the game scoring 
routines for those of you who might like to 
change the rules, or add a few game varia- 
tions of your own. 


THE POWER OF ON (X) GO... 

You'll note the mixed use of IF... THEN 
and ON (exp) GOSUB or ON (exp) GOTO 
statements in the listing. While the IF... 
THEN is a powerful statement, the relatively 
infrequent use of the ON (exp) GOSUB and 
ON (exp) GOTO in most program listings, 
seems to indicate a lack of recognition that 
these can be even more powerful statements. 
Statements of this form allow, in only one 
statement, and almost limitless amount of 
testing and branching. They also have the 
benefit of allowing what amounts to multiple 
IF ... THENs on the same line, without the 
need to worry about execution failure if all 
tests evaluate as false. I've also heard people 
complain about Applesoft not having the 
IF... THEN... ELSE branching statement, 
which is available with some other Basics. Did 
you know that the Basic statement IF X=3 
THEN 100 ELSE 300, is exactly the same as 
the Applesoft ON (X=3)+1 GOTO 300, 100 
statement? 


VARIABLE TABLE: 
xc,YC X and Y coordinates for 
drawing number circles 


OX(X), OY(X) X and Y coordinates for 


outer ring darts 


IX(X), TY (X) X and Y coordinates for 
inner ring darts 

Cc Color of number circles (0 
or 3) 

E Flag to indicate bulls eye, 
inner, or outer ring (1-3) 

D Difficulty level (1-2) 

PL Player number (1-2) 


continued on next page 
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Apple Darts (Cont.) 


PS(PL) Score holder for player PL 
T Throw counter 
G Game selected (1-2) 
Y Vertical endpoint for draw- 
ing segmented circles 
C(X) Counterclockwise board 
order segment value 
X Horizontal endpoint for 
drawing segmented circles 
xX Used in loops to sweep 
cursor around board 
INC Counter to bump X value 
when drawing segmented 
circles 
89400. 94B9 
9400— OD 00 1C 00 2A 00 32 00 
9408- 3C 00 48 00 52 00 SE 00 
9410— 69 00 72 00 7D 00 88 00 
9418-— BE 0O 99 00 OC 25 1C 
9420— 17 34 2E 1E OF 2D OS 24 
9428- 04 00 24 BC 96 12 2D 1C 
9430— 24 00 65 E4 SF 17 96 Fi 
9438-— 2E 2D 35 00 OC OC SC 
9440-— B7 92 15 2D OC E4 07 00 
9448- SA 27 OC OC OC 34 AE 37 
9450-— SE 00 38 27 2C 2D FS AA 
9458-— 34 17 SF.1C 04 00 75 FS 
9460— SF iC 24 ES OC OC 2D 06 
9468- 00 OC OC SC SF B7 52 1E 
9470— 2E 00 E7 64 2D 15 Fé OF 
9478- Fé SF 1C 24 00 E7 6&4 2D 
9480— 15 36 77 1E 1E SF 04 00 
9488-— 25 SF 34 2D 04 00 2D FS 
9490-— SB 34 E4 SC 67 29 ES 24 
9498- 00 24 24 24 20 36 3S BM 
94AR0-— 2E 24 24 24 2C 32 3% 3M 
94A8-— 2E 24 24 AC 3X4 34 ZS 24 
94B0- 15 34 07 00 00 00 00 00 
94BS- O00 DO 


418 


415 
428 
438 


EEREFRESEETERERETHREEE 
*  APPPLE DARTS * 
BY ROBERT DEVINE # 
COPYRIGHT (C) 1982 * 
BY MICRO-SPARC INC * 
LINCOLN, MA. 81773 * 
SSRELHETHELERERRER EERE 


@ X = @:F = @:PL = @:D = @:Y = @:INC = B: DIM OX¢28),0Y 


(28) , 1X28) , 1Y(28) ,C(28): GOTO 15808 

HCOLOR= @: IF X / 2= INT (X / 2) THEN HCOLOR= 3 

FOR 1 = 1 TO SP: NEXT | 

RETURN 

HCOLOR= 3: IF X / 2= INT (X / 2) THEN HCOLOR= 6 

FOR I = 1 TO SP: NEXT I 

RETURN 

HPLOT 148 + X,79 + Y TO 148,79 TO 14@ - X,79 - Y: RETURN 


HPLOT 148 + X,79 —- Y TO 148,79 TO 148 - X,79 + Ys RETURN 
HPLOT 148 + X,79 + Y: HPLOT 148 - X,79 - Y: RETURN 
HPLOT 14@ + X,79 - Ys: HPLOT 14@ - X,79 + Ys RETURN 


F = 3: ON (D = 1) GOTO 245: ON INT ( RND (1) * 2) GOTO 
245: FOR X = 26 T0 1 STEP - 1: GOTO 258 

FOR X = 1 TO 28 

GOSUB 16@: DRAM 11 AT OX(X),OY(X): GOSUB 110: DRAW 

11 AT OX(X) ,OY<(X): GOSUB 386: NEXT 

F = 2: ON (D = 1) GOTO 265: ON INT ¢ RND (1) ® 2) GOTO 
265: FOR X = 28 TO 1 STEP - 1: GOTO 278 

FOR X = 1 TO 26 

GOSUB 11¢: DRAM 11 AT IX(X),1Y(X): GOSUB 160: DRAW 

11 AT IX(X),1Y(X): GOSUB 360: NEXT :X = @ 

F = i: HCOLOR= @: DRAW 11 AT 146,79: FOR 1 = 1 TO SP 

: NEXT I: HCOLOR= 3: DRAW 11 AT 140,79: GOSUB 388: GOTO 
248 


IF PEEK (¢ - 16287 + PL - 1) > 127 THEN HCOLOR= 5S: 
ON F GOSUB 316,315,328:T = T + 1: ON G GOSUB 356,4 
66 

RETURN 


DRAW 12 AT 148,791 RETURN 

DRAW 12 AT IX(X),1Y(X): RETURN 

DRAW 12 AT OX(X) ,OY(X): RETURN 

REM GAME 1 (SCORE 1-28) 

IF C(X) = PS(PL) + 1 THEN PS(PL) = C(X) 

IF PS(PL) = 28 AND F = 1 THEN HCOLOR= 3: GOSUB 318 
: GOTO 688 

GOTO 618 

REM GAME 2 (SCORE 508) 

IF F = 3 AND (X / 2 = INT (X / 2)) THEN PS(PL) = P 
S(PL) - CCX): GOTO 618 

IF F = 2 AND (X72 ¢ > INT (X / 2)) THEN PS(PL) = 
PS(PL) - C(X): GOTO 616 

IF F = 1 THEN PS(PL) = PS(PL) + 58: GOTO 430 
PS(PL) = PS(PL) + C(X) 

IF PS(PL) > = 58@ THEN GOSUB 4628: GOTO 480 
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448 GOTO 418 

688 HOME ; VTAB 22: HTAB 18: FLASH : PRINT * PLAYER “PL 
* WINS !!! *: NORMAL : POP : POP : FOR X = 1 TO 160 
@: NEXT X: HOME : UTAB 21: PRINT "WANT ANOTHER GAME 
2°: GET AS: PRINT : IF AS = "Y". THEN 14068 

685 TEXT : HOME : PRINT CHRS (4)*CATALOG": END 

61@ FOR Y = 1 TO 188: NEXT Y: ON (G = 2) GOTO 612: ON ¢ 
T « 3) GOTO 615:T = @ 

612 PL = PL + 1: IF PL = 3 THEN PL = 1 

615 VTAB 21: PRINT "PLAYER 1 SCORE="PS(1)" PLAYER 2 SC 
ORE="PS(2)* *; VTAB 23: FOR Y = 1 TO PL: POKE 76 


8,108 * PL: POKE 769,58: CALL 778: NEXT Y: PRINT TABC 


4)*PLAYER "PL"’S TURN --- THROW DART ‘T + 1 


628 ON (F - 1) GOSUB 168,118: ON (F - 1) GOTO 315,328: HCOLOR= 3: GOTO 318 


190@ INC = 1:X =@6 

1885 IF X > 58 THEN INC = .5@ 

1018 IF X > 71 THEN INC = .18 

1015 IF X > 78.11 THEN INC = .63 

1028 X = X + INC: IF X > 79 THEN 1648 

1825 Y = SQR (6241 - X * 2) 

103@ IF X < = 24 0R (X > = 46 AND X ¢ = 63.2) OR XD 
= 75 THEN GOSUB 288: GOSUB 23@: GOTO 1865 

1035 IF (X > 24 AND X < 46) OR (X >) = 63.2 AND X ¢ 75) 
THEN GOSUB 218: GOSUB 22@: GOTO 1865 

1046 INC = 1:X = 6 

1045 IF X > 33 THEN INC = .5@ 

105@ IF X > 48.5 THEN INC = .18 

1855 IF X > 44.5 THEN INC = .63 

1068 X = X + INC: IF X ) 45 THEN 1868 

1065 Y = SQR (2825 - X * 2) 

1078 IF X < = 13.5 0R (X > = 26 ANDX ¢ = 36) OR X ) 
42.75 THEN HCOLOR= 3: GOSUB 218: HCOLOR= @: GOSUB 
208: GOTO 1845 

1075 IF (X > 13,5 AND X ¢ 26) OR (X > 36 AND X ¢ 42.75) 


THEN HCOLOR= 3: GOSUB 208: HCOLOR= @: GOSUB 218: GOTO 


1045 

1968 INC = 1:X = @ 

1085 HCOLOR= @: IF X > 11 THEN INC = .@3 

1098 X = X + INC: IF X > 15 THEN 1895 

1092 Y = SOR (225 - X * 2): GOSUB 208: GOSUB 21@: HCOLOR= 
31 GOSUB 220: GOSUB 238: GOTO 1885 

1895 HCOLOR= 3: FOR X = @ TO 6 STEP .18 

1108 Y = SQR (36 - X * 2): GOSUB 286: GOSUB 218: NEXT X 
: GOTO 1145 

1145 FOR A = 1 TO 28: READ XC,YC,C: GOSUB 1206: GOSUB 1 
2181 NEXT A: GOTO 1238 

1208 HCOLOR= C: SCALE= 1; FOR X = @ TO 48 STEP 16: ROT= 
X: DRAW 13 AT XC,YC: NEXT X: RETURN 

121@ IF C = @ THEN C = 3: GOTO 1228 

1215C = 8 

1228 HCOLOR= C: SCALE= 1: ROT= @:N% = STRS (A): IF LEN 
(NS) = 1 THEN DRAW VAL (NS) + 1 AT XC,YC: RETURN 


1225 DRAW VAL ( LEFTS (NS,1)) + 1 AT XC - 4,YC: DRAW VAL 
( RIGHTS (NS,1)) + 1 AT XC + 3,YC: RETURN 

1238 FOR X = 1 TO 28: READ OX(X),OY(X): NEXT X: FOR X = 
1 TO 20: READ IX(X),1Y(X): NEXT X: FOR X = 1 TO 26: 
READ C(X): NEXT X: FOR X = 778 TO 798: READ Y: POKE 
X,Y: NEXT X 

1235 VTAB 211: PRINT "PLAYER 1 SCORE="PS(1)" PLAYER 2 8 
CORE="PS(2)° "; VTAB 23: FOR Y = 1 TO PL: POKE 7 


68,188 * PL: POKE 769,58: CALL 778: NEXT Y: PRINT TAB( 


4) "PLAYER "PL"’S TURN --- THROW DART ‘T + 1 

1248 GOTO 240 

168@@ PRINT CHR® (4)"BLOAD DB SHAPES A8?488/L185": HIMEM: 
37888: POKE 232,8: POKE 233,148: RETURN 

18039 REM NUMBER COORDINATES AND CIRCLE COLORS XC,YC, 
c 

10048 DATA 171,18,@,171,141,3,129,147,3,201,48,8,129 
,11,8,207,90,8,92,128,3,72,88,3,93,38 ,@,281,118,3,7 
2,57,8,118,18,3,207,69,3,79,47,3,188,129,8,79,118,8 
,151,147,8,188,3@,3,118,141,8,151,11,3 

18849 REM OUTER TRACK COORDINATES OX(X) ,OY(X) 

10858 DATA 130,26,117,31,104,41,93,54,88, 78 ,87,86,94, 
162,103, 116,116,127, 131,132, 158,132,165,127,178,116 
185,182,198 ,87,191,78,186,55,177,41, 164,31, 149,26 

18854 REM INNER TRACK COORDINATES 1X(X) ,IY<X) 

18055 DATA 135,48,124,43,113,5@,106,61,183,73,184,85 
1107, 96,114,187,123,114,136,117,147,117, 156,114,167 
,107,174,97,177,85, 176,72, 173,68 , 166,58, 157,493,146, 
48 

18859 REM COUNTERCLOCKWISE BOARD ORDER C(x) 

10068 DATA 5,12,9,14,11,8,16,7,19,3,17,2,15,18,6,13,4, 
18,1,28 

18069 REM SOUND DATA 

10078 DATA 173,48,192,136,288,5,206,1,3,248,9,282, 288, 
245,174,0,3,76,2,3,96 

15¢0@ HOME ; VTAB 8: PRINT TAB( 17)"DARTS*: PRINT : PRINT 
TAB( 13)"COPYRIGHT 1981": PRINT : PRINT TAB( 12)* 
ROBERT R. DEVINE": PRINT : PRINT TAB( 13)*ADONA AR 
KANSAS": PRINT : PRINT 

15818 PRINT TABC 1@)"WANT INSTRUCTIONS ?*;: GET AS: PRINT 
: PRINT : PRINT : IF A® = "N* THEN 16088 

15028 HOME : VTAB 6: PRINT "TO PLAY DARTS EACH PLAYER U 
SES A GAME": PRINT : PRINT "PADDLE, PLAYER 1 USES P 
DL(@) AND PLAYER*: PRINT : PRINT *2 USES PDL(1). SI 
MPLY PRESS YOUR GAME‘: PRINT : PRINT *BUTTON WHEN T 
HE FLASHING SQUARE IS ON": PRINT : PRINT "THE SPOT 
YOU WANT." 

15838 PRINT : PRINT "HIT ANY KEY TO CONTINUE)";:; GET AS 

HOME : INVERSE : PRINT * GAME 1 ": NORMAL : PRINT 


PRINT *TO WIN YOU MUST HIT EACH NUMBER (1-26)": PRINT 


: 

: PRINT “IN ORDER, AND THEN YOU MUST HIT THE": PRINT 
: PRINT "BULLS EYE.": PRINT 

1564@ INVERSE : PRINT * GAME 2 *: NORMAL : PRINT : PRINT 
“THE FIRST PLAYER TO GET 5@@": PRINT : PRINT "POINT 
S WINS. EACH HIT 1S WORTH THE*: PRINT : PRINT “SECT 
10N VALUE. A BULLS EYE 1S WORTH 5@": PRINT : PRINT 
"POINTS. TO MAKE THINGS INTERESTING,*: PRINT 

15@5@ PRINT “ANY BLACK SQUARE YOU HIT WILL": PRINT : PRINT 
"BE DEDUCTED FROM YOUR SCORE.": PRINT : PRINT 

16888 INPUT “WHICH GAME (1 OR 2) °;G: ON (G <{ 1 ORG ) 
2) GOTO 16808: PRINT : INPUT “DIFFICULTY (1=EASY, 2 
=HARD) *;0: INPUT "ENTER SPEED OF PLAY (1=FAST, 255 
=SLOW) °;SP: HOME : IF F > @ THEN PL = 1:PS(1) = 6: 
PS(2) = O:T = 6: GOTO 1235 

16018 GOSUB 10608: HOME : HGR : HCOLOR= 3:PL = 1: GOTO 
1068 
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Micro-Calc 


by Stephen Bohn 
6863 Emerald Ave. 
Enon, OH 45323 


Personal Accounting can be a real chore, 
and just about everyone has to deal with 
some. Micro-Calc is a program designed to 
handle your accounting and personal finance 
problems. Whether you have a simple task, or 
a complex series of calculations to perform, 
Micro-Calc can handle the job. The program 
was designed with flexibility in mind, because 
everyone’s personal finance problems are 
different. 

Micro-Calc is useful because it writes cus- 
tomized accounting programs. It will allow 
you to utilize up to twenty rows by twenty 
columns of information in any format you 
desire. You merely set up the format, and 
Micro-Calc writes the program for you. You 
can set up a new program for any situation 
and then save it by any name you choose. The 
new program will allow you to save, read, 
change or print whatever data you enter, as 
well as perform calculations on that data. 
With Micro-Calc you decide how you wish to 
tackle your bookkeeping problems. 


PLANNING AHEAD 


The key to your success with Micro-Calc is 
planning ahead. Your first step is to deter- 
mine your format on paper. Suppose you 
want to calculate monthly balances for three 
accounts over the next three months. You 
need your present balance, finance charge, 
and monthly payment for each account to 
figure this out. Let’s assume that you decide 
on this format: 


: BALANCE : % : MO. PMNT : JUNE: JULY: AUG: 
AUTO : ee 3 ; i ; 
HOME : 
STORE : 
TOTAL : 


THE FUNCTIONS 


At this point, you must decide which one of 
three possible functions you wish to utilize at 
each intersection of a row and column, or 
CELL of your program. Your choices are D for 
data entry, C for Comment, and F for Formula 
or calculation. Also, at this time you must 
decide on your column widths. These are 
determined by the length of the column 
names, or by how much space will be re- 
quired to display the information in each 
column. You can choose from one to nine 
characters in cells which contain comments, 
and from four to nine characters in cells 
which hold data or perform calculations. 
Each row name is automatically allotted a ten 
character space. After assigning functions to 
the cells, your model might now look like this: 


(8) (3) (7) (8) (8) (8) 
:BALANCE :%: MO. PMNT: JUNE: JULY: AUG: 


AUTO: D “Cr D Fe Foor 
HOME : D AL et D F | eetal 3 
STORE: D eis D Fe 3208. °F 

€ c c c c (=e alll 
TOTAL : F Cc F F ae tla 


READY TO RUN 


After charting out your model on paper, 
you are ready to run Micro-Calc. You are 
asked to enter the column widths, the column 
names, the row names, and which function 
(C, D or F) you wish to use at each CELL. It is 
imperative that you correct any errors now, 
because this information becomes the frame- 
work upon which your bookkeeping program 
is built. 

After your format is complete, you are 
asked to enter the comments. These can be 
letters, numbers, or symbols and are prima- 
rily used for clarification within your pro- 
gram. There is one exception however: a dol- 
lar sign ($) cannot be the first character of a 
comment. When comments are assigned to 
cells which are next to each other on the same 
row, you can write over the boundaries of the 
columns. By doing so, you can insert any- 
thing from sentences to lines between rows. 
All in all, it makes for a much neater display. 

Once you've finished entering your com- 
ments, Micro-Calc will store all the informa- 
tion you've entered directly into memory. 
This process can take up to five minutes fora 
large program. After the information is stored, 
your personal accounting program will be 
displayed in a semi-finished state. Our ex- 
ample would look like this: 


:BALANCE: %:MO. PMNT :JUNE 
AUTO :$ .00 212% :$ .00: 
HOME :$ 00: 6% :$ .00: 
STORE :$ .00 :18% :$ .00: 
TOTAL: Skee! 


Wherever :$ .00 : appears, it means that 
you will later be entering data at that location. 
The blank spaces indicate where the results 
of calculations will be displayed, or where a 
comment wasn’t entered. Notice that only the 
first thirty-nine characters in memory are 
displayed, but that by using the arrow keys, 
you can view the entire format. By pressing 
either the right or left arrow keys, the file will 
scroll ten characters either to the right or left. 
The comma and period keys will also move 
right or left, but the file will only move one 
character at a time. 

At this point you may change the column 
and row names or the comments by pressing 
C. Do this only when necessary because the 
computer will recompile all the data when 
you are finished making changes. If every- 
thing is correct, it is time to name your pro- 
gram, and then insert the disk you want your 
program saved to. Once Micro-Calc has fin- 
ished saving the program format, you will be 
asked to reinsert the disk containing Micro- 
Calc. 


ENTERING FORMULAS 


The next procedure is to enter the formulas 
required for the calculations. It is important 
when entering the formulas to remember the 
order of calculation. All calculations are per- 
formed from left to right within a row, and the 
columns are calculated from top to bottom. 
This is especially important if any division is 
performed. To enter data into any of the 
CELLS, simply press the ESCape key and 


enter the row number and column number of 
the cell you wish to use. The symbol [R, C] will 
appear on the screen, with R representing the 
row number and C representing the column 
number you have chosen. This feature will 
also allow you to utilize a previously calcu- 
lated result in another calculation. The for- 
mula for calculation for the first row, fourth 
column in our example would be: (BALANCE 
X %)-MO. PMNT +[1,1]*1.01- [1.3]. To enter 
this, press the ESCape key, 1 then RETURN, 1 
then RETURN, *,1,.,0,1,-,ESC,1, 
RETURN ,3, RETURN, RETURN, and then 
Y. The rest of the calculations used in the 
example are as follows: 


COLUMN 1 
FIFTH ROW-[1, 1]+[2, 1]+[3, 1] 


COLUMN 3 
[1,3}+[2,3]+[3,3] 


COLUMN 4 


FIRST ROW-[1,1]*1.01-[1,3] 
SECOND ROW-[2, 1]*1.005-[2, 3] 

THIRD ROW-[3, 1]*1.015-[3, 3] 

FIFTH ROW-[1,4]+[2,4]+[3,4] 


COLUMN 5 


[1,4]*1.01-[1,3] 
[2,4]*1.005-[2,3] 
[3,4]*1.015-[3,3] 
[1,5]+[2,5]+[3,5] 


COLUMN 6 


[1,5]*1.01-[1,3] 

[2,5]*1.005-[2, 3] 
[3,5]*1.015-[3, 3] 
[1,6]+[2,6]+[3,6] 


As you enter the formulas, you may view 
the model you are constructing by pressing 
CTRL-V. Here again, you may use the arrow 
keys to view the entire file. When finished, 
press the R key and the program will return to 
entering formulas. After the formulas have 
been entered you may review them; note 
however that the symbol [R,C] has been 
replaced by D(R,C) which the computer 
understands as data at that location. At this 
time you may also correct any formulas that 
you have entered incorrectly. 


CUSTOM DATA ENTRY 


When you are satisfied with all the formu- 
las, you will be asked if you want to enter a 
customized data entry format. You do not 
have to use this feature, but it can be very 
helpful, especially if the data you will be 
entering is not in the same sequence as it is 
presented in your model. An example might 
be entering data from a cash register tape. 
You could set up your customized data entry 
format so that you could run down the regis- 
ter tape and type in the numbers you need. 
This would save hunting down the appro- 
priate CELL in your model. To use this fea- 
ture, just enter the row and column numbers 
of the data locations you will be using in the 
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order you want. You can also view the model 
at any time by pressing CTRL-V. After you 
have entered the entire sequence, you may 
view the model and also make any correc- 
tions if you need to. Pressing the S key will 
save the model. If you do not wish to use the 
customized data entry feature, pressing the Q 
key will allow you to continue. 

Micro-Calc will then create the financial 
program into which you will be entering 
data. This is accomplished by writing and 
EXEC’ing atext file. Atthis point the program 
will ask you to reinsert the disk onto which 
you wish to save your model. Press the 
SPACE BAR to continue, and your new pro- 
gram will be written onto the disk under the 
name you have chosen. After Micro-Calc has 
finished writing your new program, it will 
automatically run the new program for you. 


YOUR CUSTOMIZED PERSONAL 
FINANCE PROGRAM 


First the new program will ask you to enter 
data. This can be done in one of five ways: 
1) CUSTOM, 2) BY ROW, 3) BY COLUMN, 
4) RANDOM, or 5) LOAD FILE. With choice 
(1), you may enter the data in the order that 
you previously determined. With choice (2) 
BY ROW, you may enter the data a row ata 
time. Choice (3) BY COLUMN, allows you to 
enter the data a column at a time. Choice (4) 
RANDOM, will allow you to enter the data in 
any order you wish; however, you must spec- 
ify each location as you enter the data. This 
choice is best suited for changing data or 
entering data for small programs. Choice (5) 
LOAD FiLE, cannot be used until you have 
saved a file of data; this will be explained later. 

When entering data, the program uses an 
adding machine format. It will assume two 
places after the decimal point unless you 
enter the decimal point. This is also true for 
calculations and the display. If you are using 
your program for other than accounting pur- 
poses, or you have a situation where you 
require more than two decimal places, you 
may modify the program to your specifica- 
tions. 

After all of the data locations have been 
filled, the program will perform all calcula- 
tions and display the results. If the word 
ERROR is displayed at any of the locations, it 
means that the data calculated for that loca- 
tion is too large to fit into that column. It is 
important to realize at this point that the cal- 
culations will not be 100% accurate. The 
APPLE has difficulty handling very large or 
very small numbers. It also seems to have its 
own set of rules for rounding numbers. 
BEWARE. This will not be a problem in most 
circumstances, especially if simple calcula- 
tions are performed. If you are performing 
complicated calculations or are relying on 
results of calculations for further calculating, 
the final answer may be incorrect. However 
this should be at most a 1% or 2% error. Most 
situations have been accounted for in the 
program by the routines in line 2250 of 
SCRATCH-PAD, but some problems may still 
occur. 


REVIEWING THE FILE 


The entire file can be viewed at this time by 
the use of the arrow keys. Thirty characters 
will be displayed at a time, which is a min- 
imum of three columns. A handy feature of 
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the display is the ability to freeze part of the 
display and still view another part. If you 
press the + key, an asterisk will appear over 
the display. This asterisk may be positioned 
by the use of the + and - keys. Everything 
displayed to the left of the asterisk will be 
frozen on the display. Anything to the right 
can be changed by using the arrow keys. This 
is especially useful if you wish to look at two 
columns at the same time which are not nor- 
mally adjacent to one another. 


MORE OPTIONS 


At this point you have several options avail- 
able. By pressing C, youcan change any data 
you have entered. Pressing Q will end the 
program, while pressing P will allow you to 
print out the display. To do this, you must 
enter the numbers of the first and last 
columns and rows you want printed. The last 
option, chosen by pressing §S, will allow you 
to save all of the data that has been entered 
and calculated. This feature will allow you to 
save your model’s information onto another 
disk if you so choose, or to add a special 
modifier to the name of the file saved. This is 
useful in any situation where you wish to save 
the data and possibly use it or modify it ata 
later time. The Save feature in itself is a very 
useful one because it allows you to update a 
file (without having to reenter all of the data) 
by using the LOAD FILE option the next time 
you run the program. 


HOW IT WORKS 


Micro-Calc is actually composed of five 
separate programs: two machine language 
programs and 3 Applesoft programs. When 
Micro-Calc is run, the first thing that the pro- 
gram does is to set HIMEM to 32510. This to 
protect the information that will be stored in 
memory. The short machine language pro- 
gram, CLEARER, is then run. This program 
clears out the section of memory from $8000 
to $94FF by writing blanks at each location. 
Micro-Calc continues prompting you to enter 
the format of your desired model. This infor- 
mation is made into aseries of strings, one for 
each row. These strings are set up so that 
they will all be the same length. Each string is 
then POKE’d directly into memory, character 
by character. This process allows more effi- 
cient manipulation of this information than 
can be accomplished with Applesoft. This is 
because we can use another machine lan- 
guage program, DISPLAYER, to quickly read 
a section of memory and display it directly 
onto the screen. Once the data in this section 
is verified as correct, itis saved to the disk asa 
binary file. This process is also faster than 
saving the information as strings. 

The rest of the information that you have 
entered in, such as formulas and the names of 
rows and columns, are stored as strings. 
These strings, however, are stored as pro- 
gram lines in the customized finance pro- 
gram. The formulas are stored in a specific 
sequence so that the calculations will be 
done in a predetermined order. All of these 
program strings, plus a series of DOS com- 
mands, are saved as the text file WORKER. 
This file is then EXEC'’ed by the Micro-Calc 
program and: 1) the second Applesoft pro- 
gram, SCRATCH-PAD, is loaded into mem- 
ory, 2) the new program lines are added to it, 
3) the program pauses to let you insert the 
disk you want to save your program to, 4) 
saves the program under the name you've 
chosen, and 5) runs your new program. 


HOW TO MODIFY MICRO-CALC 


Micro-Calc is a complicated program, es- 
pecially since it is actually four programs in 
one. Even though the program is flexible, 
there are some changes that can be imple- 
mented to make it even more useful to you. 
Depending on the type of change you wish to 
make, this could be an easy task or a very 
difficult one. For example, adding more col- 
umns would be relatively easy, but adding 
more rows would be quite difficult. If you 
want to add more columns, just be sure that 
the total length (sum of column widths plus 
boundaries) is less than 255 characters. It 
would also be easy to combine two or more 
columns to form one very wide one. 

A useful feature that was not included with 
this program would be the ability to plot or 
graph the data entered. This could be done 
with a separate program, and would not 
require modification of your accounting pro- 
gram. When you save a file with your book- 
keeping program, all the data that you've 
entered plus all the data that has been calcu- 
lated is saved to a disk in the text file D.[pro- 
gram name][special modifier]. Examine line 
numbers 1210 to 1350 in SCRATCH-PAD to 
see how to read this information. 


HANDLING DATA 


Micro-Calc uses a somewhat unique and 
useful method to handle data. Most of the 
data that is going to be displayed on the 
screen is POKE’d directly into a range of 
memory. Once this is done there are two ways 
of retrieving the information. You can either 
use BASIC to PEEK each memory location 
and read what is stored there, or use a 
machine language program to read the data. 
That is what the machine language program 
DISPLAYER does. What happens is that 
memory locations are read and then stored 
into new memory locations. The trick here is 
that the new memory locations are actually 
the locations where the screen display is 
stored. That is, if you place a character into 
one of these locations it will automatically be 
displayed on the screen without using a print 
command. This is great for displaying infor- 
mation except for three things. The first is 
that the screen is only 40 characters wide, 
while a file in this program can be up to 211 
characters wide. The second is that charac- 
ters are not stored as their ASCII equivalents. 
To display an “A” forexample, you must store 
193($C1) in memory, and not 65($41), the 
normal ASCII value for “A’”. The third prob- 
lem is that a starting point to view the file must 
be determined. This starting point is calcu- 
lated in Applesoft and then POKE'd into 
memory $03. Location $04 is also important if 
you are displaying a split file on the screen. It 
indicates the point on the screen at which the 
display will be “frozen”. Location $03 is read 
by DISPLAYER, and a loop is performed 29 
times (or fewer depending on the value in 
$04) which reads one memory location and 
then stores the value found there into the 
corresponding location to be displayed. If 
you examine the listing for DISPLAYER, it 
may notseem to follow a logical order. This is 
because the screen display locations are 
stored in an interleaving fashion, that is, the 
next line on the screen is not the next memory 
location. 
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CLEARING MEMORY 


Another trick used here is to clear out the 
memory you will be using before reading or 
writing information into it. This is accom- 
plished with the machine language program 
CLEARER. The program clears a section of 
memory from $8000 to $94FF by writing the 
character for aspace ($A0) into each memory 
location. This is also accomplished with a 
loop, and uses a minimal number of com- 
mands. In fact, both of these machine lan- 
guage programs are simple, but they work 
very well. Direct memory storage is a very 
useful trick and could be applied to any 
number of programs that utilize large amounts 
of information that must be displayed. 

It may take you some time and planning to 
set up your personal finance model with 
Micro-Calc, but it is worth the effort. You will 
have a program that is tailored to fit your 
needs, and one that can be saved, printed, 
and changed. Because the accounting pro- 
gram you create with Micro-Calc can stand 
alone, you can have Micro-Calc free to write 
other programs. 


HOW TO ENTER MICRO-CALC: 

Using Micro-Calc requires keying in the five 
programs shown here (two machine language 
and three Applesoft). It is very important that 
you save all five programs onto the same disk. 


First, enter the monitor with CALL -151 and 
key in the DISPLAYER program from the fol- 
lowing listing: 


Save the program with BSAVE DISPLAYER, 
A$7F00, L$ED. 
Next, key in the following program: 


7FOO- 18 A6 04 A4 03 B9 OO 80 7FO0- 18 AO FF AQ AO 99 OO 94 
7F08- 9D,.08 05. "Es C8 EO) 1D 90 7FO8- 99 00 80 99 00 81 99 00 
7F10- F4 18 A6 04 A4 03 BI OO 7F10- 82 99 O00 83 99 00 84 99 
7F18- 81 9D OB O06 B9 OO 82 9D 7F18- 00° ~85 99. 00 686 +99: 00 87. 
7F20- 8B 06 B9 00 83 9D OB 07 7F20- 99 OO 88 99 00 89 99 00 
7F28- BS 00 84 9D 8B 07 B9 O00 7F28- 8A 99 00 8B 99 00 8C 99 
7F30- 85 9D 33 04 B9 OO 86 9D 7F30- 00 8D 99 00 8E 99 00 8F 
7F38- B3 04 B9 00 87 9D 33 05 7F38- 99 00 90 99 O00 91 99 00 
7F40- BS 00 88 9D B3 05 B9 O00 7F40- 92 99 00 93 C8 CO FF 9g0 
7F48- 89 9D 33 06 B9 00 8A 9D 7F48- BC 60 

7F50- B3 06 B9 00 8B 9D 33 07 

7F58- §«B9 00 8C 9D BS O7 BS 00 Save it with BSAVE CLEARER, A$7F00, L$4A. 
7F60- 8D 9D 5B 04 B9 00 8E 9D Now you may key in the Applesoft program 
7F68- DB 04 B9 O00 8F 9D 5B 05 MICRO-CALC save it to disk, and then key in 
7F70- B9 00 90 9D DB 05 Bg 00 and save MICRO-CALC.I|. Thereafter you 
7F78- 91 9D 5B 06 B9 00 92 9D  needonly RUN MICRO-CALC to use the sys- 
7F80- DB 06 B9 00 93 9D 5B 07 tem. 

7F88- B9 00 94 9D DB O07 E8 C8 y 
7F90- EO 1D 90 82 60 8D FF 7F 

7F98- 18 AD 00 CO C9 AO DO F9 

7FAO- AD .10 CO AD FF /7F 60 00 

7FA8- FF AD 40 7D 85 36 AD 41 

7FBO- 18 D8 AS 6A 8D C6 7F 8D 

7FB8- .CDe'7F A5 69 8D C5 7F 8D 

7ECO= CG 7F AO @38 BS 30: 31 “8D 

7hOG=e.DDe.ZF° C8 IBS 380 S31” “BONDE 

?FBO= “7F 418 A2 @0 AQ 7F 65 05 

7FD8- 8D E38 7F 18 BD 28 7E 69 

7FEO=[" “80°9D 00 82 £8 EO OC FO 

7FES- 0S 4C D4 TF 60 





10 REM HARSHER ARERR RRR ERE REEEE 288 IF A$ = CHRS$ (8) THEN VTAB 3: HTAB 1: PRINT WO$;: 
11 REM * MICROCALC * INVERSE : VTAB 4 + I: HTAB 1: PRINT WO$;: NORMAL : 
12 REM * BY STEPHEN BOHN * BS =" ": GOSUB 386:B$ = *": GOTO 268 
13. REM * COPYRIGHT (C) 1982 * 290 IF LEN (BS) = LM THEN IF AS < > CHRS (13) THEN 
14 REM * BY MICRO-SPARC INC * PRINT CHR$ (7);: GOTO 268 
15 REM * LINCOLN, MA. 01773 * 300 IF AS = CHRS (13) THEN 358 
16 REM * ALL RIGHTS RESERVED * 318 BS = BS + A$: GOSUB 388: VTAB 3: HTAB 18 - LEN (BS) 
17) REM 8H HRER EH RER RE RHARHEHHK AREER : INVERSE : PRINT B$;: NORMAL : GOTO 2468 
28 POKE 4,8: HIMEM: 32518 328 = *  ": GOSUB 388: VTAB 3: HTAB 1: PRINT WOS;: VTAB 
25 6 =" 4 + 1: HTAB 1: INVERSE : PRINT * "5: NORMAL 
1 = 1-4: IF 1 ¢ 1 THEN I = 1 
33@ GOSUB 388: VTAB 4 + I: HTAB 1: INVERSE : PRINT * 
"3: NORMAL : VTAB 2: HTAB 18: PRINT " ";: INVERSE 
: VTAB 2: HTAB 18: PRINT I3: NORMAL 
26 REM 225 SPACES BETWEEN QUOTES IN LINE 25 348 BS = "": GOTO 258 
38 PRINT CHRS (4);"BRUN CLEARER": PRINT CHR$ (4) ;"BLO 35@ IF LEN (B%) = LM THEN CL$(1) = BS:BS = "*: GOTO 37 
AD DISPLAYER" 8 
48 DIM LC(21),CL8(21) ,ROS$(21) ,WK(21,21) ,TS8(21) ,CT$(21, 368 CL$(1) = BS + LEFT (WOS,LM - LEN (BS)) 
21) 378 VTAB 3: HTAB 1: PRINT WO$;: HTAB 1: VTAB 4 + I: INVERSE 
50 2% = CHRS (34):Y$ = 2% + CHRS (58) :W0s = * : PRINT CL$(1);: VTAB 4 + 1: HTAB 18: PRINT "-";1j: 
*; REM TEN SPACES NORMAL : NEXT I: NORMAL : GOTO 420 
68 Q8(3) =" *308(4) = * *:08(5) =" ":08(4) = 388 IF LEN (B%) > 2 THEN VTAB 3: HTAB 2@ + I: PRINT MIDS 
* ":08(7) =° ":@$(8) =" ":0$(9) (B$,3,1); 
=-* . 398 IF LEN (BS) > 1 THEN VTAB 2: HTAB 20 + I: PRINT MIDS 
78 D$(3) = ".00":D8(4) = °$.00":D8(5) = "$ .00":D8(6) = (BS,2,1); 
"$ .08°:D8(7) = "S$ .88°:D8(8) = "$ 88" :D8(9) 488 VTAB 1: HTAB 28 + I: PRINT LEFT (B$,1);; RETURN 
="$ 00" 41@ REM --- ROW NAMES --- 
88 REM --- COLUMN WIDTHS --- 428 VTAB 1: HTAB 1: PRINT WO$;WO$: PRINT WOS;WOS: PRINT 
98 TEXT : HOME : POKE 33,41: FOR I = 5 TO 24: VTAB (I): WOs ;WOs 
NTA PATIPRIAT “Silk cess x octecsavnvne "3: NEXT I: POKE 438 BS = "":A$ = “": VTAB 1: HTAB 1: INVERSE : PRINT "HO 
33,48 W MANY ROWS ?"°;: NORMAL :N = 6 
188 VTAB 1: HTAB 1: INVERSE : PRINT “ENTER> COLUMN WIDT 448 GET A%:N = N+ 1: IF A$ = CHRS (13) THEN 478 
H "ss PRINT °1-9 FOR WIDTH ": PRINT "Q TO QUIT 456 IF A$ = CHR$ (8) THEN N = @: GOTO 420 
*: PRINT * : 468 PRINT A$;:BS = BS + AS: IF N < 2 THEN 448 
11@ FOR I = 1 TO 28: VTAB (4 + I): HTAB 1: PRINT " 470 A= VAL (BS): IF A <1 ORA ) 26 THEN 420 
"3: NEXT 1: NORMAL : VTAB 4: HTAB 21: FOR I = 480 VTAB 1: HTAB 1; PRINT WO$;WO$: PRINT WOS;WOS: PRINT 
1 TO 20 WOS:A$ = "";BS = *" 
128 GET AS: IF AS = "Q" AND 1 > 1 THEN 210 498 \VTAB 4: HTAB 11: PRINT * ROW NAME";; FOR XX = 1 TO 
138 IF AS = CHR$ (8) THEN I = I - 1: PRINT A$;: CALL 28: VTAB 4 + XX: HTAB 9 + (XX ¢ 18): PRINT XX;"  °; 
868: IF 1 < 1 THEN I = 1: PRINT * "; : NEXT XX 
14@ IF AS = CHRS (8) AND I < 1 THEN I = 1: PRINT " "; 56@ VTAB 1: HTAB 1: INVERSE : PRINT "ENTER> ROW NAMES 
15@ IF AS = CHR$ (8) THEN 128 ": NORMAL :NR = A: FOR I = 1 TO NR 
168 A = VAL (AS): IF A ¢ 1 THEN 120 518 FX = @ 
178 IF 1 <1 THEN I = 1 528 FOR J = 1 TO 18 
18@ LC(1) = A: PRINT A%;: NEXT I 538 VTAB 4 + I: HTAB 28: GET A$: IF AS = CHRS (13) THEN 
198 VTAB 4: HTAB 28: GET A$: IF A$ = CHR$ (8) THEN FOR RO$(I) = B$:B$ = "": GOTO 6a@ 
I = 1 TO 20:LC(1) = @: GOTO 98 548 IF FX = 1 AND AS ¢ > CHRS (13) THEN PRINT CHRS 
208 IF AS < > CHRS (81) THEN PRINT CHR® (7);: GOTO (7) ++ GATA SRA 
198 558 IF A$ = CHR$ (8) AND BS = "* THEN I = 1 - 1: IF I <¢ 
218 NC = I - 1: VTAB 1: HTAB 1: PRINT WOS;WOS: PRINT WOS 1 THEN I = 1 
jWOS: PRINT WOS ;WOs 568 IF A$ = CHRS (8) AND BS = "" THEN ROS(I) = "": VTAB 
226 REM --- COLUMN NAMES --- 4 + 1: HTAB 11: PRINT WO$;: GOTO 528 
238 VTAB 3: HTAB 20: CALL - 868: INVERSE : VTAB 1: HTAB 578 IF A$ = CHRS (8) THEN BS = "":ROS(I) = "": VTAB 4 + 
1: PRINT “ENTER> COLUMN NAMES": NORMAL : PRINT ° I: HTAB 11: PRINT WO$;: GOTO 520 
*: FOR I = 1 TO NC:K = @: VTAB 3: HTAB 1: PRINT 586 VTAB 4 + I: HTAB 28 - LEN (B$):B$ = BS + A$: PRINT 
wos; BS; 
248 VTAB 2: HTAB 1: INVERSE : PRINT “NAME FOR COLUMN @" 598 NEXT J:FX = 1: GOTO 530 
31;: VTAB 4: HTAB 1: PRINT “COL. NAME “;; NORMAL : VTAB 60@ IF LEN (RO$(I)) = 18 THEN NEXT I: GOTO 630 
3: HTAB 1: PRINT WO$; $18 ROS(1) = LEFT$ (WOS,(18 - LEN ¢(ROS(1)))) + ROSCI): 
258 LM = LC(I):BS = ** NEXT I ; 
268 VTAB 3: HTAB 10: GET AS continued on next page 
278 IF A$ = CHR$ (8) THEN IF BS = "* THEN 320 
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628 
638 


648 


$58 
468 


$78 
688 
6978 


788 
718 
726 


738 


748 


758 


768 
778 
788 
798 
888 
818 
828 
838 


848 


868 
878 


898 


988 

998 

1868 
1918 
1828 
1638 
1648 
1656 
1668 
1676 
1688 


1698 


1166 
1118 
1126 


1130 
1148 


1158 
1168 
1178 
1188 
1198 
1266 


1218 


REM - CHANGE SOMETHING - 
VTAB 1: HTAB 1: PRINT WO$;WOS: PRINT WO$;WO$S: PRINT 
WOS ;WOs > 
INVERSE : VTAB 1: HTAB 1: PRINT “DO YOU WISH TO 

*; PRINT “CHANGE A ROW OR *": PRINT "COLUMN NA 
ME (Y/N) ?";: GET A$: PRINT A$;: IF AS = "N* THEN 7 
18 
IF AS < > *Y" THEN 648 
UTAB 1: HTAB 1: PRINT "CHANGE 1)ROW NAME ": PRINT 
f 2) COLUMN NAME": PRINT * 3)QUIT/ALL OK 
*: PRINT WO$;WOS: VTAB 4: HTAB 1: PRINT “WHICH ? 

";: GET A$: PRINT A$;:A = VAL (AS): IF A ¢ 

1 OR A > 3 THEN 668 
NORMAL : IF A = 3 THEN 718 
BS = "*;: ON A GOSUB 1218,1898 
VTAB 2: HTAB 1: PRINT WO$;WO$;: VTAB 4: HTAB 1: PRINT 
"MORE(Y/N) ?* ;WOS;: VTAB 4: HTAB 11: GET A$: PRINT A 
$;: IF AS = "Y" THEN INVERSE : GOTO 468 
IF AS < > "N* THEN 698 
VTAB 4: CALL - 868 
UTAB 5: HTAB 1: INVERSE : PRINT “C=COMMENT *: PRINT 
*F=FORMULA *: PRINT *D=DATA *; PRINT *<=BKSPACE 
": NORMAL 
POKE 33,28: VTAB 1: HTAB 1: PRINT WOS;WOS ;WOS ;WOS ;W 
OS ;WOS ;WOS ;WOS;: POKE 33,4@: INVERSE : FOR XX = 9 TO 
24: HTAB 1: VTAB XX: PRINT WO%;: NEXT XX: NORMAL 
FOR I = 1 TO 26: VIAB 4 + I: HTAB 9 + (I < 18): PRINT 

;: NEXT I: VTAB 4: HTAB 21: PRINT "123456789812345 
67898" 3: 
POKE 33,41: FOR N = 1 TO NR: FOR M = 1 TO NC: GOSUB 
768: GOSUB 888: GOSUB 938: NEXT M: NEXT N: GOTO 968 


INVERSE : GOSUB 888 

IF FY = @ THEN GOSUB 938 

NORMAL 

VTAB 4 + N: HTAB 28 + M: GET AS 

IF LC(M) < 4 THEN AS = °C" 

IF AS = *C* THEN PRINT AS;:WK(N,M) = 1: RETURN 

IF AS = *F* THEN PRINT AS;:WK(N,M) = 2: RETURN 

IF AS = "D* THEN PRINT AS;:WK(N,M) = 3:ND = ND + 1 
: RETURN 

IF AS = CHRS (8) THEN NORMAL : GOSUB 888: GOSUB 9 
30:M=M—- 1: IF M= @ THENM=NC:N=N- 1: IF N= 
@ THEN RETURN 

REM BACKSPACE 

GOTO 768 

REM --- PRINT ROUTINE --- 
AA = LEN (CL$(M)): IF AA = 6 THEN C1$ = CHRS (32): 
C2$ = Ci$:C3$ = Ci$: GOTO 928 

IF AA = 1 THEN Ci$ = CHRS$ (32):C2$ = Ci$:C3$ = LEFTS 
(CL$(M) ,1): GOTO 928 

IF AK = 2 THEN Ci@ = CHRS (32):C2$ = LEFT$ (CL$(M 
>,1):C38 = RIGHTS (CL$(M),1): GOTO 928 
Cis = LEFTS (CL$(M),1):C28 = MIDS (CL$(M),2,1):C38 

= MIDS (CL$(M),3,1) 

VTAB 1: HTAB 28 + M: PRINT Ci$;: VTAB 2: HTAB 28 + 
M: PRINT C2%;: VTAB 3: HTAB 26 + M: PRINT C3$;: RETURN 


VTAB 4 + N: HTAB 11: PRINT ROS(ND; 

RETURN 

REM --- 1S THIS CORRECT --- 
BS = **: VTAB 1: HTAB 1: PRINT WOS;WOS: PRINT WOS;WO 
s 

VTAB 1: HTAB 1: INVERSE : PRINT “1S THIS CORRECT ?* 
3: NORMAL : GET A$: PRINT A$;: IF AS = *Y* THEN GOTO 
1348 

IF AS < > “*N™ THEN 968 

VTAB 1: HTAB i: PRINT WOS;WOS 

VTAB 1: HTAB 1: INVERSE : PRINT “ENTER COLUMN NO.* 
js NORMAL : GET AS: IF AS = CHRS (13) THEN 1608 

PRINT A$;:BS = AS: GET AS: IF AS = CHRS (13) THEN 
1838 

PRINT AS;:BS = BS + AS 

M= VAL (BS): IF M ¢ 1 ORM > NC THEN 998 

VTAB 2: HTAB 1: INVERSE : PRINT "ENTER ROW NO.";:: 
: NORMAL : GET AS: IF AS = CHRS (13) THEN 1848 
PRINT AS;:B% = AS: GET AS: IF AS = CHRS (13) THEN 
1678 

PRINT AS;:BS = BS + AS 

N= VAL (BS): IF N ¢ 1 OR N > NR THEN 1648 

GOSUB 7468: GOSUB 88@: NORMAL : VTAB 4 + N: HTAB 11 
: PRINT ROS(N);: GOTO 968 

VTAB 1: HTAB 1: POKE 33,28: PRINT WOS;WOS;WOS ;W0S; 
WOS ;WOS ;WOS ;WOS: VTAB 1: HTAB 1: INVERSE : INPUT "E 
NTER COLUMN NO.->";AS: NORMAL :M = VAL (AS): IF M ¢ 
1 OR M > NC THEN 1698 

POKE 33,48: VTAB 2: HTAB 1: PRINT “OLD NAME =";CLS 
(mM) 

VTAB 4: HTAB 1: INVERSE : PRINT "NEW NAME )";: NORMAL 


VTAB 4: HTAB 11: GET AS: IF AS = CHR® (13) THEN VTAB 
1: HTAB 1: PRINT WOS;WOS: GOTO 1180 

VTAB 4: HTAB 18: PRINT " * + BS + AS 

IF A% = CHRS (8) THEN BS = **: VTAB 4: HTAB 11: PRINT 
WO$;: GOTO 1128 

BS = BS + AS: IF LEN (BS) = LC(M) THEN 1178 

GOTO 1128 

VTAB 4; HTAB 11: GET AS: IF AS < > CHRS (13) THEN 
PRINT CHR$ (7);: GOTO 1178 

IF BS = "* THEN RETURN 

IF LEN (BS) = LC(M) THEN CL$(M) = B%: GOSUB 8@@:: 
INVERSE : VTAB 4 + M: HTAB 1: PRINT CL9(M);: NORMAL 
RETURN 

CL$(M) = BS + LEFTS (WO$,LC(M) - LEN (BS)): GOSUB 
888: INVERSE : VTAB 4 + M: HTAB 1: PRINT CL$(M);: NORMAL 
: RETURN 

VTAB 1: HTAB 1: POKE 33,26: PRINT WO ;WOS;WOS;WOS; 

WOS ;WO$ ;WO$ ;WO$;: YTAB 1: HTAB 1: INVERSE : INPUT * 
ENTER ROW NO. -)";A%: NORMAL :N = VAL (A$): IFN < 

1 OR N > NR THEN 1218 
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1228 


1238 


1248 


1258 
1268 


1278 
1288 
1298 


1308 
1318 


1328 


1338 
1348 


1358 
1368 
1378 
1388 


1398 


1406 
1418 
1428 
1438 
1448 
1456 


1466 
1478 


1488 


1496 
1568 
1518 
1528 


1538 


1548 


1558 
1568 


1578 
1588 


1598 


1688 
1618 


1628 


1638 


1648 
1658 


1668 
1678 


1688 


1698 
1788 
1718 


1728 
1738 
1746 
175@ 


1768 
1778 
1788 


1798 


1868 
1818 
1828 
1838 
1848 


POKE 33,48: VTAB 2: HTAB 1: PRINT “OLD NAME =";ROS 
(N) 
VTAB 4; HTAB 1: INVERSE : PRINT "NEW NAME >"; : NORMAL 


VTAB 4: HTAB 11: GET AS: IF AS = CHRS (13) THEN VTAB 
1; HTAB 1: PRINT WO$;WO$: GOTO 1366 

VTAB 4: HTAB 1@: PRINT * * + BS + AS 

IF A$ = CHR (8) THEN BS = **: VTAB 4: HTAB 11: PRINT 
WOs;: GOTO 1248 

BS = BS + AS: IF LEN (BS) = 16 THEN 1298 

GOTO 1248 

VTAB 4: HTAB 11: GET AS: IF AS < > CHRS (13) THEN 
PRINT CHR (7);: GOTO 1298 

IF BS = “* THEN RETURN 

IF LEN (B%) = 18 THEN RO$(N) = B$: GOSUB 938: RETURN 


ROS(N) = LEFT$ (WO$,(1@ - LEN (B$))) + BS: GOSUB 
938: RETURN 

REM --- ENTER COMMENTS --- 

HOME : VTAB 18: PRINT "ONE MOMENT PLEASE.":X = FRE 
(8): HOME 

VUTAB 4: HTAB 12: INVERSE : PRINT “ENTER COMMENTS*: 
NORMAL 

FOR N = 1 TO NR: FOR M = 1 TO NC: IF WK(N,M) = 1 THEN 
1388 

NEXT M: NEXT N:B% = "": GOTO 1528 

VTAB 11: HTAB 8: PRINT *  “: VTAB 11: HTAB 8: PRINT 
N: VTAB 9: HTAB 21: PRINT * *; VTAB 9: HTAB 21: PRINT 
M 

VTAB 18: HTAB 21; PRINT WO$;: VTAB 18: HTAB 21: INVERSE 
: PRINT CL$(M);:XL = LC(M): VTAB 11: HTAB 18: PRINT 
WOS: VTAB 11: HTAB 2@ - LEN (RO$(N)): PRINT ROS(ND 
3: NORMAL 
NN = NiMM = M + 1: IF MM > NC THEN MM = @:NN = 8 

IF WK(NN,MM) = 1 THEN XL = LC(M) + 1 

VTAB 11: HTAB 21 + LEN (BS): GET AS: IF AS = CHRS 
(13) THEN 1478 

IF A$ = CHRS (8) THEN BS = **: VTAB 11: HTAB 28: PRINT 
WOS ;WOS;: GOTO 1426 

IF LEN (BS) < 1 AND AS = CHR (36) THEN PRINT CHRS 
(7)3;: GOTO 1428 

IF LEN (BS) < XL THEN BS = BS + AS: VTAB 11: HTAB 
21: PRINT B%;: GOTO 1428 

PRINT CHRS (7);: GOTO 1428 
CT$(N,M) = B$:B% = “*: VTAB 11: HTAB 21: PRINT WOS: 
IF LEN (CT$(N,M)) > = LC(M) THEN 1498 
CT$(N,M) = CTS(N,M) + LEFTS (WOS,LC(M) - LEN (CTS 
(NM?) 

IF FY = 1 THEN RETURN 

GOTO 1378 

REM --- STORE IN MEMORY --- 

TEXT : HOME : VTAB 8: HTAB 8: INVERSE : PRINT “ 

COMPILING DATA *; VTAB 9: HTAB 8: PRINT “MAY 
TAKE ";: FLASH : PRINT “SEVERAL*;: INVERSE : PRINT 
" MINUTES": NORMAL 

FOR N = 1 TO NR:TS$(N) = CHRS (58): FORM = 1 TO 
NC: IF WK(N,M) = 2 THEN TS$(N) = TSS$(N) + @S<LC(M)) 

+ CHRS (58): GOTO 1588 

IF WK(N,M) = 3 THEN TS$(N) = TSS(N) + DS<LCC(M)) + 
CHR$ (58): GOTO 1588 
NN = N:MM4 = M + 1: IF MM > NC THEN MM = @:NN = 8 

IF LEN (CT$(N,M)) > LC(M) AND WK(NN,MM) = 1 THEN 
TS$(N) = TS$<(N) + CT$(N,M): GOTO 1588 
TS$(N) = TS$(N) + CT$(N,M) + CHRS (58) 

NEXT M: NEXT N:TS$(®8) = CHRS (58): FORM = 1 TON 
C:TS$(@) = TS$(8) + CL$(M) + CHRS (58): NEXT M 
U = LEN (TS$(1)>): POKE 32742,U + 1: FOR 1 = 8 TON 
R: POKE 5,1 + 1:68 = * * + TS$(1): CALL 32688:TSS$(1 
> = *"3 NEXT 

REM --- DISPLAY --- 

TEXT : HOME : INVERSE : VTAB 4: HTAB 11: PRINT WOS 
3WOS ;WOS;: NORMAL : PRINT : POKE 3,1: CALL 32512: FOR 
I = 1 TO NR 

VTAB 4 + I: HTAB 1: PRINT ROS$(1);: NEXT I: NORMAL 
BS = "2° 

VTAB 1: HTAB 1: INVERSE : PRINT "<- OR ¢ SHIFT FIL 
E> OR ->) S = SAVE "3: PRINT " (@ =RESTAR 
T) C = CHANGE ‘;: NORMAL 

IF BS <¢ > "Z* THEN 1618 

VTAB 4: HTAB 11: GET A$: IF AS = CHRS (8) THEN Y = 
¥ «8 


IF AS = CHRS (21) THEN Y = Y - 18 

IF AS = CHRS (68) OR AS = CHRS (44) THEN Y = Y + 
1 

1F At = CHRS (62) OR AS = CHRS (446) THEN Y = Y - 
1 

1F A® = CHRS (83) THEN 1758 

IF A® = CHRS (67) THEN 1778 

IF AS = CHRS (81) THEN PRINT : HOME : VTAB 12::: 


INVERSE : PRINT "TO ERASE CURRENT FORMAT AND RESTA 
RT *;: PRINT "TYPE ’E’ "y: NORMAL : GET BS: IF 
BS = *E* THEN PRINT BS: PRINT CHRS (4);"RUN MICRO 
-CALC* 

IF Y > 255 THEN Y = Y - 255 

IF Y < @ THEN Y = 255 + Y 

POKE 3,Y: CALL 32512: GOTO 1448 : 

VTAB 1: HTAB 1: CALL - 868: VTAB 2: CALL - 868: VTAB 
1: HTAB 9: INVERSE : PRINT "IS ALL INFORMATION CORR 
ECT ?*;: GET A$: NORMAL : PRINT A$;: IF AS = “Y" THEN 
HOME : GOTO 2268 


IF AS ¢ > "N* THEN PRINT CHR (7);: GOTO 1758 
TEXT : HOME ;:BS = °° 

VTAB 1: HTAB 1: INVERSE : PRINT * ENTER NU 
MBER TO CHANGE "3: PRINT "1)COLUMN NAME 2 
)ROW NAME  3)COMMENTS *;: PRINT "4)ALL CORRECT 5 
VIEW FILE "3: NORMAL 

VTAB 4: HTAB 1: INVERSE : PRINT “(CHANGES WILL NOT 
APPEAR ON DISPLAY YET)*;: NORMAL : VTAB 1: HTAB 48 
: GET AS:A = VAL (AS): IF A ¢ 1 OR A > 5 THEN 1790 
PRINT AS; 

1F A = 4 THEN FX = @: GOTO 1528 

FX = 1: ON A GOSUB 1840,1968, 2088, 253@, 2538 


GOTO 1778 

TEXT : HOME : VTAB 1: HTAB 1: INVERSE : INPUT “ENT 
ER COLUMN NUMBER ->";A$: NORMAL :M = VAL (A$): IF 
M «<1 ORM ) NC THEN 1788 


1858 
1868 


1876 


1886 
1898 
1988 
1918 
1928 


1938 
1948 


1958 


1968 


1978 
1988 


1998 


2888 
2018 
2028 
2838 
2048 


2858 
2068 


2878 


2088 
2898 


2188 


2118 
2128 


2138 


2148 
2158 
2168 
2178 
2188 
2198 


2286 
2218 
2228 
2238 
2248 
2258 
2268 


2278 
2288 
2298 
2388 
2318 


2328 
2338 
2348 
2358 


2368 
2378 


2388 
2398 


2488 


2418 
2428 


2438 


2448 
2458 
2468 
2478 
2488 
2496 
2506 


2518 
2528 
2538 


2548 
2558 
2568 
2578 


2588 
25978 


VTAB 2: HTAB 1: PRINT CL$(M) 


VTABR 4: HTAB 1: INVERSE : PRINT “ENTER COLUMN NAME 
—>)"3: NORMAL 

VTAB 4: HTAB 21: GET A$: IF A = CHR (13) THEN 1 
938 

VTAB 4: HTAB 21: PRINT BS + At 

IF A$ = CHR (8) THEN BS = "":; GOTO 1878 
BS = BS + A$: IF LEN (BS) = LC(M) THEN 1928 

GOTO 1878 

VTAB 4: HTAB 21: GET A: IF A% < > CHRS (13) THEN 
PRINT CHR (7);: GOTO 1928 

1F BS = “* THEN RETURN 

IF LEN (B%) = LC(M) THEN CL$(M) = B$:B$ = "": RETURN 
CL$(M) = BS + LEFT$ (WOS,LC(M) - LEN (B$)): RETURN 
TEXT : HOME : VTAB 1: HTAB 1: INVERSE : INPUT “ENT 
ER ROW NUMBER ->";A$: NORMAL :N = VAL (A$): IFN ¢ 
1 OR N > NR THEN 1788 

VTAB 2: HTAB 1: PRINT RO$(N) 

VTAB 4: HTAB 1: INVERSE : PRINT “ENTER ROW NAME -) 
“5: NORMAL 

VTAB 4: HTAB 18: GET AS: IF A$ = CHRS (13) THEN 2 
658 

VTAB 4: HTAB 18: PRINT BS + AS 

IF A$ = CHRS (8) THEN BS = “": GOTO 1998 
BS = BS + AS: IF LEN (BS) = 18 THEN 2048 

GOTO 1990 

VTAB 4: HTAB 21: GET A$: IF AS < > CHRS (13) THEN 
PRINT CHR (7);: GOTO 2040 

IF BS = "* THEN RETURN 

IF LEN (BS) = 18 THEN RO$(N) = B$:B% = ""; RETURN 
ROS(N) = LEFT$ (WO$,(18 - LEN (B$))) + BS: RETURN 
TEXT : HOME 

VTAB 1: HTAB 1: INVERSE : INPUT “ENTER ROW NUMBER 
—>";AS:N = VAL (AS): IF N ¢ 1 OR 'N > NR THEN 1788 
VTAB 2: HTAB 1: INPUT “ENTER COLUMN NUMBER ->" ;A$: 
M= VAL (A$): IF M ¢ 1 ORM > NC THEN 1788 

IF WK(N,M) < > 1 THEN RETURN 

VTAB 18: HTAB 1; PRINT "OLD COMMENT ->";: NORMAL : 
PRINT CT$(N,M): INVERSE 

VTAB 5S: HTAB 1: PRINT RO$(N);: VTAB 4: HTAB 12: PRINT 
CL$(M);: NORMAL :BS = °° 
NN = N:MM = M + 1: IF MM > NC THEN MM = @:NN = @ 
LX = LC(M): IF WK(NN,MM) = 1 THEN LX = LX + 1 

VTAB 5: HTAB 12 + LEN (B%): GET AS 

VTAB 5: HTAB 12: PRINT BS + AS 

IF AS = CHR (13) THEN 2248 

IF AS = CHRS (8) THEN BS = **: VTAB 5: HTAB 12: PRINT 
WOS;: GOTO 2168 
BS = BS + AS: IF LEN (BS) = LX THEN PRINT CHR ¢ 
7);: GOTO 2228 

GOTO 2148 

VTAB 5: HTAB 13 + LX: GET A$: IF AS = CHRS (8) THEN 
BS = "": UTAB 5: HTAB 13: PRINT WO$;WOS;: GOTO 2168 
IF A$ ¢ > CHRS (13) THEN PRINT CHR$ (7);: GOTO 
2228 

IF LEN (BS) ¢ LX THEN CT$(N,M) = BS + LEFTS (WOS 
,LX - LEN (BS)): RETURN 
CT$(N,M) = BS: RETURN 

HOME :BS = "*: VTAB 1: HTAB 1: INVERSE : PRINT " 

ENTER NAME OF FILE "s: NORMAL : PRINT 

spe: 

VTAB 2: HTAB 4: PRINT CHRS (68) + CHRS (45) 

VTAB 1: HTAB 1: GET AS 

IF A% = CHRS (13) THEN 2368 

IF @&% = CHRS (8) THEN BS = “": GOTO 2268 

VTAB 2: HTAB 3: PRINT BS + AS + CHRS (468) + CHRS 
(45) 
BS = BS + AS: IF LEN (B%) > 18 THEN PRINT CHRS ¢ 
7);: GOTO 2348 

GOTO 2288 

PRINT : PRINT "USE 18 CHARACTERS OR LESS !": VTAB 
1: HTAB 1: GET AS: IF AS = CHRS (8) THEN BS = **: GOTO 
2268 

IF A$ < > CHR (13) THEN PRINT CHR (7);:BS = 
*"*; GOTO 2268 

1F BS = "* THEN 2280 

VTAB 6: PRINT “PLEASE INSERT DISK THAT YOU ARE SAV 
ING"; INVERSE : PRINT B$;: NORMAL ; PRINT * ONTO": PRINT 
: INVERSE : VTAB 9: HTAB 8: INPUT "PRESS RETURN WHE 
N READY" ;A$: NORMAL 

PRINT : PRINT CHR$ (4);"BSAVE DISPLAYER"; CHRS (4 
4);"AS7FG6"; CHRS (44); "L$ED" 
NM$ = BS: PRINT A$;: PRINT : PRINT CHR (4);"BSAVE 

.";NM$; CHRS (44) ;°A32768"; CHR$ (44) ;"L5376" 

HOME : VTAB 6: HTAB 8: PRINT “PLEASE REINSERT DISK 
ETTE’: VTAB 7: HTAB 8: PRINT “CONTAINING °;: INVERSE 
: PRINT *MICRO - CALC" 

FOR 1 = 1 TO 4: PRINT CHRS (7);: NEXT 1 

INVERSE : VTAB 9: HTAB 8: INPUT "PRESS RETURN WHEN 
READY" ;A$: NORMAL 

TEXT : HOME : VTAB 12: HTAB 15: INVERSE : PRINT °S 
AVING DATA": NORMAL 

PRINT : PRINT CHR® (4) ;"OPEN TEMP-FILE* 

PRINT CHRS (4);°WRITE TEMP-FILE* 

PRINT NR: PRINT NC: PRINT NMS 

FOR 1 = 1 TO NC: PRINT LC(1): NEXT I 

FOR I = 1 TO NR: PRINT ROS(1): NEXT I 

FOR 1 = 1 TO NC: PRINT CL$(1): NEXT ! 

FOR N = 1 TO NR: FOR M = 1 TO NC: PRINT WK(N,M); NEXT 
M: NEXT N 

PRINT CHR$ (4);*CLOSE TEMP-FILE" 

PRINT CHR$ (4);"RUN MICRO-CALC.11" 

TEXT : HOME : INVERSE : VTAB 4: HTAB 11: PRINT WOS 
;WOS ;WO$;: NORMAL : PRINT : POKE 3,1: CALL 32512: FOR 
I = 1 TO NR 

VTAB 4 + 1: HTAB 1: PRINT RO$(1);: NEXT J: NORMAL 
VYTAB 1: HTAB 1: INVERSE : PRINT *<- OR ¢ SHIFT FIL 
E > OR’ =) R = RESUME *;: NORMAL 

VTAB 4: HTAB 11: GET AS 

1F A$ = CHRS (8) THEN Y = Y + 18 

IF A$ = CHRS (21) THEN Y = Y - 1@ 

IF A$ = CHRS (68) OR AS = CHRS (44) THEN Y = Y + 


386 
398 
408 
418 


420 
438 


IF A$ = CHR® (62) OR AS = CHRS (46) THEN Y = Y - 
1 

IF A$ = CHR® (82) THEN L2 = 1:L2% = BS: RETURN 
IF Y > 255, THEN ¥.= Y -—.255 

IF Y < @ THEN Y = 255 + Y. 

POKE 3,¥; CALL 32512: GOTO 2568 


REM HEE HREHREE HEE HER HEEHHERE 
REM * MICRO-CALC.11 
REM * BY STEVEN BOHN 
REM * COPYRIGHT (C) 1982 
REM * BY MICRO-SPARC INC 
REM * LINCOLN, MA. 61773 
REM JERE 
ONERR GOTO 2066 
POKE 4,8; HIMEM; 32510 
DIM LC(21) ,CL$¢21) ,ROS(21) ,WK¢ 21,21) ,TS$(21) ,FS(21,2 
1) ,CC$(188) 
wos = ° "“: REM TEN SPACES 
PRINT : PRINT CHRS (4);"OPEN TEMP-FILE" 
PRINT CHR (4);"READ TEMP-FILE* 
INPUT NR: INPUT NC: INPUT NM 
FOR I = 1 TO NC: INPUT LC(I): NEXT I 
FOR I = 1 TO NR: INPUT RO$(1): IF LEN (RO$(I)) ¢ 1 
@ THEN RO$(I) = LEFT (WO$,1@ - LEN (ROS$(1))) +R 
0$(1) 
NEXT 1 
FOR I = 1 TO NC: INPUT CL$(1); IF LEN (CL$4(1)) ¢L 
C(1) THEN CL$(1) = LEFT% (WO$,LC(1) - LEN (CL$(1) 
>») + CLE(1) 
NEXT I 
FOR N = 1 TO NR: FOR M = 1 TO NC: INPUT WK(N,M): NEXT 
M; NEXT N 
PRINT CHR$ (4);"CLOSE TEMP-FILE": PRINT CHRS® (4); 
“DELETE TEMP-FILE* 
REM ==~- BUILD SAVE FILE, === 
Z$ = CHRS (34):¥$ = 2% + CHRS (58):LN = 16008:CC = 
CC + 1:A% = “10888":CC$(CC) = AS + “REM --- DATA -- 
= = CC + 1:LN = LN + 1:A$ = STR (LN) 
FOR N = 1 TO NR: FOR M = 1 TO NC: IF WK(N,M) 
HEN ND = ND + 1 
NEXT M: NEXT N 
CC$(CC) = AS + "NR="* + STRS (NR) + CHRS (58) + "NC 
=" + STR$ (NC) + CHRS (58) + "ND=" + STR$ (ND) + 
CHR$ (58) + "NM$="_+ CHRS (34) + NMS + CHRS (34) 


eo OK OK OK 


cc = CC + 1;LN = LN + 1:A% = STR$ (LN) 

CC$(CC) = AS + "ROS(1)="_+ Z$ + ROS(1) + YS + *ROS(2 
=" + 2% + RO$(2) + Y$ + "ROS(3)=" + 2$ + ROS(3) + 
Y$ + *ROS(4)=" + 72% + ROS(4) + YS + *ROS(S)=" + ZS + 

ROS(S) + 2% 

CC = CC + 1:LN = LN + 1:A$ = STRS$ (LN) 

CC$(CC) = AS + "ROS(6)=" + Z2$ + ROS(S) + YS + "ROS(7 
d=" + 2% + ROS(7) + YS + "ROS(B)=" + Z$ + ROS(B) + 
Y$ + "ROS(Z)=" + 2% + ROS(D) + YS + *ROBC1B)=" + 29 

+ ROS(1@) + 2% 

cc = CC + 1:LN = LN + 1:A$ = STRS (LND 

CC$(CC) = AS + "ROS(11)=" + Z2$ + ROS(11) + YS + “ROS 
(12)=" + 2% + RO$(12) + YS + *ROS(13)=" 4+ Z$ + ROSC 
13) + Y$ + *RO$(14)=" + Z$ + ROS(14) + YS + “ROSCIS 
=" + 2% + ROS(15) + 2% 

cc = CC + 1:LN = LN + 1:A% = STR (LN) 

CC$(CC) = AS + "ROS(16)=" + 2% + ROS(I16) + YS + "ROS 
(17)=" + 2% + ROB(17) + YS + "ROS(18)=" + Z$ + ROSK 
18) + Y$ + "ROSC1M)=" + 2% + ROS(19) + YS + "ROS(20 
d=" + 2% + ROS(28) + 2% 

cc = CC + 1:LN = LN + 1:A$ = STR® (LN) 

CC$(CC) = AS + "CLE$(1)=" + 2% + CLE(1) + YS + *CLEC2 
d=" + 2% + CL$(2) + YS + "CLE$(3)=" + 28 + CLE(3) + 
YS + "CL$(4)=" + 2% + CL9(4) + YS + "CLO(S5)=" + 23 + 
CL$(5) + 2% 

CC = CC + 1:LN = LN + 1:A$ = STRS (LN) 

CC$(CC) = AS + "CLO(6)=" + 2% + CLES) + YS + *CLEC7 
=" + 26 + CL$(7) + YS + "CL$(8)=" + 2% + CLS(8) + 
Y$ + "CLOC9)=" + 2% + CL9C9) + YS + "CLE(18)=" + 2$ 

+ CL$(1@) + 2% 

cC = CC + 1:LN = LN + 1:A% = STRS (LN) 

CC$(CC) = AS + *CLE(11)=" + Z$ + CLOC11) + YS + “CLE 
(12)=" + 26 + CLE(12) + YS + "CLO(13)=" + Z$ + CLOC 
13) + YS + "CL9(14)=" + 2% + CL9C14) + YS + "CLEC15 
d=" + 2% + CL$(15) + 2% 

cc = CC + 1:LN = LN + 1:A$ = STR (LN) 

CC$(CC) = AS + "CLE(16)=" + 2% + CL9C16) + YS + "CLO 
(17)=" + 2% + CLE(17) + YS + "CLE(1B)=" + ZS + CLEC 
18) + Y$ + "CLEC19)=" + 2% + CL9(19) + YS + “CLO(28 
=" + 2% + CL$(28) + 2$ 

CC = CC + 1:LN = LN + 1:A$ = STRS (LN): CCS(CC) = AS 

+ " RETURN" :FX = @ 

cc = CC +1 
REM --- ENTER FORMULA --- 

X = FRE (@) 


FOR N = 1 TO NR: FOR M = 1 TO NC: IF WK(N,M) = 2 THEN 
430 

HOME : NEXT M: NEXT N: GOTO 998 

HOME : INVERSE : VTAB 2: HTAB 4: PRINT * EN 
TER FORMULA "; VTAB 3: HTAB 4: PRINT * E 


SCAPE TO ENTER ROW/COLUMN ": VTAB 4: HTAB 4: PRINT 
"RETURN WHEN DONE--CTRL-V TO VIEW": NORMAL : POKE 3 
4,5 

VTAB 6: HTAB 6: PRINT "FORMULA FOR ROW ";N;" , COLU 
MN "GM 

IF DF = 1 THEN VTAB 13: HTAB 1: INVERSE : PRINT ‘O 
LD FARMULA";: NORMAL : PRINT " = ";F$(N,M) 

VTAB 8: HTAB 12: INVERSE : PRINT CL$(M): VTAB 18: HTAB 
11 - LEN (RO$(N)): PRINT ROS(N): NORMAL :BS = "" 
IF LZ = 1 THEN LZ = 6:B% = L2$:L2$ = “" 

VUTAB 10: HTAB 12: PRINT B$;: GET AS 


IF A$ = CHR$ (13) THEN 578 

IF AS = CHR% (22) THEN GOSUB 868: GOTO 430 

IF A$ = CHR$ (27) THEN 648 

IF AS = CHR$ (8) THEN BS = "":C$ = **: HOME : GOTO 
440 

IF A$ = CHRS (94) THEN 550 


continued on next page 
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548 A= ASC (As): IF A < 48 ORA > 62 ORA = 44 ORA= 


58 OR A = 5S? OR A = 61 THEN 488 


558 BS = BS + AS: IF LEN (8%) > 288 THEN BS = “":C$ = “ 


*; HOME : GOTO 448 


568 C$ = C$ + AS: GOTO 486 


578 
588 


598 
588 
618 


$28 
638 
648 


658 
668 


678 
688 


698 
788 
718 


728 
738 


748 


1688 
1018 
1626 
1638 
18632 


1048 
1658 


1666 


1876 
1688 
1698 
1168 
1118 


1126 
1138 
1148 


1156 
1168 
11786 


1188 


IF BS = "" THEN 488 

VTAB 16: HTAB 11: INVERSE : PRINT "IS THIS CORRECT 
2?";: NORMAL : GET A$: IF AS = "Y" THEN FS(N,M) = CS 
CO. = °" 2 ROME 

IF AS = "Y* THEN IF FX = 1 THEN RETURN 

IF AS = "Y" THEN 428 

IF A$ = "N" THEN BS = *":C$ = BS:D$ = BS: VTAB 16: HTAB 
11: PRINT WO$;WO$: VTAB 18: HTAB 12: CALL - 958: GOTO 
480 

PRINT CHR® (7);: GOTO 588, 

REM -- GET ROW & COLUMN -- 

VTAB 15: HTAB 1: INVERSE : PRINT "ENTER ROW NUMBER" 

+: NORMAL : PRINT WO$;: VTAB 15: HTAB 17: GET AS: IF 
AS = CHRS (81) THEN 858 

IF A$ = CHRS (13) THEN PRINT CHRS (7);: GOTO 648 


DS = AS: PRINT A$;: GET AS: IF AS = CHRS (81) THEN 
85e 

IF AS = CHRS (8) THEN DS = *":AS = **: GOTO 648 

IF AS = CHRS (13) THEN D = VAL (D$): IF D < 1 THEN 
PRINT CHR# (7);: GOTO 648 

IF AS = CHRS (13) THEN 738 

DS = DS + AS: PRINT AS; 

GET AS: IF AS = CHRS (8) THEN DS = **:AS = **: GOTO 
648 

IF A$ < > CHRS (13) THEN PRINT CHRS® (7);: GOTO 
718 

D = VAL (D8): IF D < 1 OR D > 2@ THEN PRINT CHRS 
<7)3: GOTO 548 

UTAB 16: HTAB 1: INVERSE : PRINT “ENTER COLUMN NUMB 
ER*;: NORMAL : PRINT WO$;: VTAB 16: HTAB 28: GET AS 
: IF AS = CHRS (81) THEN 858 

IF AS = CHRS (13) THEN PRINT CHRS (7);: GOTO 748 


DOS = AS: PRINT AS;: GET AS: IF AS = CHRS (81) THEN 
85e 

IF AS = CHRS (8) THEN DS = *":AS = *": GOTO 748 

IF AS = CHRS (13) THEN E = VAL (DS): IF E < 1 THEN 
PRINT CHRS (7);: GOTO 748 

IF AS = CHRS (13) THEN 83@ 

DS = DS + AS: PRINT AS; 

GET AS: IF AS = CHRS (8) THEN DS = *":AS = "": GOTO 


IF AS < > CHRS (13) THEN PRINT CHRS (7);: GOTO 


E= VAL (DS): IF E < 1 OR E > 2@ THEN PRINT CHRS 
(7);3: GOTO 748 

DS = **:AS = CHRS (91) + STRS (D) + CHRS (44) + STR 
CE) + CHRS (93):BS = BS + AS:ES = CHRS (68) + CHRS 
(48) + STR® (D) + CHRS (44) + STRS (E) + CHRS ¢ 
41):C$ = C$ + ES 

VTAB 15: HTAB 1: CALL - 958: VTAB 1@: HTAB 12: PRINT 
BS: GOTO 488 

TEXT : HOME : INVERSE : VTAB 4: HTAB 11: PRINT WOS; 
WOS ;WOS;: NORMAL ;: PRINT : POKE 3,1: CALL 32512: FOR 
1 = 1 TO NR 

VTAB 4 + I: HTAB 1: PRINT ROS(1);: NEXT 1: NORMAL 
VTAB 1: HTAB 1: INVERSE : PRINT “<- OR ¢ SHIFT FILE 
> OR -> R = RESUME *;: NORMAL 

VTAB 4: HTAB 11: GET AS 

IF AS = CHRS (8) THEN Y = Y + 18 

IF AS = CHRS (21) THEN Y = Y - 18 

IF AS = CHRS (48) OR AS = CHRS (44) THEN Y = Y + 


1 

IF AS = CHRS (62) OR AS = CHRS (46) THEN Y = Y - 
1 

IF AS = CHRS (82) THEN LZ = 1:L2% = BS: RETURN 
IF Y > 255 THEN Y = Y - 255 

IF Y < 8 THEN Y = 255 + Y 

POKE 3,Y: CALL 32512: GOTO 8986 
REM --- REVIEW FORMULAS --- 

BS = **: TEXT : HOME : VTAB 12: HTAB 1: INVERSE : PRINT 
"DO YOU WISH TO REVIEW FORMULAS ?°;: NORMAL : GET A 
$: IF AS < > *Y* THEN 1118 
FOR N = 1 TO NR: FOR M = 1 TO NC 

IF WK(N,M) = 2 THEN 1638 

NEXT M: NEXT N: GOTO 1118 

TEXT : HOME : VTAB 5: HTAB 21: PRINT “COLUMN #°;M 
INVERSE : VTAB 6: HTAB 21: PRINT CL9(M);: NORMAL : 
VTAB 7: HTAB 1: PRINT “ROW #*;N;° “;: INVERSE : PRINT 

ROS(N);: NORMAL 
VTAB 7: HTAB 21: PRINT F$(N,M) 

TEXT : VIAB 22: HTAB 3: PRINT “(PRESS ‘Q’ TO QUIT, 
“C’ TO CHANGE)";: GET AS: IF AS = CHRS (13) THEN 

1626 

IF A® = *Q* THEN FOR N= 1 TO 2: NEXT N: FORM = 

1 TO 2: NEXT M: HOME : VTAB 18: PRINT “PRESS RETURN 
TO QUIT,": PRINT “ANY OTHER KEY TO REVIEW/CHANGE® ; 
: GET BS: PRINT BS: IF BS <¢ > CHRS (13) THEN HOME 
: GOTO 1088 

IF BS = CHRS (13) THEN 1238 

IF AS = "C* THEN 1118 

PRINT CHRS (7);: GOTO 1658 

REM --- CHANGE FORMULA --~ 

TEXT : HOME : INVERSE : VTAB 3: HTAB 11: PRINT “HI 

T (R) TO REVIEW": NORMAL : VTAB 1: HTAB 1: PRINT *D 
0 YOU WISH TO CHANGE A FORMULA ? *;: GET AS: IF AS = 
*"N* THEN FOR N = 1 TO.2: NEXT N: FOR M = 1 TO 2: NEXT 
M: GOTO 1238 
IF AS = “R* THEN 996 
IF AS ¢ > *Y* THEN 1118 
FX = 1: HOME : HTAB 11: PRINT “(PRESS ‘Q’ TO QUIT)" 
: PRINT : INPUT “ENTER ROW NUMBER ->* ;NS 
IF LEFTS (N$,1) = °Q* THEN 998 
N= VAL (NS): IF N ¢ 1 OR N > NR THEN 1148 
HOME : HTAB 11: PRINT *<PRESS ‘Q’ TO QUIT)": PRINT 
: INPUT "ENTER COLUMN NUMBER —>* ;N% 

IF LEFT$ (N$,1) = *Q* THEN 978 
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1198 
1268 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 
1368 
1318 
1328 


1338 


1348 
1358 


1368 
1378 
1388 
1398 
1488 
1418 
1428 


1438 
1435 


1448 


1458 
1468 
1478 
1488 


1498 
1568 


1518 
1528 


1538 
1548 


1558 
1568 
1578 
1588 


1598 
1608 


1618 
1628 


1638 
1648 


1658 


1668 


1678 
1688 
1698 
1768 
1718 
1728 
1738 


1748 
1742 


1758 
1768 


1778 
1788 


1798 
1795 


1868 
1818 


1826 


M = VAL (NS): IF M ¢ 1 OR M > NC THEN 1178 
1F WKCN,M) < > 2 THEN 1148 
DF = 1: GOSUB 430:FX = @:DF = @; GOTO 1118 
REM --- BUILD DATA --- 
HOME : VTAB 12: HTAB 13: INVERSE : PRINT "SAVING F 
ORMULAS*: NORMAL 
CC$(CC) = STR$ (1168@) + “REM--- FORMULAS ---":CC = 
cc +1 
FOR M = 1 TO NC 
CC = CC + 1:LN = 11808 + (188 * M):AS = STRS (LN) 
CC$(CC) = AS + "REM--- NO DATA ---* 
FOR N = 1 TO NR 
IF F$(N,M) = ** THEN NEXT N: GOTO 1338 
BS = "F(" + STR (N) + CHRS (44) + STR (M) + CHRS 
(41) + CHRS (61) + FS(N,M) 
IF LEN (A$) + LEN (BS) < 288 THEN AS = AS + BS + 
CHR$ (58):CC$(CC) = A$: NEXT N: GOTO 1338 
CC$(CC) = A$:CC = CC + 1:LN = LN + 1:AS = STRS (LN 
>) + BS + CHRS (58):CC$(CC) = A$: NEXT N 
CC = CC + 1:LN = LN # 1:CC$(CC) = STR® (LN) + “RET 
URN": NEXT M: FOR M = 1 TO NC: FOR N = | TO NR:FS(N 
yM) = "*: NEXT Ns NEXT M:X = FRE (8): GOSUB 1358: GOTO 
1928 
REM --- CUSTOM DATA --- 
HOME :FX = @:CC = CC + 1:LN = LN + 1:ND = @: FOR N 
= 1 TO NR: FORM = 1 TO NC: IF WK(N,M) = 3 THEN ND 
= ND + 1 
NEXT M: NEXT N: DIM DFS(ND + 11):NE = 5 
TEXT : HOME : HTAB 2: INVERSE : PRINT * ENTER 
CUSTOM DATA SEQUENCE *: YTAB 2: HTAB 2: PRINT ‘Q@ 
=QUIT R=RESTART CTRL-V=VIEW FILE* 
VTAB 3: HTAB 2: PRINT ° <- MOVE DATA -> 
": NORMAL 
VTAB 4: CALL - 958:NE = NE + J: IF NE > ND + S THEN 
1658 
FOR 1 = - 5 TO 5S: IF DFS(NE + 1) <¢ > ** THEN HTAB 
15: VTAB 13 + I: PRINT NE - 5 + 15°)" ;DFS<(NE + 1); 
NEXT I: VTAB 13: HTAB 8: PRINT “ROW -> "3: INVERSE 
: PRINT NE - 5;")*;: NORMAL : PRINT DF$(NE);: VTAB 
13: HTAB 25; PRINT "<- COLUMN® 
IF DFS(NE) = ** THEN 1448 
INVERSE : VTAB 14: HTAB 1 
PRINT RO$( VAL ( LEFT$ (DFS(NE),2)));: VTAB 14: HTAB 
28; PRINT CL$( VAL ( RIGHTS (DFS(NE),1)) + 18 # VAL 
( MIDS (DFS$(NE), LEN (DFS(NE)) - 1,199); 
NORMAL : VTAB 5: HTAB 1: PRINT * 
*;: YVTAB S: HTAB 1: PRINT “ENTER ROW NUMBER 
3: GET AS 
IF A% = "Q* THEN RETURN 
IF AS = "R* THEN NE = 5: GOTO 1398 
IF &% = CHRS (22) THEN GOSUB 86@:NE = NE - 1: GOTO 
1378 
1F AS = CHRS (8) THEN NE = NE - 2: IF NE ¢ 5 THEN 
NE = 5: GOTO 1398 
1F A% = CHRS (8) THEN 1398 
IF AS = CHRS (21) THEN IF DFS(NE) < > °* THEN 1 
398 
IF VAL (AS) ¢ 1 THEN 1448 
PRINT A%;: INPUT *";8%:8% = AS + BS:B = VAL (BS): 
IF B < 1 OR B > 2@ THEN 1448 
N=8 
VTAB 5S: HTAB 1: PRINT “ENTER COLUMN NUMBER ";: GET 
As 
IF AS = *Q* THEN RETURN 
IF AS = "R* THEN NE = 5: GOTO 1398 
IF &% = CHRS (22) THEN GOSUB 848:NE = NE - 1: GOTO 
1378 
IF A$ = CHRS (8) THEN NE = NE - 2: IF NE ¢ 5 THEN 
NE = 5: GOTO 1398 
IF AS = CHRS (8) THEN 1398 
IF AS = CHRS (21) THEN IF DFS(NE) < > ** THEN 1 
398 
IF VAL (AS) ¢ 1 THEN 1448 
PRINT A$;: INPUT °";88:8% = AS + BS:B = VAL (BS): 
IF B < 1 OR B > 20 THEN 1548 
M = B: IF WK(N,M) < > 3 THEN 1448 
DFS(NE) = STRS (N) + CHRS (44) + STRS® (M): GOTO 
1398 
VTAB 22: HTAB 1: PRINT "DONE, PRESS “S’ TO SAVE OR 
(- -) TO VIEW*;:NE = 5 
GET AS: IF AS = "S* THEN PRINT AS;: HOME : INVERSE 
: VTAB 1@: HTAB 5: PRINT “SAVING CUSTOM DATA SEQUEN 
CE*: VIAB 11: HTAB 5S: PRINT "MAY TAKE SEVERAL MI 
NUTES*: NORMAL : GOTO 1818 
VTAB 3: HTAB 2: FLASH : PRINT “S=SAVE";: VTAB 3: HTAB 
29: PRINT *C=CHANGE";: NORMAL 
VTAB 4: CALL - 958 
IF AS = "R* THEN NE = 5: GOTO 1398 
1F A® = CHRS (8) THEN NE = NE - 1: IF NE <¢ 6 THEN 
NE = ND + 5 
IF AS = CHRS (44) OR AS = CHRS (68) THEN NE = NE 
~ 18: IF NE < 6 THEN NE = ND 
IF A® = CHRS (21) THEN NE = NE + 1; IF NE > ND + 
5S THEN NE = 6 
IF AS = CHRS (46) OR AS = CHR (62) THEN NE = NE 
+ 10; IF NE > ND + 5 THEN NE = 11 ' 
IF A® = CHR (22) THEN GOSUB 848: HOME : HTAB 2 
INVERSE : PRINT * ENTER CUSTOM DATA SEQUENCE 
*: HTAB 2: PRINT "Q=QUIT R=RESTART CTRL-V=VIEW 
FILE": HTAB 2: PRINT * <- MOVE DATA -)> 
“; NORMAL : GOTO 1678 
IF AS = "C* THEN 1850 
FOR 1 = - 5 TO 5: IF DFS(NE + 1) < »> ** THEN HTAB 
15: VTAB 13 + I: PRINT NE - S + 13°)" ;DFS(NE + 1); 
NEXT I: VTAB 13: HTAB 8: PRINT “ROW -> "3: INVERSE 
: PRINT NE - 5;")";: NORMAL : PRINT DF$(NE);: VTAB 
13: HTAB 25: PRINT "<- COLUMN" 
IF DF$(NE) = ** THEN 1888 
INVERSE : VTAB 14: HTAB 1 
PRINT ROS( VAL ( LEFT$ (DF$(NE),2)));: VTAB 14: HTAB 
28: PRINT CL$( VAL ( RIGHTS (DF$(NE),1)) + 18 *# VAL 
( MIDS (DFS(NE), LEN (DFS(NE)) - 1,1))); 
NORMAL : GOTO 1668 
NE = 5:CD = @:CC$(CC) = STR (LN) + “DATA *: FOR 1 
=6TOND+ 5 
CD = CD + 1: IF CD < 44 THEN CC$(CC) = CC$(CC) + DF 
$(1) + CHR (44): NEXT 1: RETURN 


183@ CC$<CC) = CC$(CC) + DF$(1):CC = CC + 1:LN= LN + 1; 


CC$(CC) 


STR$ (LN) + "DATA ":CD = @ 


1848 NEXT I: RETURN 

185@ VTAB S: HTAB 1: PRINT ‘ENTER STEP NUMBER, ROW, COL 
UMN ": INPUT “ENTER -)";A$,B$,C$:A = VAL (A$):R = 
VAL (B$):C = VAL (C$) 


1868 IF A > ND THEN 1488 

1878 IF R > NR THEN 14688 

1886 IF C > NC THEN 1688 

1898 IF WKCR,C) < > 3 THEN 1688 

1908 DFS(A + 5S) = STRS (R) + CHRE (44) + STR (C): GOTO 
1688 

197@) REM) <=-- SAVE TO DISK === 


1928 TEXT : HOME : NORMAL 
193@ VTAB 12: HTAB 5S: PRINT "NOW WRITING AND SAVING :* 


1932 
1 
1948 


1958 


INVERSE : VTAB 14: HTAB 5S: PRINT NM$; NORMAL : VTAB 
6; HTAB 5S: PRINT "MAY TAKE SEVERAL MINUTES" 

PRINT CHR (13) + CHRS (4);"OPEN WORKER": PRINT 
CHRS (4) ;"DELETE WORKER" 

PRINT CHRS (4);"OPEN WORKER": PRINT CHRS (4) ;"WR 


ITE WORKER® 


1968 PRINT “LOAD SCRATCH-PAD* 

1978 PRINT "TEXT" 

1986 FOR 1 = 1 TO CC: PRINT CC$(1): NEXT I: PRINT "HOME 

1998 PRINT “PRINT" + CHR (34) + “PLEASE INSERT THE DI 
SKETTE THAT YOU ARE SAVING YOUR PROGRAM ONTO" + CHRS 
(34) 

2086 PRINT “PRINT® + CHRS (34) + "PRESS THE >>)>>SPACE 
BAR<<<<{ WHEN READY* + CHR$ (34): PRINT "CALL 326 
61" 

2018 PRINT "SAVE" ;NMS 

2628 PRINT “RUN* 

2038 PRINT CHRS (4);"CLOSE WORKER* 

2848 PRINT CHR$ (4); "EXEC WORKER" 

2658 END 


2068 A= PEEK (222):B = PEEK (218) + PEEK (219) # 256 


1 
2078 


IF A = 9 THEN HOME : PRINT CHR (7);: VTAB 18: FLASH 
PRINT “DISK FULL - PLEASE USE ANOTHER": NORMAL : FOR 


= 1 TO 1888: GOTO 1528 
HOME : VTAB 18: PRINT “ERROR NUMBER °;A: PRINT “IN 
LINE NUMBER ";B: END 


REM SCRATCH-PAD 
BY STEPHEN BOHN 


POKE 3,8: POKE 4,8: HIMEM: 32518 

ONERR GOTO 136 

TEXT : HOME 

DIM F(21,21) ,D¢21,21) ,CL$(21) ,ROS(21) ,AS( 38) 
GOSUB 18888 

PRINT CHRS (4);"BLOAD F.* ;NMS 


8@ BL$(1) = *@6":BL$(2) = BL$(1):BL$(3) = BLS(1):BL$(4) = 


98 BL$(5) 


166 
116 
126 
138 
148 
158 
168 


178 


186 


198 
286 
218 


228 
238 
248 
256 
268 


278 


288 
298 
388 
318 
328 
338 
348 


358 
368 
378 


388 
398 
486 
416 
428 
430 


448 
458 
468 
478 
480 
498 


See 
318 


526 


538 
548 
556 


"e008" 
" 6@"°:BL$(46) = * 8"; BL$¢7) = * 68" :BL 
. 08":BL$(9) = * 8a" 


$(8) 
TEXT 
PRINT CHRS (4);"BLOAD DISPLAYER* 

GOTO 2588 

REM --- HANDLE ERRORS --- 

QX = PEEK (222) 

IF QX = 42 THEN RESTORE : GOTO 2580 

IF QX = 6 THEN GOSUB 137@: HOME : FLASH : PRINT *F 
ILE NOT FOUND": NORMAL : GOTO 1228 

IF QX = 9 THEN HOME : INVERSE : VTAB 18: PRINT “DI 
SK FULL - PLEASE USE ANOTHER“: NORMAL : PRINT CHRS 
(7);: FOR I = 1 TO 1808: NEXT I: GOTO 2580 

IF QX = 133 THEN TEXT : HOME ; PRINT "DIVISION BY 
ZERO *: PRINT “PROBLEM WITH FORMULA *: FOR 1 = 1 TO 
8668: NEXT I: CLEAR : RESTORE : GOTO 30 

IF QX = 254 THEN GOTO 1358 

IF QX = 5 THEN 1358 

TEXT : HOME : PRINT "PROBLEM IN LINE #";: PRINT PEEK 
(218) + PEEK (219) * 256 

END 

REM --- GET DATA VIA CUSTOM --- 

Ic = IC + 1:B% = "*: READ R: READ C 

HOME : PRINT “ENTER DATA FOR ROW ";R;" ,COLUMN ";C 
GOSUB 2818: INVERSE : HTAB 1: VTAB 4 + R: PRINT ROS 
(R) 5: NORMAL 

GOSUB 1928: INVERSE ; VTAB 3: HTAB 12: PRINT CL$(C) 
3: NORMAL 

GOSUB 6468 

IF AS = *Q* THEN RESTORE :IC = 
IF IC >) = ND THEN RESTORE ;IC 
GOTO 248 

REM --- GET DATA VIA ROW --- 
FOR R = 1 TO NR: FOR C = 1 TO NC 
HOME : PRINT "ENTER DATA FOR ROW ";R;* ,COLUMN ";C: 

Bs ="" 

GOSUB 1998: IF PEEK (32768 + (R * 256) 4 LL) ¢ >) 

164 THEN 488 

GOSUB 2818: INVERSE : HTAB 1: VTAB 4 + R: PRINT ROS 
(€R) 52 NORMAL 

GOSUB 1928: INVERSE : VTAB 3: HTAB 12: PRINT CL#(C) 

3: NORMAL 

GOSUB 468 

IF A$ = *Q" THEN RETURN 

NEXT C: NEXT R: RETURN 

REM --- GET DATA VIA COLUMN --- 

FOR C = 1 TO NC: FOR R = 1 TO NR 

HOME : PRINT "ENTER DATA FOR ROW ";R;" ,COLUMN ";C: 

Be =" 

GOSUB 1998: IF PEEK (32768 + (R * 256) + LL) ¢ > 

164 THEN 498 

GOSUB 2018: INVERSE : HTAB 1: VTAB 4 + R: PRINT ROS 
(R) 3: NORMAL 

GOSUB 1928: INVERSE : VTAB 3: HTAB 12: PRINT CL8(C) 

3: NORMAL 

GOSUB 468 

IF AS = *Q" THEN RETURN 

NEXT R: NEXT C: RETURN 

REM --- ADD/CHANGE DATA --- 

HOME : VTAB 1: HTAB 11: INVERSE : PRINT "ADD OR CHA 
NGE DATA ": HTAB 11: PRINT "(PRESS ‘Q’ TO QUIT)": NORMAL 


8: RETURN 


VTAB 3: HTAB 1: CALL - 958: PRINT "ENTER ROW NUMBE 
R ->";: GET A$: PRINT A$;: IF A$ = "Q" THEN RETURN 


IF AS = CHRS (13) THEN 528 
INPUT "*;B$:A$ = AS + BS 
R= VAL (A$): IF R ¢ 1 OR R > 20 THEN 528 


568 


578 
588 
578 
608 


618 
628 


638 


648 


658 
668 
678 


688 
698 


768 
716 


728 


736 
748 
758 
768 


778 


788 
798 
808 


816 


828 
838 
848 
858 


868 
878 


888 


898 
988 


918 
920 


938 
748 


958 
968 


978 


988 
998 


1866 


1818 
1028 
18638 


1048 


165e 
1868 
1878 
1688 


1098 
1166 
1118 


1120 


1138 
1148 
1158 
1168 


1178 
1188 


1198 


1208 
1218 
1228 


1238 


1246 
1258 
1268 


1278 
1288 
1298 
1308 


VTAB 3: HTAB 1: CALL - 958: PRINT “ENTER COLUMN NU 
MBER ->";: GET A$: PRINT A$;: IF AS = "Q" THEN RETURN 


IF AS = CHR$ (13) THEN 566 

INPUT "*;BS:A% = AS + BS 

C= VAL (A$): IF C <1 ORC >) 20 THEN 560 

GOSUB 2816: INVERSE : HTAB 1: VTAB 4 + R: PRINT ROS 
(R) 3: NORMAL 

GOSUB 1928: INVERSE : VTAB 3: HTAB 12: PRINT CL$(C) 
7: NORMAL 

BS = BL$( LEN (CL$(C))): GOSUB 2046: INVERSE : VTAB 
3: HTAB 12: PRINT CL$(C);: NORMAL 

VTAB 1: HTAB 1: PRINT “ENTER DATA FOR ROW °;R;" , C 
OLUMN ";C:B% = "": PRINT * (PRESS “Q’ TO 
QuIT)* 

VTAB 3: HTAB 1: PRINT * "3: GOSUB 668: IF 
A$ = "Q* THEN RETURN 

GOTO 516 

REM --- GET DATA --- 

BS = **: VIAB 2: HTAB 11: PRINT "(PRESS ’Q’ TO QUIT) 


VTAB 4 + R: HTAB 11 + LEN (CL$(C)): GET At 
IF AS& = CHRS (13) THEN D(R,C) = VAL (BS) / 108: RETURN 


IF At CHR$ (83) THEN RETURN 

IF AS CHR$ (67) THEN BS = "$* + BL9¢ LEN (CLS(C) 
) - 1): GOSUB 264@: INVERSE ; VTAB 3: HTAB 12; PRINT 
CL$(C);: NORMAL : GOTO 678 . 

IF A& = CHR (8) THEN BS = *#* + BLS LEN (CLE<(C)) 
- 1): GOSUB 2648: INVERSE : VTAB 3: HTAB 12: PRINT 
CL$(C);: NORMAL : GOTO 678 

IF At *"Q" THEN RETURN 

IF At CHR$ (46) THEN 848 

IF A$ = CHRS (45) THEN 776 

IF ASC (A$) ¢ 48 OR ASC (A$) > 57 THEN PRINT CHRt 
(7);: GOTO 686 

BS = BS + At: GOSUB 2046; INVERSE : VTAB 3: HTAB 12: 
PRINT CL$(C);: NORMAL 

IF LEN (BS) ¢ LEN (CL$(C)) - 1 THEN 688 

VTAB 4 + R: HTAB 11 + LEN (CL$(C)): GET AS 

IF AS = CHRS (67) OR AS = CHRS (8) THEN BS = “$" + 
BL$¢ LEN (CL$(C)) - 1): GOSUB 2046: INVERSE: VTAB 
3: HTAB 12: PRINT CL$(C);: NORMAL : GOTO 676 

IF AS < > CHRS (13) THEN PRINT CHRS (7);: GOTO 
798 

DCR,C) = VAL (BS) / 168: RETURN 

GOTO 686 

VTAB 4 + R: HTAB 11 + LEN (CL$(C)): GET AS 

IF AS = CHRS (13) THEN D(R,C) = VAL (B%):BS = BS + 
"86": GOSUB 2648: RETURN 

IF AS CHR$ (83) THEN RETURN 

IF At CHR$ (67) THEN BS = "$" + BL9¢ LEN (CLS(C) 
) - 1): GOSUB 2048: INVERSE : VTAB 3: HTAB 12: PRINT 
CL$(C);: NORMAL : GOTO 676 

IF AS = CHRS (8) THEN BS = “$* + BLS LEN (CLS<C)) 
- 1): GOSUB 2048: INVERSE : VIAB 3: HTAB 12: PRINT 
CL$(C);: NORMAL : GOTO 678 

IF AS = CHRS (81) THEN RETURN 

IF ASC (A$) < 48 OR ASC (A$) > 57 THEN PRINT CHRS 
(7);: GOTO 848 

BS = BS + AS: GOSUB 2848: INVERSE : VTAB 3: HTAB 12: 
PRINT CL$(C);: NORMAL 

IF LEN (BS) = LEN (CL$(C)) - 1 THEN PRINT CHRS 
(7);: GOTO 678 

VTAB 4 + R: HTAB 11 + LEN (CL$<C)): GET AS 

IF AS = CHR$ (13) THEN D(R,C) = VAL (BS) / 16:B% = 

BS + °@": GOSUB 2048; RETURN 


nou 


fon 


vou 


IF AS CHR$ (83) THEN RETURN 

IF AS CHR$ (67) THEN BS = “$* + BL$¢ LEN (CLS(C) 

> - 1): GOSUB 204@: INVERSE : VIAB 3: HTAB 12: PRINT 
CL$(C);: NORMAL : GOTO 678 

IF AS = CHRS (8) THEN BS = “$" + BLS LEN (CLS(C)) 

- 1): GOSUB 2848: INVERSE : VTAB 3: HTAB 12: PRINT 
CL$(C);: NORMAL : GOTO 678 

IF AS = CHRS (81) THEN RETURN 

IF ASC (A$) < 48 OR ASC (A$) > S7 THEN PRINT CHRS 
(7)3: GOTO 738 

BS = BS + A$: GOSUB 2848: INVERSE : VTAB 3: HTAB 12 

: PRINT CL$(C);: NORMAL 

DCR,C) = VAL (BS) / 108 

VTAB 4 + R: HTAB 11 + LEN (CL$(C)): GET AS 

IF A% = CHRS (67) OR AS = CHRS (8) THEN BS = *$* 

+ BL$( LEN (CL$(C)) - 1): GOSUB 2048: INVERSE : VTAB 
3: HTAB 12: PRINT CL$(C);: NORMAL : GOTO 678 


IF A$ < > CHR (13) THEN PRINT CHR® (7);: GOTO 
1828 

RETURN 

REM --- SAVE FILE --- 


TEXT : HOME :MD$ = ** 

PRINT "INSERT DISK TO SAVE DATA TO *: PRINT : PRINT 
"DO YOU WISH TO USE A SPECIAL": PRINT “NAME MODIFER 
YAN ? "33 GET AS: IF AS = "N" THEN 1128 

IF AS ¢ > "Y* THEN 1878 

PRINT : INPUT "ENTER NAME MODIFER ->*;MDS 

IF LEN (MDS) > 18 THEN PRINT : INVERSE : PRINT * 
PLEASE USE A MODIFER OF 18 CHARACTERS": PRINT “OR L 
Ess "; VTAB S: HTAB 1: 
CALL - 868: GOTO 1108 

PRINT : PRINT CHR® (4);"BSAVE E." ;NM$;MD$; CHRS ¢ 
44) 5°A327468"; CHR (44); °L5376" 

FOR R = 1 TO NR: FOR C = 1 TO NC 

IF D(R,C) « > 6 THEN JI = 11 +1 

NEXT C: NEXT R 

PRINT CHR* (4);"OPEN D.";NM$ + MDS: PRINT CHRE ¢ 
4);"WRITE D.";NM$ + MDS: PRINT IT 

FOR R = 1 TO NR: FOR C = 1 TO NC 

IF D(R,C) < > @ THEN PRINT R: PRINT C: PRINT D(R 
0) 

NEXT C: NEXT R: PRINT CHR® (4);"CLOSE D.*;NMS + M 
DS: RETURN 

REM === LOAD FILE --- 
NF = @: TEXT : HOME :MD$ = °° 

VTAB 18: PRINT "IF YOU WOULD LIKE A LISTING OF FIL 
ES": PRINT "AVAILABLE, PRESS THE ‘L’ KEY ";: GET AS 
: PRINT A$: IF AS < > "L* THEN 1268 

HOME : VTAB 3: PRINT "INSERT DISK WITH FILE(S) TO 
BE LOADED": INPUT "PRESS RETURN WHEN READY*;A$: GOSUB 
1376 

REM NF = NO FILES 

IF NF = 1 THEN 2586 

VTAB 24: HTAB 11: PRINT “(PRESS ‘Q’ TO QUIT)*;: HTAB 
1: VTAB 19: PRINT “INSERT DISK WITH FILE TO BE LOAD 
ED ": PRINT : PRINT *IS THERE A SPECIAL NAME MODIFE 
R Y/N ?";: GET A$: IF AS = "N* THEN 1328 

IF A$ = "Q* THEN 2588 

IF AS <¢ > "Y" THEN 1268 

PRINT : INPUT "ENTER SPECIAL MODIFER —>" ;MDS 

IF LEN (MDS) > 18 THEN MDS = LEFTS (MD$,18) 


continued on next page 
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1318 
1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 
1468 
1418 
1428 
1438 
1448 
14358 
1468 
1478 
1488 
1498 
1508 


ise 


1528 


1F NF = 1 THEN 2588 

PRINT : PRINT CHRS (4);"BLOAD E.*;NMS + MDS 

PRINT CHRS (4);*OPEN D.*;NMS + MDS: PRINT CHRE ¢ 
4); "READ D.*; + MDS: INPUT II 

FOR 1 = 1 TO JJ: INPUT R: INPUT C: INPUT D(R,C): NEXT 
I 

PRINT CHR (4);"CLOSE D.*;NMS + MDS: GOTO 2146 

REM --- FILE ERROR --- 

NF = @: FOR 22 = 8 TO 10:A8(22) = “": NEXT 22 

TEXT : HOME : PRINT : PRINT CHRS (4);"*CATALOG*::: 
INVERSE : PRINT "DO NOT ENTER ANY COMMANDS YET": NORMAL 


IF PEEK (1831) = 197 THEN I 


1031:A = 1: GOTO 16 
1F PEEK (1159) = 197 THEN | = 1159:A = 2: GOTO 16 
IF PEEK (1287) = 197 THEN I = 1287:A = 3: GOTO 16 
IF PEEK (1415) = 197 THEN I = 1415:A = 4: GOTO 16 
IF PEEK (1543) = 197 THEN I = 1543:A = 5: GOTO 16 
1F PEEK (1671) = 197 THEN I] = 1671:A = 6: GOTO 16 


IF PEEK (1799) = 197 THEN I = 1799:A = 7: GOTO 16 


IF PEEK (1927) = 197 THEN I = 1927:A = 8: GOTO 16 
“re PEEK (1871) = 197 THEN 1 = 1671:A = 9: GOTO 16 
7" PEEK (1199) = 197 THEN I = 1199:A = 18: GOTO 1 
es PEEK (1327) = 197 THEN I = 1327:A = 11: GOTO 1 
as PEEK (1455) = 197 THEN I = 1455:A = 12: GOTO 1 
rr PEEK (1583) = 197 THEN 1 = 1583:A = 13: GOTO 1 


IF PEEK (1711) = 197 THEN I = 1711:A = 14; GOTO 1 
IF PEEK (1839) = 197 THEN I = 1839:A = 15: GOTO 1 
IF PEEK (1967) = 197 THEN I = 1967:A = 16 
IF PEEK (1113) = 197 THEN 1 = 1111:A = 17: GOTO 1 
1F PEEK (1239) = 197 THEN 1 = 1239:A = 18: GOTO 1 
IF PEEK (1367) = 197 THEN I = 13467:A = 1%: GOTO 1 
IF PEEK (1495S) = 197 THEN I = 1495:A = 20: 


IF PEEK (1623) = 197 THEN I = 1623:A ~ 21: GOTO 1 


IF PEEK (1751) = 197 THEN | = 1751:A = 22: GOTO 1 
648 

IF PEEK (1879) = 197 THEN I = 1879:A = 23: GOTO 1 
648 

1F PEEK (2887) = 197 THEN 1 = 2087:A = 24; GOTO 1 
648 

A= 24 

FoR J = 1 TO LEN (NMS) 

1F PEEK (1 ¢ J #1) ¢ > € ASC ( MIDS (NOB,J,1)) + 


128) THEN 1718 
NEXT J 

FOR J = 1 TO 18 
AB(N) = AB(N) + 


CHRS (( PEEK (1 + J + LEN (NWS) ¢ 


N=Ne41 

FOR J = 1 TO 2: NEXT J 

IF A = 24 AND N = 6 THEN 1888 

IF & = 24 THEN 1798 

IF A > 12 THEN 1778 

ON A GOTO 1486 ,1418,1428,1438,1448,1458,1468,1478, 
1488 , 1498, 1588,1518 

PRINT *@ = *;A;" IN LINE 1548 ?*; END 
A =A - 12: ON A GOTO 1528,1530,1548,155¢,1568, 1578 
+1586, 15978, 1688 ,1618, 1628 





GOTO 1888 

HOME : PRINT “FILES AVAILABLE FOR *;NMS;" ARE:* 
PRINT : INVERSE 

FOR J= 8 TON - 2 

PRINT 

HTAB 1@: PRINT ASC J); 

IF A8(J) = ° * THEN NORMAL : PRINT *-NO 
MODIFER*;: INVERSE 

NEXT J 

PRINT 

NORMAL :NF = @: RETURN 

HOME : INVERSE : YVTAB 12: PRINT “NO FILES AVAILABL 
E*: NORMAL 

NF = 1 

FOR J = 1 10 4: PRINT CHRS (7): NEXT J: FOR J = 1 
TO 2008: NEXT J 

RETURN 

REM --- DISPLAY FILE ROUTINE --~ 

Li 3 

IF C = 1 THEN LL = 2: GOTO 1988 

FOR 11 = @ TOC -1 

LL = LL ¢ LEN “(CLECII)) + 1 

NEXT II 

POKE 3,LL: CALL 32512: RETURN 

LL = 1: IF C = 3 THEN LL = 2: RETURN 


FOR 11 = @ TOC - iskL = LL * LEN (CLOCII)) + 1: NEXT 
I]: RETURN 

REM --- PRINT ROW ROUTINE - 

FOR | = 1 TO NR: HTAB 1: VTAB 4 + 1: PRINT ROS(I); 
NEXT 1: RETURN 

REM --- DISPLAY DATA VALUES --~ 

1F BS = ** THEN RETURN 

B= LEN (BS) 


FOR J = 1 TO B:PP = 32768 * (R * 256) + LL * LEN 
(CL8(0)) - J 


IF B = 1 THEN POKE PP,176: POKE PP - 1,176: POKE 
PP - 2,174 

IF J = 1 THEN POKE PP, ASC ( RIGHTS (B8,.1)) + 128 
: GOTO 2138 

IF J = 2 THEN POKE PP, ASC ( MIDS (88,1 + B - J,1 
») + 128: GOTO 2138 

IF J = 3 THEN POKE PP,174 

POKE PP - 1, ASC ¢ MIDS (B$,1 + B= J,1)) + 128 
CALL 32512: NEXT J: RETURN 

REM --- FETCH FORMULA -~-- 

HOME : VTAB 12: HTAB 8: INVERSE : PRINT * CALCULA 


TING FORMULAS *: VTAB 13: HTAB 8: PRINT “MAY TAKE 
SEVERAL MINUTES": NORMAL 

FOR K = 1 TO NR: FOR M = 1 TO NU 

ON M GOSUB 11166,11208,11300,11400,11508,114680,117 
08, 11880 ,11988,12008,12168,12208 ,12300,12468 12588, 
12688 12786, 12868 ,12708,13008,13100 
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2186 


2198 
2208 
2218 
2226 


2238 
2248 
2258 
2268 


2278 
2286 


2298 
2308 
2318 
2328 
2338 
2348 
2358 
2368 
2378 
2388 
2398 
2488 
2418 
2428 
2438 


2448 
2458 


2468 
2470 
2488 
2498 
2588 
2518 
2526 
2538 
2548 
2556 
2568 


2578 
2588 


2598 
2608 
2618 
2628 
2638 
2648 
2658 


2668 
2678 


2688 


2698 


2708 


2718 


FOR N = 1 TO NR: IF FCN,M) ¢ >) @ THEN B = F(N,M): 
B= INT ((B + .005800885) * 188):BS = STRS (B):D¢ 
N,M) = B / 108 

NEXT N: NEXT M: NEXT K 

HOME : GOSUB 2018 

FOR M = 1 TO NC 

ON M GOSUB 11100,11200,11300,11400,11500,11680,117 
86, 11800 ,119708,12088,12186,12208,12308,12400,1 2580, 
12688 12788, 12808, 12908,13008,13108 

c=mM 

FOR R = 1 TO NR: IF FC(R,C) = @ THEN 2318 

B = F(R,C):B = INT ((B + .885800805) * 108) :8% = 
(B):F(R,C) = B / 188 

IF B> 1 # 10 * ¢ LEN (CL8(C)) - 1) - 1 THEN BS = 
LEFTS ("ERROR *, EEN (ELecQ)? = 15 

GOSUB 1938 


STR® 


*, LEN (CL8CC)) - 





REM --- DISPLAY DATA --- 

TEXT : HOME : UTAB 1: HTAB 14: INVERSE : PRINT "DI 
SPLAY FILE*: FOR | = 1 TO NR: HTAB 1: VTAB 4 + I: PRINT 
ROS(I) 3: NEXT I 

UTAB 2: HTAB 2: PRINT 
NTER (Q)UIT* 


*(P)RINT (CHANGE (S)AVE (E) 


NORMAL : POKE 4,8 

Y = $: POKE 3,Y¥: CALL 32512 

VTAB 1: HTAB 41; GET AS 

VTAB 4: HTAB 1: CALL - 868 

IF A® = CHR (81) THEN HOME ; END : REM “Q* 

IF A® = CHRS (47) THEN GOSUB 51@: GOSUB 215@: GOTO 
2338: REM *C* 

IF A% = CHRS (83) THEN GOSUB 1878: GOTO 233¢: REM 
“s* 

IF AS = CHRS (49) THEN POKE 4,8: GOTO 2588: REM 
“Ee 

1F AS = CHRS (80) THEN 2678: REM ‘P* 

IF &® = CHR® (8) THEN Y = Y + 18: IF Y > 255 THEN 
Y= Y - 235 

1F A® = CHRO (21) THEN Y = Y - 10: IF Y ¢ 6 THEN 
Y= 255 + Y 

IF A®@ = CHR® (68) THEN Y = Y + I: IF Y > 255 THEN 
Yu Y= 255 

1F A® = CHRS (44) THEN Y = Y ¢ J: IF Y > 255 THEN 
Y= Y - 235 

IF A® = CHRS (446) THEN Y = Y - I: IF Y ¢ @ THEN Y 
= 255+ Y 

IF A® = CHRS (462) THEN Y = Y ~- J: IF Y ¢ @ THEN Y 
= 255 + Y 

1F @@ = CHRS (45) THEN STAR = STAR - 1: IF STAR ¢ 
@ THEN STAR = @ 

IF A® = CHRS (43) THEN STAR = STAR + 1: IF STAR > 
27 THEN STAR = 27 

IF A® = CHR® (59) THEN STAR = STAR + 1: IF "STAR > 


27 THEN STAR = 27 

IF STAR > @ THEN VTAB 4: HTAB 11 + STAR: INVERSE 

: PRINT CHR® (42);: NORMAL 

1F Y + STAR ) 255 THEN POKE 3,Y + STAR - 255: POKE 
4,STAR: CALL 32512: GOTO 2380 

POKE 3,Y * STAR: POKE 4,STAR: CALL 32512 

GOTO 2388 

HOME : VTAB 4: HTAB 15: PRINT “ENTER DATA*: VIAB 6 
: HTAB 15: PRINT 1) CUSTOM": VTAB 7: HTAB 15: PRINT 
"2) BY ROW*: VTAB 8: HTAB 15: PRINT *3) BY COLUMN*: 
VTAB 9: HTAB 15: PRINT *4) RANDOM* 

VTAB 16: HTAB 15: PRINT *5) LOAD FILE": VTAB 11: HTAB 
15: PRINT *@) TO QUIT* 

VTAB 13: HTAB 8: PRINT * *: VTAB 13: HTAB 
8: INVERSE : PRINT “WHICH ?*;: NORMAL : GET AS 


1F A® = *Q* THEN 2148 
A= VAL (A$): IF A (1 OR A > 5S THEN 2608 

1F A = 5 THEN 1218 

ON A GOSUB 23@,320,418,500 

GOTO 2148 

REM --- PRINT OUT --- 

TEXT : HOME : VTAB S: INPUT “ENTER STARTING COLUMN 
NUMBER ->";AS:S = VAL (AB): IF S < 1 OR S > NC THEN 
2678 

VTAB 6: CALL - 958: VTAB 7: HTAB 1: INPUT “ENTER 


ENDING COLUMN NUMBER ->* ;AS:E = 
OR E > NC THEN 2688 

VTAB 8: CALL - 958: VTAB 9: HTAB 1: PRINT “ENTER 
STARTING *;: INVERSE : PRINT “ROW*;: NORMAL : INPUT 
* NUMBER ->*;AS:SY = VAL (AS): IF SY < 1 OR SY >N 
R THEN 2698 

VTAB 18: CALL ~- 958: VTAB 11: 
R ENDING *;: INVERSE 
* NUMBER ->*;AS:EY = 
NR THEN 2766 

SX = S:EX = E: HOME : VTAB 5S: PRINT 
N NUMBER = *;SX: PRINT : PRINT “ENDING COLUMN NUMBE 
R= *;EX: PRINT : PRINT : PRINT “STARTING *;: INVERSE 
: PRINT *ROW*;: NORMAL : PRINT * NUMBER = *;SY 

PRINT : PRINT “ENDING *;; JNVERSE : PRINT *ROW*;:: 

+ NORMAL : PRINT * NUMBER = *;EY 

VTAB 14: CALL ~- 958: VTAB 14; HTAB 1: PRINT 
HIS CORRECT ?*;: GET AS: PRINT AS: IF AB < 
2338 


VAL (AS): IF ECS 


HTAB 1: PRINT “ENTE 
: PRINT *ROW";: NORMAL : INPUT 
VAL (AS): IF EY « SY OR EY > 


“STARTING COLUM 


"38 T 
> *Y* THEN 


PRINT : PRINT CHR® (4);*PRMI* 

TS = SX 

TE = TS - i:LlL = 6: FOR 1 = TS TO EX 

IF TE ¢ > 1 = 1 THEN 2798 

IF LL * LEN (CLOCI)) ¢ 68 THEN LL = LL + 1 * LEN 
(CLO(10):TE = J 

NEXT 1 

PRINT * *“;:TC = 8: GOSUB 2858: PRINT 
PRINT * *;: FORT * 1 TOLL # 1: PRINT CHRS 
(61)4: NEXT 1s PRINT 

FOR TC = SY TO EY: PRINT ROS(TC);: GOSUB 2858; PRINT 
+ NEXT TC 

IF TE >) © EX THEN PRINT : PRINT CHRO (4);*°PRMO* 
: HOME +: GOTO 2338 

7S = TE * 1: PRINT : GOTO 2768 

TL = =~ 1: FORK = 6 TO TS l:TL = Th ¢ 1 4 LEN ¢ 
CLO(K)>: NEXT K 

TT = 32769 + (TC # 256) ¢ TL 

FOR J = TT TO TT # LL 

IF PEEK (J) = 186 THEN PRINT CHR® (124);: NEXT 
J: RETURN 

PRINT CHRS ( PEEK (J) - 128);: NEXT J: RETURN 


@ 
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Applesoft Variable Cruncher 


by Alan and Valerie Floeter 
4333 N. 71 St. 
Milwaukee, WI! 53216 


Have you ever run out of memory when 
writing a large program, or does your pro- 
gram run too slowly? There are several 
approaches to help solve these problems. 
One of these is to use as many single letter 
variables as possible. Since each letter ina 
variable name takes one byte of memory, 
some savings can be gained by reducing the 
lengths of the variables. And making your 
programs smaller may reduce string “gar- 
bage collection”, speeding execution dramat- 
ically. 

Unfortunately, it can be a major task to re- 
name variables to shorter names. This proc- 
ess is also very prone to error. You need to 
find all occurrences of a variable and change 
it to a variable name that is not already in 
use. Not only is this tedious work, but just 
doing all of the editing is reason enough to 
avoid using this method of optimizing an 
Applesoft program. 

However, we can let the Apple do the 
tedious work. Computers are very useful for 
doing repetitive tasks. The Applesoft Variable 
Cruncher is a utility written to help you 
shorten programs, eliminating the need for 
doing extensive manual editing. 


VARIABLES 


In Applesoft, the first two letters of a varia- 
ble name must be unique. But a programmer 
may use variable names of any length. For 
example, the variable name ZIPCODE is in- 
terpreted by Applesoft as ZI, even though the 
programmer uses seven letters to identify it. 

Using longer variable names has its ad- 
vantages and disadvantages. The word ZIP- 
CODE means alot more to someone reading 
a program than just ZI oreven Z. A program is 
much more self-documenting when the vari- 
able names are related to the actual contents 
they hold. 

Unfortunately, problems involving similar 
variable names are sometimes hard to isolate. 
The variable names OLDX and OLDY will be 
interpreted as the same variable by Applesoft. 
The longer variable names also take more 
memory. As mentioned previously, each let- 
ter occupies one byte of memory. So if the 
variable name ZIPCODE is used five times in 
a program, 35 bytes are occupied, as com- 
pared to only 5 bytes if Z is used instead. 


CRUNCHER STRUCTURE 


If you commonly use long variable names, 
the Variable Cruncher could be a worthwhile 
addition to your collection of utilities. The 
program does just as its name suggests. It 
makes four passes through an Applesoft pro- 
gram. The first pass is to detect which single 
variable names are already in use. Twenty-six 
bytes in memory, one for each letter, are 
marked when a single letter is used for a vari- 
able name. Of course, there are three groups 
of 26 bytes for each of the types of variables — 
floating point, integer, and string. In the 
assembly language, the symbol TYPTAB 
holds this information. 


WOMDNOUTAWNHKDB 


6908 
6883 
6004 
6087 
6888 
62BA 
699D 
600F 
6011 
6014 
6815 
6017 
6G1A 
6@1C 
691F 
60621 
6622 
6824 
6627 
682A 
6@2D 
602F 
6038 
6831 
6034 
6036 
6037 
603A 
683C 
603E 
6048 
6042 
6944 
6046 
6848 
604A 
694C 
604F 
6051 
6853 
6954 
6955 
6857 
6859 
695A 
6@5C 
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59 
59 


4) 
D7 
19 
4D 
89 


FA 
8E 
06 
58 
19 


Bl 
ED 
8E 
8E 
19 


75 
1A 


75 
1B 
67 
FC 
68 
FD 
G1 
FC 
15 
84 
7D 
14)4) 
FC 


FC 
FD 


FC 
44 


SOURCE FILE - VARCRUNCH 


AA 
6A 


63 


FD 
FD 
FD 


68 


68 


68 


APPLESOFT VARIABLE CRUNCHER 
BY AL AND VALERIE FLOETER 
THE SOFTWARE EXPERIENCE 


ASSEMBLED WITH 'THE ASSEMBLER’ BY MICROSPARC 
COPYRIGHT (C) 1982 BY 

MICROSPARC, INC. 

LINCOLN, MA 1773 


THIS ROUTINE REDUCES APPLESOFT VARIABLES 
TO AT LEAST TWO CHARACTERS, PLUS ATTEMPTS 


; TO RENAME TO ONLY ONE CHARACTER. 


THIS IS DONE IN FOUR PHASES. 


; PHASE I 


DOUT 
CR EQU 
IND 


LOOP 


NEXTPH 


NEXTLN 


CAGAIN 


MARKS ALL SINGLE CHARACTER VARIABLES 


PHASE II 
SHORTENS LONG VARIABLE NAMES TO 2 CHARACTERS 


PHASE III 
ATTEMPTS TO REDUCE TO FIRST LETTER 


PHASE IV 

ASSIGNS SINGLE LETTER VARIABLE NAMES TO 

REMAINING VARIABLES, WHEN POSSIBLE 
EQU $FDED 

$FD8E 

$FC 

$FE 

$FB 

$67 

$AF 

$69 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


DSC 
DFS 
DFS 
DFS 
DFS 
DFS 


$19 


Pee Ne 


$6209 


$AA59 ;FOR BRUN FROM DOS 


$6A59 


LDA #% 

STA THFLAG 
PHASE 
#26%3-1 
STA TYPTAB,X 


JTAB , X 
JDIR+1 
LDA BEGN 
IND 
LDA BEGN+1 


(IND) ,Y 


(IND) ,Y 
IND+1 ;NEW HI ORDER 
IND 

JMP NEXTLN 


;LO ORDER continued on next page 
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The second pass reduces any variable 
names longer than two characters to exactly 
two characters. Of course, any special sym- 
bol is also carried with the variable name. 
So this means the variable name ZIPCODE 
would now be changed to ZI. 

The third pass attempts to reduce the two 
character variables one step further. Using 
the list of single variable names created in the 
first phase, the two character variables are 
checked to see if they can be shortened to 
one character. If the first letter is already used 
as a variable name, it remains the same. For 
example, if the variable ZI% is in the program, 
the Variable Cruncher checks to see if the 
variable ZI% has already been used. This 
is simply done by checking to see if it is in 
TYPTAB. If Z% is already in use, Z1!% is left 
intact. However, if Z% is not being used, all 
occurrences of ZI% would be changed to Z%, 
and TYPTAB would be updated to show that 
the variable name 2% is taken. 

The fourth and final pass tries to rename all 
the remaining two character variables to any 
single letter variable name that is available. 
So if a variable name Z1% is still found in the 
Applesoft program at this point, TYPTAB is 
searched for the first single character varia- 
ble name available. If F% is the first one found 
free in TYPTAB, all Z1%'s would be renamed 
to F%. Of course, if all the single letter integer 
variable names have already been used, then 
Z|% is left unchanged. 


SYSTEM REQUIREMENTS 


The Variable Cruncher is written in assembly 
language and can be run as is on 48K systems, 
either with disk or cassette, or 32K cassette 
systems. To run on any 16K system or 32K disk 
system, the program should be re-ORG’d at 
$3800. 


ENTERING THE PROGRAM 


Toenter the program, type in either the hex 
codes (if you don’t have an assembler) or 
instructions from the source listing. NOTE: At 
the symbol JTAB and at the end of the pro- 
gram two pseudo-ops are used that will not 
be accepted by the mini-assembler and pos- 
sibly other assemblers as well. ASC means to 
store the ASCII values of the string that fol- 
lows it. DFC means to store the hex values 
following it directly into memory. You must 
use the monitor to enter these bytes directly 
into memory, unless you have an assembler 
with similar pseudo-ops. But also be aware 
that this is data, not executable instructions, 
so that if you try to disassemble that part of 
the program, you may find “???’’s and other 
assorted nonsense. Do not let this bother you 
as long as the hex codes match those given in 
the listing. 


To save the program: 


BSAVE VARCRUNCH,A$6000,L$383 


To run the program: 


1) Load in Applesoft program to be com- 
pressed. 
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605F 
6962 
6064 
6866 
6968 
696A 
686C 
6@6D 
69708 
6071 
6974 


6875 
6877 
6679 
687B 


697D 


6989 
6983 
6885 
6887 
6889 
688C 
6@8E 
6891 
6893 
6894 


6897 
609A 
689C 
609E 
6BAB 
68A3 
6BA6 
6BA9 
68AB 
6GAE 
68B1 
68B4 
69B7 
68BA 


6BD 
68C8 
69C2 
6@C5 
68C7 
68C9 
66CB 
69CE 
69D1 
66D3 
6@D5 
68D8 
69DB 
68DD 
6BES 
69E3 
69E6 
69E8 
69EB 
6G9EE 
60F1 
69F4 
69F7 
60F9 
6@FC 
69FE 
61981 
6193 
6196 
6189 
618C 
619E 
6111 
6113 
6115 
6118 
611B 
611D 
6128 
6123 
6126 
6128 
612B 
612D 
6139 


6131 
6134 
6136 
6139 
613B 
613D 
613F 
6141 
6143 
6146 


64 


6A 
AA 


4)) 


62 


61 


64 


61 


62 


61 
63 
63 


62 
63 
63 
63 
FD 
69 


64 


62 


61 
64 


64 
62 
61 
63 
63 
63 
63 
63 
63 
FD 
64 
64 
64 
64 
62 
63 
61 
61 
64 
64 
64 
64 


69 


64 


62 


64 
64 


QUITIT 


JTAB 


PHNUM 
JSRDIR 


PHASE1 


NOVAR 
PHASN 


PHASE2 


PHASE3 


PHAS33 


PHASEN 


NOVAR2 
PHASE4 


LOOKIT 


LDA 
BNE 
INC 
LDA 
CMP 
BCC 
PLA 
STA 
PLA 
STA 
RTS 


DFC 
DFC 
DFC 
DFC 
EQU 
JMP 


JSR 
BCC 
CPX 
BNE 
JSR 
LDA 
STA 
BNE 
RTS 
JMP 


JSR 
BCC 
CPX 
BEQ 
JSR 
LDA 
CMP 
BEQ 
JSR 
JSR 
JSR 
JSR 
JSR 
JMP 


LDA 
BNE 
JSR 
BCC 
CPX 
BEQ 
JSR 
LDA 
BNE 
LDA 
STA 
JSR 
DEC 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STY 
JSR 
BCC 
JSR 
BNE 
DEC 
JSR 
JMP 
LDA 
STA 
LDY 
LDA 
STA 
LDA 
STA 
JMP 
RTS 


LDA 
BNE 
JSR 
BCC 
CPX 
BEQ 
LDX 
LDA 
STA 
LDA 


THFLAG -IN MIDDLE OF SOMETHING? 


PHASN ; YES 

PHASE ;NEXT PHASE 
PHASE 

#PHNUM ;ALL DONE? 
NEXTPH ;NO 

$6A59 

$AA59 


PHASE1 , PHASE1/256 
PHASE2 , PHASE2/256 
PHASE3 , PHASE3/256 
PHASE4 , PHASE4/256 
.- JTAB/2 

(JDIR) 


GTVR ;GET VARIABLE 
NOVAR ;NONE IN THAT LINE 
#1 ; SINGLE LETTER? 
PHASE1 ;NO 


#1 ;NOW USED 
TYPTAB , X 
PHASE1 


PHASEN 


GTVR -° GET VARIABLE 

NOVAR 

#1 “SINGLE LETTER ONLY? 
PHASE2 ‘YES 

PACK CUT DOWN TO ONE LETTER 
OLET+2 

LET+2 

PHASE2 


PHASE2 


THFLAG 

PHAS33 

GTVR 

NOVAR 

#1 ; SINGLE LETTER 
PHASE3 

CALC 

TYPTAB , X ; LETTER USED? 
PHASE3 ; YES 

#1 

TYPTAB , X ; USED NOW 

NEW ;SAVE WHAT WE FOUND 
YPOS ;BACK ONE FOR CUT TO 2 
PACK ;PACK IT DOWN 
OLET+2 

OLET+1 

#8 

OLET+2 

VARPON 

PARROW 

VARP 

CR 

#1 

THFLAG 

IND 

INDSAV 

IND+1 

INDSAV+1 

YSAVE2 ; SAVE THESE 
GTVR ;GET NEXT ONE 
NOVAR 

COMP ;SAME ONE? 
PHAS33 ;NO 

YPOS 

PACK 

PHAS33 

#8 

THFLAG ;NONE NOW 
YSAVE2 :¥ BACK 
INDSAV+1 

IND+1 . 

INDSAV 

IND 

CAGAIN ;MAKE CALL AGAIN 


THFLAG 

PHAS44 

GTVR ;GET VARIABLE 

NOVAR2 ; NONE 

#1 ; SINGLE? 

PHASE4 ; YES 

TYPE ;GET OFFSET FOR TYPE 
#26 ; ALPHABET 

TEMP 

TYPTAB ,X ;ANY FREE? 
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2) BLOAD VARCRUNCH 
3) CALL 24576 


VARCRUNCH can also be BRUN’ed. 

When the program is executing, it will indi- 
cate how far along it is and what changes it is 
making. It will print PHASE X, where X is 1 
through 4 at the start of each phase. Since 
nothing is changed in Phase 1, no further 
information will be printed. In Phase 2, each 
variable that is shortened will be printed to 
the screen, such as 


ZIPCODE --> ZI 


This tells you the original variable name 
and its Applesoft interpreted form. If there 
are three occurrences of ZIPCODE, you will 
see this printed out three times as cruncher 
changes each one. 

In Phase 3 and 4, any variable names 
crunched to one letter are printed out as 
above. This time you will see each variable 
appear only once, even if it is used in several 
places. The reason for this is that when a 
variable can be reduced, all occurrences of it 
must be changed at the same time. A sample 
run is shown in Example 1. 


In order to get a hard copy listing of these 
changes, just activate the printer before exe- 
cuting the Variable Cruncher. 


SAVING PROGRAMS 

Once you have compressed the variables, 
you can save or run your Applesoft program 
as usual. You might want to save both the 
Original and the compressed versions. The 
Original will probably be easier to read with its 
longer variable names. You can always use 
this version when making changes, and then 
just run the Variable Compressor when you 
want to produce the more efficient version. 


SPEED IMPROVEMENTS 


Long variables not only take more memory, 
they also slow down execution. Before we 
wrote this program, we never really knew how 
much of a difference, if any, it would make 
on execution time. To test this we wrote the 
simple program shown in Example 2. We 
compressed the first version and then ran 
both. The original version executed in about 
61 seconds, while the compressed version 
ran in 56 seconds. That is about an 8% 
improvement. This could be quite significant 
in some programs. 


MODIFICATIONS 


There may be occasions when you want 
some of the phases performed, but not all of 
them. For example, let’s say you want only to 
remove the extra characters from the variable 
names. This is performed in Phase 2 of Varia- 
ble Cruncher. You may modify the program 
to do this. At the symbol JTAB is the list of 
subroutines to be executed in the order given. 
If you do not want Phase 3 or Phase 4, change 
JTAB to 


JTAB DFC PHASE1,PHASE1/256 


DFC PHASE2, PHASE2/256 
DFC PHASE2, PHASE2/256 
DFC PHASE2,PHASE2/256 
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196 
197 
198 
199 
208 
261 
262 
263 
204 
205 
206 
207 
288 
209 
2108 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
2308 
231 
232 
233 
234 
235 
236 
237 
238 
239 
248 
241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 
252 
253 
254 
255 
256 
257 
258 
259 
268 
261 
262 
263 
264 
265 
266 
267 
268 
269 
2708 
271 
272 
273 
274 
275 
276 
277 
278 
279 
289 
281 
282 
283 
284 
285 
286 
287 
288 
289 
2908 
291 
292 
293 
294 
295 
296 
297 


6149 
614B 
614C 
614F 
6151 
6153 
6155 
6158 
6159 
615A 
615C 
615E 
615F 
6161 
6164 
6167 
6169 
616C 
616F 
6172 
6175 
6178 
617A 
617D 
6189 
6183 
6186 
6189 
618A 
618B 
618D 
618E 
6191 
6193 
6194 
6195 
6197 
619A 
619C 
619F 
61A1 
61A4 
61A7 
61AA 
61AC 
61AF 
61B1 
61B3 
61B6 
61B7 
61B8 
61BA 
61BB 
61BE 
61C9 
61Cl 
61C2 


61C5 
61C8 
61C9 
61CB 
61CC 
61CE 
61CF 


61D9 
61D1 
61D2 
61D4 
61D6 
61D8 
61DA 
61DB 
61DD 
61DF 
61E9 
61E2 
61E4 
61E6 
61E8 
61E9 
61EA 
61EC 
61ED 
61EE 
61F8 
61F2 
61F3 
61F5 
61F7 
61F9 
61FA 
61FC 
61FD 
61FF 
6281 
6202 
6204 
6206 


A7 


83 
41 


1C 


1D 
F9 
FB 
FC 


FE 
FD 


FF 
01 
FE 
19 


FE 
FB 
FE 
FE 
Vy) 
FE 
FE 


FF 
E3 


1D 
FC 
FC 


64 


64 


64 
62 


61 
64 
63 
63 
63 
63 
63 
63 


63 
FD 


64 


64 
64 


64 
64 
62 
63 


61 


64 


61 


63 


GOT IT 


NOSMAL 


PHAS44 


CALC 


NOVAR3 


’ 


PACK 


KEEP 


ZMOR 


BEQ 
INX 
DEC 
BNE 
BEQ 
LDA 
STA 
TXA 
SEC 
SBC 
BCS 
(oli: 
ADC 
STA 
JSR 
DEC 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
JSR 
JSR 
TYA 
PHA 
LDY 
DEY 
LDA 
STA 
PLA 
TAY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STY 
JSR 
BCC 
JSR 
BNE 
DEC 
JSR 
TYA 
PHA 
LDY 
DEY 
LDA 
STA 
PLA 
TAY 
JMP 


LDA 
SEC 
SBC 
CLC 
ADC 
TAX 
RTS 


SEC 
TYA 
SBC 
BEQ 
STA 
LDA 
PHA 
STA 
LDA 
PHA 
STA 
LDY 
LDA 
BEQ 
PHA 
DEY 
LDA 
PHA 
SEC 
SBC 
STA 
INY 
LDA 
SBC 
STA 
PLA 
STA 
PLA 
STA 
BCS 
CLC 
LDA 
ADC 
STA 


GOTIT 


TEMP 
LOOKIT 
PHASE4 
#1 
TYPTAB , X 


#26 
NOSMAL 


#26+"A-$89 
NEWLET 
NEW 
YPOS 
PACK 
NEWLET 
OLET 
OLET+2 
OLET+1 
#D 
OLET+2 
VARPON 
PARROW 
VARP 
CR 


YPOS 


NEWLET 
(IND) ,Y 


#2 
THFLAG 
IND 
INDSAV 
IND+1 
INDSAV+1 
YSAVE2 
GTVR 
NOVAR2 
COMP 
PHAS44 
YPOS 
PACK 


YPOS 
NEWLET 
(IND) ,Y 


PHAS44 


LET 
#"A-$89 


TYPE 


YPOS 
NOVAR3 
YSAV 
IND 


PIND 
IND+1 


PIND+1 
#1 
(PIND) ,Y 
ZMOR 


(PIND) ,Y 
YSAV 
(PIND) ,Y 
(PIND) ,Y 
#8 
(PIND) ,Y 
PIND 


PIND+1 
KEEP 


YPOS 
IND 
IND 


*YES 


;NONE HERE 


; USED NOW 


;MAKE INTO LETTER 
;SAVE IT 


;SAVE Y 


;4TH PHASE FLAG 


; SAVE FOR LATER 
;GET NEXT ONE 


; SAME ONE? 
;NO 


;SAVE Y 


;GET INDEX 


;POSITION FOR END OF LINE 
;GET LENGTH 


;SAVE IT 


;CHANGE ADDRESS POINTERS 
;END 
; SAVE HI ORDER 


;LO ORDER 
;SAVE IT TOO 


;BACK IT OFF 
;NEW LO ORDER 


;HI,ORDER 


; IF OVERFLOW 
;NEW HI ORDER 


;NEXT LINE 
;CARRY SET HERE 


;GET WHERE TO PACK TO 
continued on next page 


NIBBLE EXPRESS/VOL. III/1983 79 


Applesoft Variable 
Cruncher (Cont.) 


This tells the program to repeat Phase 2 three 
times, which doesn’t do anything after its first 
execution. 

If you do not want Phase 4, change JTAB to 


JTAB DFC PHASE1,PHASE1/256 
DFC PHASE2, PHASE2/256 
DFC PHASE3, PHASE3/256 
DFC PHASE3, PHASE3/256 


This will cause Phase 3 to be executed twice, 
but the end result is that nothing is done dur- 
ing the second execution. 


CAUTIONS 


There is an interesting side-effect created 
by this program. If you've ever used the varia- 
ble name NO, you have probably found that 
Applesoft may interpret some character se- 
quences as part of a token. For example, if 
you enter 


100 IF X=NO THEN 150 
Applesoft interprets it as 
100 IF X=NOT HEN 150 


and this causes a syntax error. 

Now assume you have a variable NOW that 
is compressed to NO. It is possible to have a 
statement 


100 IF X=NO THEN 150 


that does not cause an error when the pro- 
gram is run. However, if you copy over the 
line with the cursor, it will be retokenized as 


100 IF X=NOT HEN 150 


So running your Applesoft program through 
the Variable Cruncher will not change the 
way in which it works. If the program worked 
before it was crunched, it will still work. How- 
ever, it may create some statements that can- 
not be recopied. This is particularly important 
if you compress the variables of a program, 
and then make a listing which you give to 
someone else to type into their system. If 
any variables are shortened to names that 
may be interpreted as tokens, the other per- 
son will not be able to get his program run- 
ning. There is no easy way to enter the state- 
ment, except by putting it in the original form 
and then running the Cruncher. Fortunately, 
the chances of this happening are remote, 
and only become a problem when typing ina 
program or modifying it. 


THE LONG AND SHORT... 


Long variable names are lovely to look at, 
but not so beautiful to hold in memory. At 
least with Variable Cruncher you can have 
both options — one long version for devel- 
opment and one short version for execution. 


® 
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298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
399 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
338 
331 
332 
333 
334 
335 
336 
337 
338 
339 
346 
341 
342 
343 
344 
345 
346 
347 
348 
349 
358 
351 
352 
353 
354 
355 
356 
357 
358 
359 
368 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
398 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
416 
411 
412 
413 
414 
415 


6288 
6289 
6288 
629D 
620F 
6219 
6212 
6214 
6216 
6218 
621A 
621C 
621E 
6228 
6222 
6224 
6226 
6228 
622A 
622C 
622E 
6238 
6232 
6234 
6236 
6238 
623A 
623C 
623E 
6249 
6242 
6244 
6246 
6248 
624A 
624C 
624E 
6258 
6252 
6253 
6255 
6256 
6258 
6259 
625B 
625D 
625E 
62608 
6261 
6263 


6264 
6266 
6269 
626C 
626D 
626F 
6278 
6271 


6272 
6273 
6275 
6277 
627A 
627C 
627E 
627F 
6281 
6283 
6285 
6287 
6289 
628A 
628C 
628E 
6298 
6292 
6293 
6295 
6297 
6299 
6298 
6290 
629F 
62A0 
62A2 
62A4 
62A7 
62A9 
62AB 
62AD 
62AF 
62B1 
62B2 
62B4 
62B6 
62B8 
62BA 
62BB 
62BC 
62BE 
62BF 
62C8 
62C2 
62C4 
62C6 
62C8 
62CA 
62CC 
62CE 


63 
64 


63 


OK 


NOHI 


NOHI2 


PLA 
STA 
RTS 


(PIND) ,Y 
(IND) ,Y 
IND 

NOHI 
IND+1 
PIND 
NOHI2 
PIND+1 
PIND+1 
PEND+1 


(IND) ,Y 
(IND) ,Y 


(IND) ,Y 
YPOS 


IND+1 


IND 


;SAVE IT FOR PIND 


;TO OLD NEXT LINE 


;MOVE DOWN EVERYBODY! ! 


;NEXT LOCATION 


;END OF APPLESOFT? 


‘ 


;LO ORDER END? 
;NO 
; CHANGE END 


;NEW END 
;LOMEM TOO 


;HI ORDER 


Y= 
;END OF PROGRAM HAS 98'S 


: SAVE NEW VARIABLE FOUND IN LOWEST ONE 


NEW 
N2 


GEND 


LDX 
LDA 
STA 
DEX 
BPL 
RTS 
CLC 
RTS 


#2 
LET,X 
LLET,X 


N2 


:GET VARIABLE IN LINE 


;CARRY SET IF ONE FOUND 


;STORE IT IN LET 


; SAVE UP TO 3 CHARACTERS 


GTVRP 
GTVR 


NYT 


LOOKQ 


NOTDATA 


OKYT 


NOEXP . 


PLA 
LDA 
STA 
STA 
LDA 
BEQ 


(IND) ,Y 


#°Z+1-$80 
GTVR 


#°E-$80 
NOEXP 
#6 
NOEXP 


(IND) ,¥ 


#" .-$80 
GTVRP 
#"8-$88 
NOEXP 
#°9+1-$89 
GTVRP 

#2 

#8 


;END OF LINE 


; REM? 

,YES- IGNORE LINE 
;FOR COLON 

;DATA TOKEN 
;FIND COLON 

;FOR QUOTE 

; QUOTE? 

;NO -OK YET 


;END OF LINE 
; QUOTE? 

;NO 

;DATA? 


;GET CHAR 
;END OF LINE 


;LOOK FOR END QUOTE 
;QUOTE OR COLON 


;VALID LETTER? 
;NO 


;E7 

;NOT EXPONENT 

;AT START OF LINE? 
; YES 


;GET CHAR BEFORE IT 


;DECIMAL POINT? 
;YES - NOT VARIABLE 
; NUMBER? 

;NO 

; NUMBER? 

;YES-1S EXPONENT 


Applesoft Variable 
Cruncher (Cont.) 


416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
449 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
499 
491 
492 
493 
494 
495 
496 
497 
498 
499 
508 
591 
502 
593 
504 
505 
596 
597 
598 
599 
5168 
511 
512 
513 
514 
515 
516 
517 


518 
519 


520 
521 
522 
523 
524 
525 


6209 
62D3 
62D4 
62D6 
62D8 
62DB 
62DC 
62DE 
62DF 
62E9 
62E2 
62E4 
62E6 
62E9 
62EA 
62EC 
62EF 
62F2 
62F5 
62F7 
62F9 
62FB 
62FC 
62FE 
6309 
6392 
6384 
6306 
6388 
630A 
639C 
63GE 
63198 
6312 
6314 
6315 
6317 
6319 
631A 
631D 
631F 
6322 
6325 
6327 
6328 
6329 
632B 
632C 
632D 
632F 


6331 


6333 
6335 
6338 
633B 
633D 
633E 
6346 


6342 
6343 
6345 


6346 
6348 
634B 
634D 
634F 
6352 
6353 
6355 


6356 
6358 
635B 
635D 
6368 
6361 
6363 


6364 
6366 
6369 
636B 
636D 
6378 
6371 
6373 
6375 


6376 


637B 
637C 


6382 


83 63 ZLOP STA LET,X 
DEX 
FA BPL ZLOP 
)4) LDX #@ 
86 63 ZLOP2 STA OLET,X 
DEX 
FA BNE ZLOP2 
TAX 
PLA 
82 GOOD CPX #2 
06 BCS LOOK 
1D STY YPOS 
83 63 STA LET,X 
INX 
1E LOOK STX SAVEX 
D8 64 LDX OLDVAR 
86 63 STA OLET,X 
D8 64 INC OLDVAR 
1E LDX SAVEX 
FC LDA (IND) ,Y 
2D BEQ NFND 
INY 
41 CMP #"A-$88 
G4 BCC CHKM 
5B CMP #"Z+1-$88 
Dc BCC GOOD 
38 CHKM CMP #"0-$88 
84 BCC CHK2 
3A CMP #"9+1-$88 
D4 BCC GOOD 
24 CHK2 CMP #"$-$898 
1c BEQ FEND 
25 CMP #"%-$89 
13 BNE NFN2 
PHA 
34 LDA #2642 
1c FEND2 STA TYPE 
PLA 
83 63 STA LET,X 
1E STX SAVEX 
D8 64 LDX OLDVAR 
86 63 STA OLET ,X 
1E LDX SAVEX 
NFN2 DEY 
NFND SEC 
@1 LDA #1 
RTS 
FEND PHA 
1A LDA #26 
E6 BNE FEND2 
;DATA TOKEN , QUOTE 
22 QCoL DFC $3A,$22 
;LET =PRESENT 
; LLET=LEAST ONE SO FAR 
;EQUALS SET IF EQUAL 
tJ) COMP LDX #2 
86 64 CMP2 LDA LLET,X 
83 63 CMP LET,X 
86 BNE NOK 
INX 
3 CPX #3 
F3 BCC CMP2 
; EQUAL 
RTS 
G1 NOK LDA #1 
RTS 
;PRINT VARIABLE 
(14) VARP LDX #8 
86 63 M2 LDA OLET,X 
88 BEQ VQUIT 
88 ORA #$89 
ED FD JSR DOUT 
INX 
F3 BNE M2 
VQUIT RTS 
;PRINT ARROW 
98 PARROW LDX #8 
76 63 =M3 LDA ARROW, X 
06 BEQ VQUIT2 
—D FD JSR DOUT 
INX 
FS BNE M3 
VQUIT2 RTS 
1) VARPON LDX #9 
86 64 M LDA LLET,X 
BA BEQ QUIT 
80 ORA #$89 
ED FD JSR DOUT 
INX 
®3 CPX #3 
Fl BCC M 
QUIT RTS 
AD AD ARROW BSCE a>) * 
AD 
DFC 9 
C8 Cl PPHAS ASC "PHASE " 
C5 AD 
DFC 9 
DSc . 
LET OFS 3 
OLET DFS 256 
LLET DFS 3 


;ZERO STORAGE 


;ZERO IT OUT 


; ENOUGH? 
; YES 


; SAVE IT 


;SAVE IT FOR PRINTING 


iYES 
; NUMBER? 


;YES 
; STRING? 
; STOP 
; INTEGER? 


;SAVE IT 
; SAVE X 


;SAVE IT FOR PRINTING 
;GET X BACK 

;BACK TO INVALID 

; JUST STOP 

;NOT EQUAL 


; SECOND GROUP 


;NOT YET 


;NOT EQUAL 


;END 
;FOR OUTPUT 
;PRINT IT 


;PRINT ARROW 


; NEXT 


; STOP 
;FOR NICE SCREEN 


526 
527 
528 
529 
538 
531 
532 
533 
534 


928 ERRORS 


6000 HEX START OF OBJE' 
6382 HEX END OF OBJECT 
@383 HEX LENGTH OF OBJ 
936D HEX END OF SYMBOL 


ILI8T 


20 REM AN EXAMPLE 

3SOB=C#De"E 
=N2 O# P®# 

40 ABCD = 2 

50 BEEP = 1.5:ABC = 


TYPTAB 
THFLAG 
OLDVAR 
TEMP 

NEWLET 
INDSAV 
YSAVE2 


CT 


ECT 
S 


DFS 
DFS 
DFS 
OFS 
DFS 
DFS 
DFS 


643 


PNR END 





Example 1 
10 REM THIS I8 A NONSENCE ROUTINE FOR 


10.2 


=IeJs=KeLlen 
TeUesVewe=X =YH#O 


60 IF BEG = 1.5 THEN BE = 2.0 


70 CHNG = 5 

80 PRINT CHNG,B,AB, 
90 GOTO 100 

100 PRINT "ABCD" 
110 END 


JBRUN VARCOMP 
PHASE 1 
PHASE 2 
ABCD --> AB 
BEEP --> BE 
ABC --> AB 
BEG --> BE 
CHNG --> CH 
CHNG --> CH 
BED --> BE 
PHASE 3 

AB --> A 
PHASE 4 


ta a 4 





ILIST 


BED 


Example:2 4 EES eee 


10 REM THIS IS A NONSENCE ROUTINE FOR 


20 REM AN EXAMPLE 


SOB=C=#=D#=E=F2#2G2#HF=Iz=I# K=L# M 
=N=z=O=P2#®Q#R2#®*S82®TS2U =VFWFX=zVY=O 


40A=2 
50 Z = 1.5:A = 10.2 


60 IF Z = 1.5 THEN Z = 2.0 


70 CH= 5 

BO PRINT CH,B,A,Z 
90 GOTO 100 

100 PRINT "ABCD" 
110 END 


IPR#O 


ILIST 


10 REM 
20 ABCDE = O 


30 ABCDE = ABCDE + 1 


35 QRST = QRST + 1 


40 IF ABCDE > 5000 THEN 100 


50 GOTO 30 
100 PRINT "STOP" 
120 END 


IPR#O 


ILIST 


10 REM 
20A=0 
JOAZA+1 
swma=ati 


40 IF A > SOOO THEN 100 


50 GOTO 30 
100 PRINT "STOP" 
120 END 


IPR#O 
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LIFE 


Ce 


LIFE 


by Raul Cartaya 
1040 Coast Blvd. So. #401 
La Jolla, CA 92037 


“_..And pattern itself being weightless, 

The life integrities are apparently Inher- 
ently immortal.” 

Buckminster Fuller, 

from “How Little | Know” 


INTRODUCTION 

LIFE is a game of patterns in which the 
player enters the initial pattern, or generation 
0, and then sits back and watches the patterns 
of successive generations being displayed. 
LIFE determines the pattern for the next gen- 
eration by applying three very simple laws to 
the current generation: the laws of birth, sur- 
vival, and death. These laws, although very 
simple, are extremely cumbersome to apply 
by hand to any but the simplest of patterns 
without making mistakes. This, in a way, 
makes LIFE a game for computers only. 

Our LIFE’s universe is basically a checker- 
board of 35 by 20 squares (although the sepa- 
rations between the squares are normally not 
visible). A pattern, or generation, is made by 
placing markers (circles) on some of the 
squares (or places), and leaving the rest 
empty. Any one cell will have somewhere 
between 0 and 8 neighbors, or occupied 
adjacent places (note that in our version of 
LIFE, the universe is made to wrap around in 
both dimensions, so that the top and bottom 
rows are considered adjacent, as are the left- 
mostand rightmost columns). The three laws 
governing LIFE can then be stated as follows: 


BIRTH: an empty place will give birth to a 
marker in the next generation if it has exactly 
3 neighbors. 


SURVIVAL: an inhabited place will still be 
inhabited in the next generation if it has either 
2 or 3 neighbors. 


DEATH: an inhabited place will become 
empty in the next generation (i.e., the marker 
will die) if it has less than 2 neighbors or more 
than 3 (death from loneliness or overcrowd- 
ing). 


There is nothing new about LIFE, even 
though this program is completely original. 
The popularity of this game reached craze 
proportions among computer people about 
10 years ago, which led to articles in anumber 
of publications including Time and Scientific 
American. At one point there must have been 
hundreds, if not thousands of different imple- 
mentations of LIFE eating up machine cycles 
in as many computers from coast to coast. 
Why the proliferation? First, because it is a 
fascinating game to watch: patterns evolve in 
elegantly complex and seemingly unpredict- 
able ways, guided by such strong inter- 
reactions that changing the location of one 
cell will often result in radically different evo- 
lutions. The second and perhaps strongest 
reason for the popularity of LIFE is how 
simply it is defined: the three laws of LIFE are, 
in essence, the complete algorithm for the 
game; armed with knowledge of these laws 
and a little ingenuity, any programmer could 
implement his own version of LIFE. 

Individual versions of LIFE may disappear 
or be forgotten, but the integrity of the 
pattern-processing algorithm expressed by 
the three laws is immortal: the laws will con- 
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tinue to produce identical subsequent gener- 
ations given the same input pattern, whether 
in the abstract, manually, or in automated 
implementations, such as ours. 


THE PROGRAM 

In a brute force approach to LIFE, one 
would determine the next generation by ap- 
plying the three laws to every single location 
on the 35 X 20 board. That is, for every loca- 
tion on the board, one would count the sur- 
rounding neighbors and determine the fate of 
that location in the next generation. This 
would resultina valid but very slow version of 
LIFE: a lot of time would be spent looking at 
locations where nothing was going to change. 
Our version of LIFE uses a number of short- 
cuts that are best described by explaining the 
important variable and their usage. 


THE VARIABLES 


P%(34,19) is the board itself, the population 
array. Each element corresponds to a place 
on the board. A 1 indicates an inhabited 
place, and a0 an empty place. 


N%(34,19) is the neighbor array. After each 
location is scanned, the corresponding ele- 
ment contains the number of neighbors at 
that location (in the previous generation). 
The location itself is counted, so contents can 
range from 0 to 9. 


D%(34,19) is the delta array. At the end of a 
scan, it shows the change in the number of 
neighbors for each location. When a marker 
is born (or dies) during the scan process ata 
particular location, the corresponding ele- 
ment and the eight neighboring ones are 
incremented (or decremented) by 1. Con- 
tents may range from -9 to 9. Obviously, 
changes can only occur in locations whose 
D% element is non-zero. 


CL%(734), DL%(734) are the delta lists. At the 
end of each scan, when D% is stable, these 
two arrays are used to summarize the infor- 
mation in D% in a way designed to speed up 
the scanning process. D% is then set toO soit 
is ready for the next scan. CL% is, essentially, 
a list of the locations where the number of 
neighbors has changed (i.e., non-zero ele- 
ments in D%), so that they are potential can- 
didates for births or deaths. Rather than list 
both X and Y values for the location, only the 
Y values are listed, and a change in X is indi- 
cated by anegative value. The corresponding 
element in DL% then shows the change in the 
number of neighbors for that location. The 
list of values shown in Figure 1 indicates that 
the first location to be scanned should be 
X=5, Y=7, where the number of neighbors 
increased by 3. Note that, since these arrays 
are treated as lists, 734 represents only their 
maximum length. The actual length of the 
lists at any time is kept in CN. 







ape es Bes ee 

Shee! oa Daa Sak) maple 
>} 2trtsa. 

Samal Sibars OPS) Sek 


Figure 1 


XL, YL, XH, and YH are, finally, the margin 
variables. They contain the low and high 
values for X and Y for any location in which 
changes have occurred during the scan proc- 
ess. They are used to speed up the generation 
of CL% and DL%. 


ORGANIZATION 
The program is organized as follows: 


Lines 1000-1850: this is the player state, 
where you can place or remove markers, turn 
the grid on or off, copy a pattern to disk (or 
add a pattern to the screen from disk), wipe 
the screen clear, or enter the run state. The X 
command (place/remove marker) and the A 
command (add pattern from disk) make use 
of the birth/death routine at 4000. ESC passes 
control to the run state at line 3500. 


Lines 3000-3120: this is the scan portion of 
the run state. For each location listed in CL%, 
N% is updated by the contents of DL%. P% 
and N% are then used to determine whether a 
birth or death occurs (routine at 4000). The 
graphic cursor is turned on and off by lines 
3040 and 3110, so the scan may be seen on 
the screen. 


Lines 3500-3560: this portion prints the gen- 
eration statistics. If ESC was pressed during 
the scan process, the program returns to the 
player state at 195. If all the markers dis- 
appear or if the pattern becomes stable, the 
program keeps looping until ESC is pressed. 
Otherwise, the post-scan process at 4500 is 
called, and then control goes back to 3000. 


Lines 4000-4190: birth or death at X, Y. P%, 
D%, and the display are updated, as well as 
generation statistics and the margin variables. 


Lines 4500-4640: the post-scan process. The 
rectangle delineated by the margin variables 
is examined in D%. CL% and DL% are gener- 
ated, and D% is zeroed out. Finally, the mar- 
gin variables are reset and control returns to 
the caller. 


The rest of the program should be relatively 
simple to follow. Some unusual construc- 
tions are used in a few places (32, 34, 3080- 
3090, 4025-4080); these simply proved to bea 
bit faster than the more straightforward con- 
structions. 


RUNNING LIFE 

LIFE is very easy to use. When you RUN the 
program, you will be offered three pages of 
instructions, which will paraphrase much of 
what has been stated here. Next, you will be 
shown the HELP menu (subroutine 250), 
describing all of the commands available to 
you while in the player state. 

There is a marker on/off command (X) 
which reverses the population at the location 
shown by the graphic cursor, two grid com- 
mands (G for on, N for off), 8 cursor move- 
ment commands (U, D, L, R are self-explana- 
tory; Y and | for up/left and up/right, and S 
and F for down/left and down/right; if you 
have trouble remembering the diagonal com- 
mands, just note that they are placed on the 
corresponding side of the respective Up and 
Down keys). These commands allow you to 
move the cursor around the board in order to 
add or remove markers. 

The next two commands allow you to Copy 
the whole screen to disk (C) or Add a disk 
pattern to the current screen (A). In both 
commands you are given the option to name 
the file (replying “X” will access the file “LIFE 
PATTERN X”), and to measure marker posi- 
tions from the board origin (0, 0, the upper left 
hand corner) or from the current cursor 
position. 


LIFE (Cont.) 


OTHER COMMANDS 

The remaining commands should be de- 
scribed individually. W clears the board and 
all arrays and statistics, and returns to the 
HELP menu. ESC puts the game in its run 
state. H leaves everything as is but re-displays 
the HELP menu. Finally, Q quits the program 
by doing aDOS FP (the reason for this will be 
explained below). 

Once you have studied the HELP menu, 
pressing any key will take the game to the true 
player state, with a Hi-Res display of the 
board and some lines of information summa- 
rizing commands, cursor position, and popu- 
lation. To enter a command, just depress the 
appropriate key (no RETURN). RETURN is 
only needed when answering the questions 
resulting from an A or C command. 

Once you have entered a pattern in the 
player state, press ESC to enter the run state. 
The graphic display will remain the same, but 
now the lower lines will contain generation 
statistics. There will be a pause while the pro- 
gram post-scans, then the bottom of the 
screen will be blanked as the program scans 
the pattern and predicts the next generation. 

Normally, after the scan the program will 
display the new generation statistics and go 
into the post-scan. If you press ESC during 
the scan process, however, the end of the 
scan will take you back to the player state, 
from where patterns may again be manipu- 
lated. Also, if during the scan process the 
program determines that all markers have 
died or that all remaining patterns are stable, 
the appropriate message will be displayed 
and the program will wait for an ESC to go to 
the player state. 


THE LIFE PATTERNS 

The theoretical number of distinct genera- 
tion 0’s that can be entered into LIFE is a 
mind-boggling 2 to the 700th power. Logs will 
tell you that this is a number larger than a 1 
followed by 210 zeros, a pretty big number. 


Never fear, though, for the great majority of 
these numbers are just meaningless patterns, 
such asa blank or fully populated screen, ora 
series representing just one simple pattern as 
it appears on every possible location on the 
screen. 

You will soon see, however, that even some 
of the simplest patterns will result in very 
complex geometrical evolutions. Take a 
straight horizontal line of cells; depending on 
the length of the line, the fate of the popula- 
tion will be entirely different. For lengths of 1 
to 10, the following are the end results: 


1. dies in 1 generation. 
2. dies in 1 generation. 


3. flips to a vertical line in 1, then continues 
to oscillate back and forth every 2 gener- 
ations (a flag). 


4. becomes stable in 2 generations. 


5. becomes 4 flags in 6 generations, which 
then oscillate every 2. 


6. dies in 12 generations. 


7. becomes stable in 14 generations (4 of 
the patterns resulting from a 4-long line). 


8. becomes stable in 49 generations (!!). 


9. becomes 8 flags in 20 generations (2 of 
the patterns resulting from a 5-long line), 
then oscillates in 2. 


10. reaches a shape in 2 generations which 
will then oscillate every 15 generations. 


Two other interesting patterns you might 
try are SHIP and CHESHIRE (Figures 2 and 
3). In4 generations, SHIP will look exactly the 
same (no gains or losses), but it will have 
moved one location to the right and one 
down. In 560 generations it will be exactly 
where it started on the screen. It is also inter- 
esting to watch it (and rotations thereof) col- 
lide with themselves or with other patterns. 

CHESHIRE is acute one. Of course, itis the 
cat without a smile of Lewis Carroll. Let him 
run and in 6 generations he will be a smile 
without a cat, and finally just a stable paw- 
print. 


SPECIAL NOTES 

Once LIFE has been RUN, it should not be 
interrupted in order to SAVE it or modify it, 
because the resulting version will not work. 
Some of the introductory material and shape- 
table instructions which are used very early in 
the program are actually kept at the end of the 
code (beyond line 5000), and most of these 
statements are lost when entering Hi-Res 
graphics. Once you exit the program, con- 
sider the copy in memory to be gone (the Q 
command in the player state ensures this for 
you). 

Some care should be exercised when mod- 
ifying a pattern that had been evolving (i.e., 
the player state was reached by pressing ESC 
during scan). If youadd a marker to a location 
where one has just died (or vice versa), the 
change will appear on the screen as you 
desired, but the changes entered into the 
delta array for that location and the surround- 
ing ones will have been nullified. This may 
result in that area of the board evolving 
bizarrely for at least a while. For best results, 
if you want to try something like this, first save 
the pattern, then doa W, add the pattern back 
in and then put in your changes. 
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310 PRINT "X 


PLACE/REMOVE MARKER” 


330 PRINT "G — TURN ON GRID” 
1 REM seeessassesesssssssaseseesesssess 340 PRINT "N — TURN OFF GRID" 
2 REM 8 *LIFE* 350 PRINT "U — MOVE CURSOR UP™ 
3 REM 8 BY RAUL CARTAYA is 360 PRINT "D — MOVE DOWN” 
4 REM 8 COPYRIGHT (C) 1982 8 370 PRINT "L - MOVE LEFT" 
5S Rens BY MICRO-SPARC INC. 8 380 PRINT "R — MOVE RIGHT" 
6& REM 8 ALL RIGHTS RESERVED 8 390 PRINT "Y — UP AND LEFT" 
7 REN 8 REQUIRES APPLESOFT IN ROM s 400 PRINT “I — UP AND RIGHT” 
8 REM 8 AND DISK. 8 410 PRINT "S — DOWN AND LEFT" 
9 REM Seeeeeseasaeeesesssesesssseessess 420 PRINT “F — DOWN AND RIGHT" 
15 TEXT : HOME : VTAB 7: LOMEM: 4 8 4096 430 PRINT "C — COPY TO DISK" 
16 P® = “WELCOME TO LIFE” 440 PRINT "A — ADD FROM DISK" 
17 GOSUB 20: GOTO 22 450 PRINT “W — WIPE AND RE-START" 
16 XDRAW 1 AT FN PC(X), FN PC(Y): RETURN 460 PRINT "ESC — GO TO RUN STATE” 
20 PRINT TAB( 20 — LEN (PS) / 2)5P8: RETURN 470 PRINT "H — RE-DISPLAY THIS PAGE” 
21 PRINT TAB( 20 -— LEN (PS) / 2)3P%3;: RETURN 475 PRINT "Q — QUIT PROGRAM (END)" 
22 \VTAB 10:P$ = “DO YOU NEED AN INTRODUCTION?°: GOSUB 20 478 TEXT 
24 PS = "(Y OR N, RETURN) “: GOSUB 21 480 POKE 32,0 
26 INPUT ““;AS 490 PRINT "HIT ANY KEY TO CONTINUE";: GET Z$: HOME : RETURN 
28 IF AS = "Y" THEN GOSUB 5000 
30 GOSUB 6000 1000 REM PLAYER STATE 
32 DEF FN NX(X) = 35 8 (X <0) + XB x < 33) 1010 POKE -— 16304,0: HOME : VTAB 21 
34 DEF FN NY(Y) = 20 8 (Y < 0) + Y & (Y < 20) 1020 PRINT "COMMANDS - X GNUDLRYISFCAQ 
36 DEF FN PC(Z) =88%2+4 1030 PRINT " H FOR HELP ESC TO RUN” 
50 DIM PX(34,19) ,NX(34, 19) , DX (34,19) 1040 PRINT "MARKERS: K,Yi"3 
55 DIM CLX%(734) ,DL%(734) 1050 VTAB 231 HTAB 101 PRINT NM” Le 
60 DDS = CHRS (4):XX8 = “LIFE PATTERN LS 1060 HTAB 31: PRINT X","Y" "5 
150 REM PREPARE FOR PLAYER STATE 1065 GOSUB 18 
160 GOSUB 250 1070 GET AS 
180 HGR :NM = O 1080 GOSUB 18 
190 ®GOSUB 4630 1090 IF AS = "X" THEN 1300 
195 X = 17:Y¥Y = 10 1100 IF AS = "6" THEN 1370 
200 GOTO 1000 1110 IF AS = “N" THEN 1350 
250 REM EXPLAIN PLAYER MENU 1120 IF AS = “U" THEN 1410 
260 HOME 1130 IF AS = "D" THEN 1420 
270 PRINT "PRESS ANY KEY TO GO INTO PLAYER STATE.” 1140 IF AS = “L" THEN 1430 
280 PRINT “IN THAT STATE, THE FOLLOWING COMMANDS” 1150 IF AS = "R" ne pe 
“ARE AVAILABLE:” 1160 IF AS = “Y" : 
500 POKE 33,32: POKE 32,8: PRINT 1170 IF AS = “I" THEN 1460 continued on next page 
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LIFE (Cont.) 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 


1260 
1300 
1320 
1350 
1360 
1370 


1380 
1400 
1410 
1420 
1430 
1440 
1443 
1445 
1448 
1450 
1460 
1470 
1480 
1500 
1510 
1520 


3550 
3560 
3990 
4000 
4010 
4020 
4025 
4030 
4035 
4040 
4045 
4047 
4050 
4060 
4070 
4080 
4090 
4100 
4105 
4106 
4107 
4108 
4109 
4110 


IF AS = "S" THEN 1470 

IF AS = "F" THEN 1480 

IF AS = "C" THEN 1500 

IF AS = "A" THEN 1700 

IF AS = "W" THEN CLEAR : TEXT : GOTO 32 

IF AS = CHRS (27) THEN 3500 

IF AS = "H" THEN TEXT : GOSUB 250: GOTO 1000 

IF AS = "Q" THEN PRINT : TEXT : HOME : PRINT DDS"FP 
6OTO 1050 


REM PLACE/REMOVE MARKER 
BOSUB 4000: GOTO 1050 

REM GRID OFF (ON AT 2ND LINE) 
HCOLOR= 0 


FOR Y2 = 8 TO 152 STEP 8: FOR X2 = 8 TO 272 STEP 6: HPLOT 


X2,Y2: NEXT 2 NEXT 
HCOLOR= 3: GOTO 1050 
REM CURSOR MOVES 
DY = -—- 1: GOTO 1443 
DY = 1: GOTO 1443 

DX = - 1: GOTO 1443 
DX = 1 

X = FN NX(X + DX) 

Y = FN NY(Y + DY) 


DX = O:DY = O: BOTO 1050 
DX = - i: GOTO 1410 

DX = 1: GOTO 1410 

DX = —- 1: GOTO 1420 

DX = 1: GOTO 1420 


REM COPY TO DISK 

IF NOT NM THEN 1050 

PS = “COPY TO DISK": GOSUB 1800 

PRINT DDS®"WRITE"“FS 

PRINT NM 

FOR X = O TO 34: FOR Y = O TO 19 

IF NOT P%(X,Y) THEN 1600 

X2 = X3Y2 = Y 

IF XO THEN X2 = X2 — X4sY2 = Y2 - Y4 
GOSUB 18: PRINT X2: PRINT Y2: GOSUB 18 
NEXT : NEXT 

GOTO 1760 

REM ADD FROM DISK 

PS = "ADD FROM DISK": GOSUB 1800 

PRINT DDS"READ"FS 

INPUT M 

FOR I= 1TOM 

INPUT X,Y: IF XO THEN X = X + X43Y = Y + Y4 
IF X > 34 THEN X = X - 34 

iF V > 19 THEN Y= yY- 19 

X = FN NX(X):Y = FN NY(Y): GOSUB 18: GOSUB 4000: GOSUB 


HOME : VTAB 21:P8 = r$ + “ DONE" 

PRINT DDS"CLOSE"FS:X = X4:Y = Y4: GOSUB 20: GOSUB 186 
: GOTO 1000 

HOME : VTAB 21: GOSUB 18: GOSUB 20:X4 = X:Y4 = Y 
PRINT “NAME FOR "XX$;: INPUT FS®:F® = XxX + FS 

PRINT DDS“OPEN"FS 

INPUT “MEASURE FROM CURSOR? (Y OR N)“;7Z$ 

xO = O: IF Z$ = “Y" THEN XO = 1 

RETURN 


REM RUN STATE 
NC = O:ND = O:NG = NG + 1: HOME 

x=0 

FOR I = 1 TO CN 

Y = CL“C(I): IF Y < O THEN X = X + 1: GOTO 3120 
GOSUB 18 

D= MZ(I) 
N = NZ(X,Y) + DrNZ(X,Y) = N 

IF P%(X,Y) THEN ON N GOTO 3100,3100,3110,3110,3100, 
3100, 3100, 3100, 3100 
> 3 THEN 3110 


NEXT 

REM GENERATION STATS 

HOME 

IF PEEK ( — 16384) = 155 THEN I = PEEK ( - 16368): 
GOTO 195 

VTAB 21: PRINT "GENERATION “NG; TAB( 21) "MARKERS: "N 
m 

PRINT “NET CHANGE: "ND; TAB( 21)"BIRTHS+DEATHS: “NC 
IF NOT NM THEN PRINT “ALL LIFE HAS BECOME EXTINCT. 
-.": GOTO 3505 

IF NOT NC THEN PRINT “LIFE IS STABLE...": GOTO 350 
5 

PRINT “HIT ESC FOR PLAYER STATE"; 

GOSUB 4500: GOTO 3000 

REM BIRTH/DEATH 

XDRAW 2 AT FN PC(X), FN PC(Y) 

PX(K,Y) = 1 — P%IX,Y) 

D= -— 1: IF P&%(X,Y) THEN D = 1 

IF X = 0 OR X = 34 OR Y = O OR Y = 19 THEN 4120 
D%(X - 1,¥Y — 1) = DKK -— 1,Y - 1) + D 

D(X — 1,Y) = D%(K - 1,Y) + D 

Du(X — 1,¥ + 1) = DK(K -— 1,¥ + 1) + D 

D%(X,Y — 1) = D%(X,Y — 1) + D 

DK(X,Y) = DKCX,Y) + D 

D%(X,Y + 1) = DLC(K,Y + 1) + D 
DK(X + 1,¥Y — 1) = D%(K + 1,¥Y - 1) + D 
DK(K + 1,Y) = DK(X + 1,¥) + D 
DK(X + 1,Y + 1) = DK(X + 1,Y + 1) + D 


68% 
Arb 5% 


- 
= 
= 
Vv 
ad 
“ 
= 
=z 
i 
<< 


IF Y > YH THEN YH 
RETURN 
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REM BIRTH/DEATH AT EDGE 

FOR X2=x-1TOX +1 

FOR Y2 =Y~- 1 TOV +12 

X3 = FN NX(X2)2Y3 = FN NY(Y2) 

D%(XS,YS) = DAC(X3,Y3) + D 

NEXT & NEXT 

BOTO 4090 

REM LIST OF “CHANGES?” 

CN=0 

XL = FN NX(XL — 1)8XH = FN NX(XH + 1)2 IF XL > = X 
H THEN I = XisXL = XH:XH = Ia IF XL = O OR XH = 34 THEN 
XL = O:XH = 34 

YL = FN NY(YL - 1)2YH = FN NY(YH + 1): IF YL > = Y 
H THEN I = YL:YL = YH:YH = I: IF YL = 0 OR YH = 19 THEN 
YL = O: YH = 19 

IF XL = O THEN 4550 

FOR I = 0 TO XL — 1:CN = CN + 1:CL%(CN) = — 1: NEXT 


FOR X = XL TO XH: FOR Y = YL TO YH 

IF NOT D%(X,Y) THEN NEXT : GOTO 4610 
D = D%(X,Y) 
CN = CN + i:D%(X,Y) = O 
CLZ%(CN) = Y:DL%(CN) = D 

NEXT 
CN = CN + 1:CL%(CN) = - 1 

NEXT 

XL = 34:XH = OrYL = 19:YH = O 

RETURN 

REM INSTRUCTIONS 

HOME 

PRINT “LIFE IS A GAME OF PATTERNS. A PATTERN™ 
PRINT “IS MADE UP OF INHABITED PLACES (OCCUPIED"; 
PRINT "BY MARKERS) AND EMPTY PLACES. ANY ONE" 
PRINT “PATTERN IS CALLED A GENERATION.“: PRINT 
PRINT “YOU PLAY LIFE BY ENTERING THE PATTERN” 
PRINT “FOR THE FIRST GENERATION, AND THEN WAT-—“ 
PRINT “CHING IT EVOLVE. EACH GENERATION DETER-" 
PRINT "MINES THE PATTERN FOR THE NEXT GENERA-" 
PRINT “TION BASED ON THE LAWS OF BIRTH,“ 

PRINT "SURVIVAL, AND DEATH. YOU SIMPLY WATCH” 
PRINT “THE PATTERNS CHANGE AS THE GENERATIONS” 
PRINT “EVOLVE.": PRINT 

PRINT "IN ADDITION, YOU MAY CHANGE THE PATTERN” 
PRINT “AT THE END OF ANY GENERATION. PRESSING" 
PRINT ""ESC’ WILL SWITCH FROM THE RUN STATE“ 
PRINT “BACK TO PLAYER STATE, WHERE YOU MAY MO-“ 
PRINT “DIFY THE PATTERN, SAVE IT TO DISK, RE-" 
PRINT “TURN TO THE RUN STATE, OR END THE PRO-" 
PRINT “GRAM.": GOSUB 5470 

PRINT “FOLLOWING ARE THE THREE BASIC LAWS.” 
PRINT “REMEMBER THAT EACH PLACE ON THE BOARD” 
PRINT “HAS EIGHT ADJACENT PLACES. "HAVING TWO" 
PRINT “NEIGHBORS” MEANS HAVING TWO ADJACENT" 
PRINT “PLACES WHICH ARE INHABITED.": PRINT 
PRINT “BIRTH — AN EMPTY PLACE WILL GIVE BIRTH” 
HTAB 9: PRINT "TO A MARKER IN THE NEXT GENERA-" 
HTAB 9: PRINT "TION IF IT HAS EXACTLY 3 NEIGH-" 
HTAB 9: PRINT “BORS.": PRINT 

PRINT “SURVIVAL -— AN INHABITED PLACE WILL STILL"; 
HTAB 9: PRINT “BE INHABITED IN THE NEXT GENERA-"; 
HTAB 9: PRINT “TION IF IT HAS 2 OR 3 NEIGHBORS.“;: PRINT 


PRINT “DEATH — AN INHABITED PLACE WILL BECOME” 
HTAB 9: PRINT “EMPTY IN THE NEXT GENERATION” 

HTAB 9: PRINT “(THE MARKER WILL DIE) IF IT HAS” 
HTAB 9: PRINT “LESS THAN 2 NEIGHBORS OR MORE” 

HTAB 9: PRINT “THAN 3 (DEATH FROM LONELINESS OR"; 
HTAB 9: PRINT "OVERCROWDING).": GOSUB 5470 

PRINT “LIFE IS PLAYED ON A 35X20 BOARD. HORI-" 
PRINT “ZONTAL LOCATIONS (X) ARE (LEFT TO RIGHT)"; 
PRINT "“O THROUGH 34. VERTICAL LOCATIONS (Y) ARE"; 
PRINT "(TOP TQ BOTTOM) O THROUGH 19.": PRINT 

PRINT “THE BOARD WRAPS AROUND BOTH VERTICALLY” 
PRINT “AND HORIZONTALLY, SO THE TOP AND BOT-" 
PRINT "TOM ROWS (OR THE LEFTMOST AND RIGHTMOST" 
PRINT “COLUMNS) ARE ADJACENT. HAVE FUN!” 

VTAB 23: GOTO 490 

REM PUT IN SHAPE TABLE 

POKE 768,2: POKE 769,0: POKE 770,46: POKE 771,08 
POKE 772,35: POKE 773,0: POKE 774,8: POKE 775,868: 
POKE 776,68: POKE 777,54: POKE 778,54: POKE 779,54: 
POKE 780,39: POKE 761,346: POKE 782,341 POKE 783,60: 
POKE 764,54: POKE 785,54: POKE 786,54: POKE 787,39: 
POKE 788,346: POKE 789,346: POKE 790,60: POKE 791,54: 
POKE 792,54: POKE 793,54: POKE 794,39: POKE 795,36: 
POKE 796,361 POKE 797,60: POKE 798,54: POKE 799,54: 
POKE 800,54: POKE 801,95: POKE 802,0: POKE 803,8: 
POKE 804,68: POKE 805,200: POKE 806,59: POKE 807,247: 


POKE 806,30: POKE 609,54: POKE 810,14: POKE 611,14: 
POKE 612,45: POKE 613,12: POKE 614,12: POKE 615,36: 
POKE 616,286: POKE 617,92: POKE 616,0: 

POKE 232,02: POKE 233,3: REM SHAPE TABLE POINTER. 
HCOLOR= 3: SCALE= 1: ROT= 0 

RETURN 


Initializing Arrays 
With Specific Values 


by Philippe Francois 
31 Chemin Joseph Aiguier 
13274 Marseille Cedex 2 FRANCE 


There is no command in APPLESOFT Basic 
to fill an entire numeric or string array with 
some numeric or string value. 

If an entire array is to be filled in this 
manner, a loop must be used to assign the 
specific numeric or string value to each ele- 
ment in the array. 


10 DIM A$(10),B%(10),C(10) 
20 A$=“THIS IS A TEST”:B%=327767:C=0.009 
30 FOR I=0 TO 10 


40: A$(I)=A$ 
50: B%(l)=B% 
60: C(I)=C 
70 NEXT | 


This approach, however, becomes ineffi- 
cient and time consuming as the dimension 
of the array increases (47 seconds to initialize 
a 10000 element array!). 

An initialization with zero (numeric array) 
or null (string array) can be made with the 
CLEAR Basic command but, unfortunately, 
this command clears all simple or array vari- 
ables. 

This short machine language routine effi- 
ciently initializes individual numeric/string 
arrays with zero/null or with a value specified 
by anumeric/string variable (a 10000 element 
array is filled in only 2.5 seconds). 


SYNTAX: 
We use the ampersand (&) command 
1. zero/null initialization 


& Z (<name of first array to initialize>, 
<name of second array>...), e.g. 


& Z (A$,B%,C,F$) 


2. specific value initialization 


& V ((<name of specific variable>),<name of 
first array to initialize with the specific varia- 
ble>,<name of second array to initialize with 
the same specific value>,../(<name of other 
specific value>),<name of first array>,...) 


& V ((I$),A$,B$/(G),A,B) 


INITIA operates transparently from within 
an Applesoft program. The program itself 
begins at location hex $300 ($300-$3F4 is 
available for short machine language pro- 
grams) and runs with an Apple of any size. 

The ampersand command must be initial- 
ized to $4C $00 $03 (JUMP $0300) with POKE 
1013,76:POKE 1014,0:POKE 1015,3 at the 
beginning of your program. The INITIA DEMO 
program illustrates the use of INITIA from 
Applesoft. 


a 








9800 : PAG @328 A594 93 LABL1 LDA ARRAYL 
8800 te 632A c5e8 94 CMP ENDST 
9306 z 3 @32C DGF1 95 BNE inom 
e300 5 @3ZE ASIS 96 LDA ARRA' 
esee 5S seasseseesseseseseeeessss @336 C5G1 97 CMP ENDST+$01 
83800 6 58 @332 DGEB 98 BNE LABL2 
388 Y o8s8 INITIA 8 10334 99 3: 
esee @ s BY s 6334 190 3 IS IT ANOTHER ARRAY TO INITIALIZE ? 
e8se0 9 38 P. FRANCOIS 8 0334 1@1 3 
888 16 38 s @334 2GB700 192 JSR RELOAD 
9800 11 3% COPYRIGHT (C) 1982 8 @337 C920 163 CMP #7,” 
e8ee 12 8 MICRO-SPARC, INC. s @339 FaD9 104 BEG BEGINZ 
esee 1s 38 s @33B C929 165 CMP #97 
eso0 14 5 Seeseasesessseessesesess @33D Fa@S 196 BEQ ENDZ 
e808 is 3 @33F 4CCIDE 107 ERR IMP ERROR 
asae pe @342 108 
9800 17 3 AN APPLE II UTILITIE WHICH INITIALIZE oe earey 
e806 18 3 NUMERIC OR STRING ARRAYS WITH ZERO/NULL OR SPECIFIC VALUES ea Eee 
eseo 19 23 A342 4CBiG@ 111 IMP CHRG 
63868 26 3 0345 112s 
8306 21 ORG $386 a345 113 3 INITIALIZATION TO A NON-ZERO VALUE 
e308 22 5 345 i145 ikea 
esee 23 5 6345 115 ¢ ENTRY POINT: & U (¢1S), R$, B$/¢1%9,A%-B%7C1),A-B? 
8386 24 3 EQUATES.. 6345 fice ay 
eee 2504 6345 117 3 
$00 3 ADDR. OF THE LAST ARRAY ELEMENT 2 ae 
cane 27 cr Epa ENDST+$02 3 LENGTH OF EACH ee Les be ae INI ae 
836 28 ADR  EPZ LEN+SO1 3 STORAGE AREA FOR VAR Bou ears {2d REG ERR 
e300 29 AS4A C9Z8 121 CMP 8’ <<" 
e3aa 3@ 3 APPLE EQUATES... > DAF? 122 BNE INITU 
23 BEGIN: 
oon 32 NAME EPZ $81 3 STATUS NAME VARIABLE a 
a30a 33 POINTL EPZ $98 3 POINTER TO THE START OF THE 125 3 SEARCH THE VARIABLE TYPE 
@3aa 34 POINTH EPZ POINTL+$61 3 STORAGE AREA OF THE VARIABLE ica 
6306 35 ARRAYL EPZ $94 F age To ue FIRST ELEMENT seniaan ioe GR CRG 
+$61 5 ARRA 2 3 JSR CHECKL 
See 37 on EPZ ma ' } ADUANCE TEXT POINTER AND LOAD ae i  aealiog 
9300 x6 Wy NEXT CHARFICTER IN THE A REG. Sean cae Nee 
a30e 39 RELOAD EPZ $87 } LOAD CURRENT CHARACTER ANOTHER GAS AnGR ee EMT THT 
@300 46 ne Be ae cine ASSZ 132 LDA NAME+$1 
$DFE3 3 FIN ’ S 16aC 133 BPL REAL 
osee 42 ges AND THE STARTING LOCATION OF THE Races ied MeTRING LOA MEOS 
a3e0 a3 04 STORAGE AREA OF SIMPLE VARIABLE nage a6 sta LER 
G30 44 CHECKC EQU $DEBE } CHECK WHETHER THE TEXT POINTER Depa Fae BNE LABL3 
a3ae 45 3 POINTS Ee Baie AIGZ 137 INT LDA #$62 
$F7D9 3 FIND THE , 3502 138 STA LEN 
cee Pe a Me FIND THE STARTING LOCATION OF THE peed 39 BNE LRBLS 
a30e 48 STORAGE ag A AIS 14@ REAL LDA #885 
CKL EQU $DEBB 3 CHECK LEFT PARI 5 3502 141 STA LEN 
onee Se CHECKER EGU $DEBS 3 CHECK RIGHT PARENTHESIS 142 LABL3: 
G306 51 ERROR EQU $DEC9 3 ERROR "SVNTAY ERROR" 1435 
a3aa 5Z SLASH EPZ $CB 3 $CB IS THE SLASH TOKEN 144. 3 AND COPY ITS VALUE IN LOCATIONS BEGINNING AT “ADR” ADDRESS 
ry 53 5 145 3 
3300 54 5 ee Nah ee eae oF A2GG 146 LDX #806 
a30a SS CHECK IF THE FIRST CHARACTER AFTER "&" 15 "WU" O Age2 147 LDY #02 
a3aa Se: AND JUMP TO THE APPROPRIATE ENTRY POINT a373 B19E 142 STORE LDA <POINTL).Y 
g300 =F a! @375 9503 149 sm ADR» X 
@306 C9I5A 5¢ CMP 8°27 @377 Ce 156 
@3a2 Faa7 59 BEQ INITZ a378 ES 151 INX 
G3a4 CI56 6a CMP 8“? ax79 E4az 152 CPX LEN 
G3G6 FG3D 61 BEG INITU A37R DAFE 153 BNE STORE 
G3GS 4CC9DE 62 IMP ERROR @37D 154 3 
@3GB ex v4 @37D 155 3 NOW SEARCH THE ARRAY POINTERS 
OE: 64. + TTS A “ZERO" ENITIALIZATICN @37d 156 5 a. 
@30B 6s 3 @37D 2QB8DE 157 JSR CHECK 
G30B 66 +s ENTRY POINT: & 2 CAS. B%. 0) feta] 15@ LABLE: 
@30B 67 3 @3eG 206100 159 JSR CHRG 
@30B 68 INITZ: G3&% 2aD9F7 164 JSR GETARR 
eB 69 3 A3GE 2ZACS@3 161 JSR SEARCH 
peers 30 3 CHECK WETHER THE TEXT POINTER POINTS TO A LEFT PARENTHESIS rea Itch Se 
| 163 5 
oe 208100 72 JSR CHRG 164 3 COPY THE VARIABLE VALUE IN EACH ELEMENT OF THE ARRAY 
FO2F 73 BEQ ERR 165 3 
osie c928 74 CMP 8° <" 166 LDX #$06 
@312 DOF7 75 BNE INITZ 167 LDY #$00 
6314 76 BEGINZ: 168 LABL4 LDA GOR» i 
77 8 169 STA CARRAYL) » 
eg 33 $ SEARCH THE ADDRESS OF THE FIRST AND THE LAST ARRAY ELEMENTS a IN 
@314 79° 3 171 IN 
314 208108 30 JSR CHRG 172 CPY LEN 
@317 2@D9F7 = 1 JSR GETARR 173 BNE LABL4 
@31A 2@C3@3 82 JSR SEARCH 174 cLe 
@31D AGAe a3 LDY #$96 175 LDA ARRAYL 
85 3 177 
esiF 86 3 PUT ZERO IN ALL ELEMENTS OF THE ARRAY 172 LDA ARRAYH 
@31F 87 5 179 ADC #500 
a8 TyA 184 STA ARRAYH 
sd ais 89 STA (ARRAYL)»Y 131 CMP ENDST+$61 
E694 90 INC ARRAYL 182 ENE LABLS 
essa Deez 91 BNE LABL1 183 LDA ARRAYL continued on page 187 
6326 E695 92 INC ARRAYH 184 CMP ENDST 
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APPLE UTILITIES 





Apple Checker 3.0 


by Ken McCandless 
2747 Inspiration Drive 
Colorado Springs, CO 80917 


Due to numerous requests by Nibble 
readers that the APPLE CHECKER program 
ignore spaces and hidden control characters 
in BASIC programs, | am providing this new 
version. My main goal was to revise the origi- 
nal APPLE CHECKER to provide this capabil- 
ity, but this was quickly cast aside as the full 
complexity of the problem became clear. To 
all of you who entered the original program 
and are facing the entry of this one, | offer my 
apologies. 

This new version of APPLE CHECKER is 
easier to use and provides a corrected 
CHECKSUM routine which will catch system- 
atic transposition errors; i.e.; the routine is 
sensitive to the location of each byte. | wish 
to thank Ken Wetzel of Ridgecrest, CA for his 
letter bringing to light a problem of data 
transposition, and his suggested change to 
correct it. Thanks again, Ken. 


HOW TO RUN APPLE CHECKER 3.0 
After you have keyed in APPLE CHECKER 
3.0,doa BSAVE APPLE CHECKER 3.0,A$803, 
L$257. To execute the program: 


1. For BASIC, activate the basic language 
2. BRUN CHECK CODE 3.0 


3. LOAD (BLOAD) the program to be 
checked 


4. CALL 25 (must immediately follow step 
#3). 


5. After you are finished with the APPLE 
CHECKER 3.0 program, you should do an 
FP or INT before continuing on to other 
things. (This will reset BASIC back to its 
normal state.) 


NOTE: If you are checking a BINARY pro- 
gram, be sure to load it with the address spec- 
ification option containing a value of at least 
$B00. This will insure that the BINARY pro- 
gram does not load on top of the APPLE 
CHECKER program and produce disastrous 
results. As an example: BLOAD PROGRAM, 
A$BOO. 


The APPLE CHECKER program must be 
initialized before you load your BASIC pro- 
gram. If you are doing multiple consecutive 
runs of this program and are switching 
between APPLESOFT and INTEGER BASIC, 
you must re-initialize the program following 
each BASIC language switch. Initialization is 
accomplished when the program is BRUN 
but can be repeated, if APPLE CHECKER 3.0 
is in memory, by doing a CALL 2051 or for 
APPLESOFT by typing an “&” followed by a 
RETURN. Ifno BASIC language switch is required 
for your multiple runs, just LOAD the pro- 
gram to be checked and doa CALL 25. 

If you think you will never have a need for 
doing multiple consecutive runs of the APPLE 
CHECKER program, you can eliminate the 
requirement for doing step 5 by changing the 
byte at $A0E to a HEX D3. (BLOAD APPLE 
CHECKER 3.0, enter the monitor by a CALL 
-151, type in AOE:D3 followed by areturn, and 
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then resave the program.) This change will 
not alter the performance of the program but 
merely causes DOS to do a coldstart of the 
currently active BASIC language, thereby 
doing the required cleanup. 


HOW IT WORKS 

When you BRUN the program all the neces- 
sary parameters are set so that neither of 
the BASICs will load the BASIC program on 
top of APPLE CHECKER. A jump vector is 
built at HEX 19 (decimal 25) for easy execu- 
tion of the program and the AMPERSAND (&) 
vector is set for easy re-initialization from 
APPLESOFT. 

Once you've LOADed (or BLOADed) the 
program to be checked and issued a CALL 25, 
the check code development portion of the 
program begins. The first thing that the pro- 
gram does is to clear out the work areas, build 
a table for indirection into DOS and then dis- 
play the program's identifying header. Next, 
the program grabs the file type and file name 
from DOS and displays this information if all 
is correct. The beginning and ending (length 
for BINARY files) is picked up from DOS next. 
Now the work really begins. 

For BINARY files, the ending address must 
be calculated so that the program will know 
when to stop generating checksums. Once 
this is accomplished, the program continues 
into the checksum development loop until itis 
finished. 

For APPLESOFT programs, all of the next 
line address pointers (the first two bytes of 
every encoded program line) are zeroed. This 
is done to eliminate problems with ignoring 
imbedded spaces and control characters. The 
program continues by calculating the pro- 
gram’s length and ending address, and then 
branching to the checksum development 
loop. 

For INTEGER BASIC programs, all the line 
lengths (the first byte of every encoded pro- 
gram line) are zeroed. Again, this is to elimi- 
nate problems with ignoring spaces and con- 
trol characters. The program continues by 
calculating the program's length and ending 
address, and then goes to the checksum loop. 

This loop gets a byte of the program to be 
checksummed, and then determines whether 
itis a BINARY or BASIC file. If itis a BINARY 
file, it checksums the byte and continues to 
the end of program check. If it isa BASIC file 
the program must determine whether it is a 
space or control character, and if itis either, it 
will be ignored (with the exception of Control- 
D). All other characters must be check- 
summed. 

If this is not the end of the program to be 
checksummed, the checksum development 
loop continues until finished. The program 
then outputs the length (number of bytes 
checked, excluding the ignored spaces and 
control characters) and the checksum. Finally 
the program cleans up PAGE ZERO and 
returns to BASIC. Because of all the manipu- 
lations to the BASIC program, your loaded 
program will not be accessible in memory 
afterarun of APPLE CHECKER3.0. You must 
reload it to do any checking or to execute it. 

If an error is detected during execution of 
APPLE CHECKER 3.0, the bell will sound and 
“ERR” will be displayed. To retry you must 


reload the program to be checked and do a 
CALL 25. 
ERROR CHECKING 

Just as in the original version, the error 
checking is quite simple. The program picks 
up the file type from the DOS file manager and 
if the type is a zero you will get an error. Doing 
a CATALOG will set the file type to a zero. 
Other DOS functions also set this variable. 
For this reason you must not execute other 
DOS functions after the load of the program 
to be checked before execution of APPLE 
CHECKER 3.0; disastrous results could take 
place if you do so. 

Another condition that could produce an 
error occurs when you load a BASIC file, and 
then switch to the other language before exe- 
cuting APPLE CHECKER 3.0, whether you 
have initialized APPLE CHECKER or not. 

The final condition that could produce an 
error is to execute APPLE CHECKER 3.0 
without loading anything. In this case APPLE 
CHECKER thinks that itself was the last file 
loaded and will halt. 


MODIFICATIONS FOR A 32K SYSTEM 

The program is written for a 48K system 
with DOS residing in its standard place. If you 
have a 32K system the following changes 
must be made to make APPLE CHECKER 3.0 
work. Also, if you have DOS loading in some 
location other than either a standard 48K ora 
32K system, you must change the same loca- 
tions below for your system's values. 


1. BLOAD APPLE CHECKER 3.0 

2. Enter the monitor (CALL -151) 

855:75 

862:6A 

A47:6A 

A4D:6A 

A53:6A 

. A59:6A 

9. BSAVE APPLE CHECKER 3.0,A$803,L$257 


FINAL NOTE: Remember, REM statements 
are valid BASIC statements and must be 
included in your program to obtain the cor- 
rect checksum. All spaces and control char- 
acters, except CONTROL-D, in your BASIC 
program will be ignored and not included in 
the checksumming process, so don’t worry 
about the number of spaces in the REMs or 
any string literals. As an example, the follow- 
ing will produce identical checksums: 


ONDARY 


10 REM INITIALIZATION ROUTINE 
20 A="ABCDE” 

AND 
10 REMINITIALIZATIONROUTINE 
20 A=“ABCDE” 


Since both of the above will produce identi- 
cal checksums, it should be noted that line 20 
in each program is different and will produce 
different results if used in any comparison, so 
be alert to spacing in string assignment 
statements. 


v 


Apple Checker 3.0 (Cont.) 


SOURCE FILE: APPLE 


1 

0000: 2 
0000: 3 
0000: 4 
0000: t=] 
0000: 6 
0000: d 
0000: 8 
0000: 9 
0000: 10 
0000: 11 
0000: 12 
0000: 13 
0000: 14 
0000: is 
0000: 16 
0000: 17 
0000: 18 
00CO: 19 
20 

0000: 21 
0000: 22 
0000: 23 
0000: 24 
0803: 25 
0803: 26 
0000: 27 
0001: 28 
0001: 29 
0003: 30 
0005: 31 
0007: 32 
0008: 33 
900A: 34 
0019: 35 
0024: 36 
OO4A: 37 
004C: 38 
0067: 39 
OOAF: 40 
OOCA: 41 
QOEO: 42 
OOE6: 43 
OOEC: 44 
OOF 1: 45 
OOF 2: 46 
O3DO: 47 
OSF&é: 48 
0400: 49 
OBO1: 50 
AAGO: Si 
AA72: 52 
AATS: ss 
BSF6é: 54 
E000: ss 
0803: Sé 
0803: 37 
OB03: 58 
F941: 39 
FCS6: 60 
FDGE: 61 
FDED: 62 
FDDA: 63 
FF2D: 64 
0803: 65 
0803: 66 
0803: 67 
0803: D8 68 
0804:A9 O01 69 
0806:85 4A 7o 
0808:A9 OB 71 
080A:85 68 72 
080C:85 4B 73 
OB0E:A9 00 74 
0810:8D OO OB 735 
0813:A9 4C 7é 
0815:85 19 ae 
0817:A9 2A 78 
0819:85 1A 79 
OB1B:A9 08 80 
081D:85 1B 81 
OB1F:A9 OS 82 
0821:8D Fé 03 83 
0824:A9 08 84 
0826:8D F7 O03 8s 
0829: 60 86 
082A: 87 
062A: 88 
082A: 89 
062A: DB 90 
082B:A2 00 Fi 
082D:AO 08 92 
082F:96 00 93 
0831:68 94 
0832:10 FB 9S 
0834:BD 42 OA 96 
0837:95 EO 97 
0839:E8 98 
OB3SA:EO 1A 99 
OB3C:DO F4 100 
O83E: 101 
OB3E: 102 
O83E: 103 
O83E:20 58 FC 104 
0841:20 8E FD 105 
0844:A9 OD 106 
0846:85 24 107 
0848:A2 15 108 
O84A:BD 2C OA 109 
084D:20 ED FD 110 
0850:CA 111 
0851:10 F7 pW 
0853: 113 
0853: 114 
0853: 115 
O853:AD.F6 BS 116 
0856:FO 65 117 
0858: 0A 118 
0859: 4A L719 
085A: 4A 120 


CHECKER 3.0 


SOOTTRSTTAATT ATTA ATAAA SSSA TAT TTA TAKA ee a RAE AES K eee ee 


oo oo Oh Oe OF OF OF me OF OD OO mF OF Oe Ot OF OF oe ot me me 


ORG 
bi 
CKCD EQu 
BYTE EQU 
BEG EQU 
END EQU 
LEN EQU 
Frvre EQU 
DECVAL EQU 
HLD EQuU 
ENTRY EQu 
CHORIZ EQU 
INTLOW EQU 
INTH EQU 
ASFTL EQuU 
ASFTH EQU 
INTL EQU 
PBEGL EQuU 
PBEGH EQu 
PENDL EQU 
SPEED EQU 
PENDH EQU 
RTNBAS EQU 
AMPVEC EQU 
LINEO EQU 
BGNASF EQU 
BLEN EQuU 
BINL EQu 
DOSFN EQuU 
DOSFT EQu 
BASICHK EQU 
s 


eT Pe CHECKER 
VERSION 3.0 


ASSEMBLER: APPLE 6502 ASSEMBLER/EDITOR 
AUTHOR: KEN MCCANDLESS 
DATE: MAY 18, 1982 


THIS PROGRAM GENERATES A CHECKSUM FOR APPLESOFT, 
INTEGER OR BINARY PROGRAMS. 
CHARACTERS; 


(SPACES AND CONTROL 


EXCEPT CONTROL-D, ARE IGNORED.) 


TO EXECUTE: 


1. BRUN CHECK CODE 
(OR BLOAD IT AND THEN CALL 2051) 


2. (B)LOAD THE PROGRAM FOR CHECKSUMMING 
196) 


3. CALL 25 (IF IN THE MONITOR DO 


SSTTSSTTTSTTTAS KTR ASTSSHSHTASRS KTH T eee seseseessessses 


COPYRIGHT (C) 
MICRO-SPARC, 


1982 BY 
INC. 


NEXT OBJECT FILE NAME IS APPLE CHECKER 3.0.0BJ0 


$803 

$00 ;CHECK CODE 

$01 ;BEGINNING OF PROGRAM 

$01 3 POINTER 

$03 ;END OF PROGRAM POINTER 
$05 ;LENGTH OF PROGRAM 

$07 ;FILE TYPE (0=1,2=A, 4=B) 
$08 ;WORK BYTE FOR ASOFT 

soa ;WORK ADDR 

$19 ;ROUTINE ENTRY VECTOR 

$24 

$4A ; INTEGER BASIC LOMEM 

$4C ; INT PGM END ADDR 

$67 ;A-SOFT PGM START ADDR 
SAF ;A-SOFT PGM END ADDR 

sca ; INT PGM START ADDR 

$E0 

$E6 

$EC 

$F1 ;APPLESOFT SPEED 

$F2 

$3D0 ;DOS WARMSTART VECTOR 
$3F6 ;AMPERSAND VECTOR ADDRESS 
$400 ;FIRST BYTE OF TEXT SCREEN AREA 
$BO1 ;NEW LOAD POINT FOR ASOFT 
$AA6O ;FOR 48K 

$AA72 ;FOR 48K 

$AA7S ;FILE NAME-48K 

$BSF6 ;FILE TYPE — 48K 

$E£000 


* MONITOR ROUTINES 


a 
PRNTAX 


;PRINT "ERR" 


#1 
INTLOW 
#< BGNASF 
ASFTL+1 
INTLOW+1 
#0 
BGNASF-1 
#34C 
ENTRY 


3SET INTEGER BASIC LOMEM 


3;SET ASFT BEG ADDR TO $BO1 
3SET INT LOMEM 


sMAKE ASFT HAPPY 
3;SET UP JUMP ADDR FOR ROUTINE 


;SET UP & FOR RE-INIT 


% ROUTINE STARTING POINT 


s 

START CLD 
LDX 
LDY 
STX 
DEY 


LPCLR 


LPP 


#0 
#s08 
CKCD,Y 


;CLEAR WORK AREAS 


LPCLR 
PDATA, X 
PBEGL, X 


;BUILD INDIRECT TABLE 


#26 
LPP 


% OUTPUT HEADER 


s 


LPi 


HOME 
CROUT 
#13 
CHORIZ 
#21 
INP, X 
COUT 


LPt 


% DO FILE TYPE AND SET UP PARAMETERS 


s 
LDA 
BEQ 
ASL 
LSR 
LSR 


DOSFT 3GET FILE TYPE 

GETAGN 3;NOT A VALID TYPE 

A ;DISPOSE OF LOCK BIT 

A 

A ;CHANGE INTEGER FROM 1 TO O 


OBSB:0A 
ossc:85 
OBSE: 

O8SE:A2 
0860: BD 
0863: 20 
0866:E8 
0867:E0 
0869: DO 
O86B: 

O846B:A2 
086D: BD 
0870: 20 
0873:CA 
0874:10 
0876:AS 
0878: 4A 
0879:18 
OB7A: 69 
087C:C? 
087E:DO 
08680: A? 
0882: 20 
o8es: 

OBBS: Aé 
O887:AL 
0889: 85 
O88B:A1 
os8sD: 85 
OBGF:A1 
0891:85 
OB93:AL 
08695:85 
0897:E6 
0899: AS 
089B:C9? 
089D:DO 
O89F : 

O89F : 

O89F: 

OB89F 3 AS 
OB8A1:C9 
O8A3:FO 
OBAS: AS 
08A7:85 
OBA? AS 
OBAB: BS 
OBAD: 18 
OBAE: AS 
06B0:65 
08B2:85 
O08B4:AS 
O08B6: 65 
08BS: 65 
O6BA: 4C 
O6BD: 

O8BD: 

O8BD: 

O8BD: 20 
08CO: 20 
O8C3:4C 
O8C6: 

O8Cé: 

O6C6: 

08C46: AS 
O8C8:FO 
O8CA: AD 
oscD:C9 
O8CF : DO 
08D1:AO 
O8D3:B1 
06DS: 85 
08D7:C8 
OBDe: BI 
O8DA: 85 
OBDC: A? 
OBDE:A8 
O8DF:91 
08E1:C8 
OBE2:91 
O8E4:A5 
OBE6:85 
O8EB: AS 
OBEA: 85 
OBEC: DO 
OBEE: AS 
OBFO:AL 
O8F2:85 
OBF4:A1 
OBF 6:85 
O8F8:E6 
OBFA: DO 
OBFC: 

O8FC: AD 
OBFF:C9 
0901: DO 
0903: 

0903: A0 
09705:AS 
0907:85 
0909: AS 
090B: 85 
090D:CS 
OF0F 290 
OF11:FO 
0913: BO 
OF715:AS 
0917:CS 
0919:90 
OF1B: AG 
O91D:AL 
O91F:85 
O921:AL 


AA 
FD 


FD 


o9 


FD. 


EO 


EO 


ASL 
STA 


A 
FTYPE 


&% OUTPUT FILE NAME 


FNOUT 


LDX 
LDA 
JSR 
INX 
CPx 
BNE 


#0 
DOSFN, X 
cout 


#30 
FNOUT 


& OUTPUT FILE TYPE 


OF TYP 


OTTP 
# BUILD 


LDX 
LDA 
JSR 
DEX 
BPL 
LDA 


JSR 


#6 
CTYP.X 
COUT 


OFTYP 
FTYPE 
A 


#sCO 
#sCO 
OoTTP 
#9C9 
COouT 


3;SAVE IT FOR LATER 


; OUTPUT FILE NAME 


;BUILD AND OUTPUT FILE TYPE 


INDIRECT ADDRESSES 


LDX 
LDA 
STA 
LDA 


& RESTART 


3 SET UP FOR 


8 
BASIC 


CLRADD 


% 
IBASIC 


LDA 
BEQ 


FTYPE 
(PBEGL, X) 
BEG 
(PBEGH, x) 
BEG+1 
(PENDL, X) 
END 
(PENDH, X) 
END+1 
DECVAL 
FTYPE 

“4 

BASIC 


;GET APPROPRIATE BEG LO ADDR 
;GET BEG HI ADDR 

;GET APPROPRIATE END LO ADDR 
;GET END HI ADDR 

;TO REDUCE END ADDR BY 1 


;BIN FILE? 
3NO 


BINARY FILE 


BEG+1 
#@<INIT 
GETAGN 
END 
LEN 
END+1 
LEN+1 


BEG 
LEN 


BASICHK 
#320 
GETAGN 


3IF LOAD ADDR HI IS SAME 
3 THEN NOT A BINARY FILE! 


3; COMPUTE END ADDR 
3; END=BEG+LEN-1 


sOUTPUT “ERR” 
;CLEAN UP THE ZERO PAGE MESS & QUIT 


3;0=INTEGER 2=ASOFT 
31S APPLESOFT ACTIVE? 


3;GET NEXT LINE ADDR LO 
3;SAVE IT 


3GET NEXT LINE ADDR HI 
3;SAVE IT ALSO 

3TO CLEAR ADDR 

3;RESET Y 

30 NEXT ADDR PTR LO 


30 NEXT ADDR PTR HI 
3SET UP FOR NEXT ONE 


;REBUILD BEG ADDR 


;REDUCE END ADDR BY 2 


318 INTEGER ACTIVE? 


% ZERO OUT INTEGER LINE LENGTHS 


INTLP 


INTLW 


INTDN 


LDY 
LDA 
STA 
LDA 


#0 


INTCLR 
FTYPE 
(PBEGL, X) 
BEG 
(PBEGH, x) 


;CHECK IF FINISHED 

;NOT DONE-CLEAR IT 

;HI ADDRS THE SAME-CHECK LO ADDRS 
3 (JUST FOR MURPHEY) 

;CHECK LO ADDR 


3NOT DONE - CLEAR IT 
3;RESET BEG POINTER 


continued on page 188 
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GO — A Greeting Program 


by Chris Glenn 
96 Chestnut Hill Rd. 
Norwalk, CT 06851 


APPLE DOS is truly wizardly . . . so fast, so 
flexible. The trouble is, getting DOS to do its 
stuff is often an exacting, frustrating chore. 
Take my case: like thousands of other multi- 
thumbed APPLE freaks, when faced with 
entering 30 or 40 characters of code without 
any mistakes so that DOS can make its magic, 
| quail. Therein lies the genesis of GO. 

GO is a disk greeting program written in 
APPLESOFT for 48K systems with DOS 3.3. 
Using GO, the following operations can be 
performed with only a keystroke or two: 


RUN 

LOAD 

BRUN 

BLOAD 

EXEC 

LOCK 

UNLOCK 

RENAME 

DELETE 

VERIFY 

CHECK DISK SPACE USED AND FREE 
CHECK FILE SIZE IN DISK SECTORS 


CHECK BINARY FILE ADDRESS AND 
LENGTH 


Typical of the savings GO makes possible 
is this common situation: to DELETE a 
LOCKed file named “BAD CHECKS —1971” 
ordinarily would require typing UNLOCK 
BAD CHECKS — 1971 <RETURN> DELETE 
BAD CHECKS — 1971 <RETURN> 
.. .atotal of 50 keystrokes. But using GO, the 
same procedure requires only four key- 
strokes. Similar economies are realized with 
each of GO’s other functions. 

GO has some other advantages. For one 
thing, it’s quick to get ready. A power-up boot 
to GO takes but 11 seconds. With DOS 
already installed, type RUN GO <RETURN> 
and GO will be at your command just 7.5 
seconds later. Another plus is screen clarity: 
even though you may have 105 files on a 
given disk (the DOS 3.3 maximum), GO never 
splits the screen, truncates filenames, or 
packs the display so tightly it becomes illeg- 
ible. 


HOW TO USE GO 

GO is very user-friendly and completely 
self-guiding. There’s only one thing to re- 
member: you can ALWAYS press <RE- 
TURN> to “back up” to the previous com- 
mand level or to re-CATALOG the disk. Other 
than that, it’s justa matter of following the prompts. 

To get started, LOAD GO into memory, and 
then SAVE GO to the disk you want to use 

. either a newly INITialized disk or one that 
is already storing other files. Now BRUN the 
MASTER CREATE program found on the 
SYSTEM MASTER disk, and enter GO when 
asked for the greeting program’s file name. 
From now on, your disk will RUN GO when 
it's booted. 
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In operation, GO begins by displaying a 
screenful of the disk CATALOG and pausing 
for a keypress (presuming more than 16 files 
are stored on the disk). A prompt line appears 
at the top of the screen: CRETURN>=THIS 
SCREEN <SPACE>=MORE FILES. Press 
[RETURN] if you see the file name you want 
on the screen, or hit the [SPACE BAR] for 
more of the CATALOG. If there are fewer than 
16 files on the disk, screen setup is carried out 
automatically, without the pause or the 
prompt. 

Now the DISK TITLE appears at the top of 
the screen. You can easily change the DISK 
TITLE to reflect the general nature of the files 
on the disk (i.e. “GAMES”, “UTILITIES”, 
“HOME FINANCE”, etc.). Just change T$ in 
line 20 of the GO program. The DISK TITLE 
may be up to 40 characters long, and is self- 
centering when displayed. 

Next, a LETTER appears before each file 
name and you'll see a prompt line below the 
catalog reading: FILE CHOICE? (OR #= 
SPACE X=END) 


— Press a LETTER to indicate a FILE 
CHOICE. 


— Press [#] to display DISK SPACE in- 
formation, then hit any key to continue. 


— Press [X] to END the GO program. 


— Orpress [RETURN] to begin the CATA- 
LOG again. 


After picking a file, a prompt displays a 
selection of COMMAND choices: 


CHOSEN FILE'S TYPE: 
APPLESOFT or INTEGER ayy 


TEXT 
BINARY RUN 


Just press the first letter of the COMMAND 
you want, or press [RETURN] to go back to 
the FILE CHOICE prompt. 

If you choose TEND, a prompt offering 
LOCK UNLOCK RENAME DELETE VERIFY 
will appear. Press the first letter of the func- 
tion you want, or press [RETURN] to go back 
to the COMMAND prompt. 

Some notes on using the TEND functions: 
VERIFY, if successful, will return you to the 
functions prompt without any message. RE- 
NAME accepts only legal DOS file names. . . 
press [RETURN] when you've finished enter- 
ing the new name. You'll be prompted to 
reconfirm any RENAME or DELETE com- 
mand before it's executed ... answer Y for 
YES or N for NO. 

Selecting the SIZE command will display 
the size in disk sectors of the chosen file. Hit 
any key to return to the COMMAND prompt. 

If you've selected a BINARY file and the 
command is ADDRESS, a prompt will ask you 
to reconfirm (Y/N) before attempting the find. 
The ADDRESS routine may fail with some 
BINARY files, causing the system to hang. 
The reconfirmation prompt reminds you to 
boot the disk if this happens. Even a success- 
ful find must be followed by a boot because 
the ADDRESS routine clobbers GO... buta 
good find will give you the flashing cursor, 
and pressing any key should immediately 
boot you back to GO. 

Should an ERROR message appear, you've 
most likely left the drive door open or some- 


how gotten a different disk in the drive since 
last running GO. Or perhaps you called an 
INTEGER BASIC program, but don’t have the 
language available. An unsuccessful VERIFY 
will also generate a message. Whatever, cor- 
rect the condition and hit any key to RUN GO 
again. 

- REMEMBER: [RETURN] is GO’s “failsafe” 
key...you can ALWAYS press it to “back up” 
to the previous prompt or to begin the CAT- 
ALOG again. 


GO: THE WAY IT GOES 
Here’s a general description of what hap- 
pens within the GO program. 


SCREEN TITLE — LINE 20 

T$ stores the DISK TITLE which is dis- 
played on the top screen line. Change it to 
suit. This option is placed firstin the program 
for easy access. GO now jumps ahead over 
the program subroutines, which will be dis- 
cussed later. 


SETUP — LINES 270-340 

(280-300) POKE in a routine permitting the 
DOS CATALOG function to be interrupted by 
pressing RETURN. Perform some POKEs 
restricting the number of files that can be 
CATALOGed per screen. DIiMension the 
arrays used in the file SIZE and RENAME 
INPUT routines. Bait the ERRor trap. 

(310-320) GOSUB 230 to initialize varia- 
bles. Normalize the screen with NOMON 
C,l,O0 and TEXT commands. Display <RE- 


COMMAND PROMPT READS: 
LOAD TEND SIZE 
EXEC TEND SIZE 

LOAD TEND ADDRESS 


SIZE 


TURN>‘=THIS SCREEN, etc. prompt on 
screen line 1. 

(330) Display CATALOG. (340) Display 
DISK TITLE. 

(350) Read the screen and store the file size 
information for each file in array variables, so 
the data will be available if called by GO’s 
SIZE command later. 

(360) Now blank out the size data on the 
screen and display GO's file indicator letters 
in those spaces. Determine last file indicator 
letter on display and screen vertical position 
of prompt line. 


FILE NAME/TYPE — LINES 370-470 

(380) Setup to determine the selected file’s 
name and type. (390) Display FILE CHOICE?, 
etc. prompt. Get selection and (400-420) 
operate accordingly. (430) Find the screen 
line containing the selected filename and get 
the address of the first space on that line. 
(440) Determine the chosen file's type (A, 1,B 
or T only). (450) Find the position of the last 
character of the chosen filename. (470) Read 
the chosen filename, from first character to 
the just-determined last character. High- 
light the chosen filename in position on the 
screen. 
COMMAND — LINES 480-650 

(490-520) Determine and display the 
proper combination of command options indi- 
cated by the chosen file’s type from among 
RUN, LOAD, EXEC, TEND, ADDRESS and 
SIZE. (530-610) Get the user’s command 
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choice. (620) Do some screen-and-machine 
normalizing. Set for BRUN or BLOAD, if indi- 
cated. (630) Display and execute selected 
command. (640) Set vertical screen position 
for ENDing the GO program. 


DISK SPACE — LINES 650-690 

(660) Clear the prompt line and print DISK 
SPACE:, then (670-680) READ DATA and 
POKE in values used by the routine. (690) 
Determine the sectors tree and used and 
display the information on the prompt line. 
Await a keypress then GOSUB 300 to reset 
GO variables the DISK SPACE routine wipes 
out. RETURN to the main program at line 310 
with a fresh CATALOG display. 


SIZE — LINES 700-720 

(710) Clear the prompt line and display the 
file SIZE information retrieved from storage 
in the array initialized earlier. (720) Await a 
keypress and return to the command prompt 
at line 490. 


FILE TENDING — LINES 730-1040 

LINES 740-800 — Set up for file tending 
and offer LOCK UNLOCK RENAME DELETE 
VERIFY prompt. Get the chosen command 
and go to the proper line to execute it. 


LINES 810-820 — VERIFY — If VERIFY is 
successful, return to the file tending prompt 
line without any message. If VERIFY fails, go 
to the ERROR handling routine. 

LINES 830-880 — LOCK and UNLOCK — 
Reject attempts to LOCK an already LOCKed 
file, and vice-versa. LOCK or UNLOCK the 
selected file, and either add or remove the 
FILE LOCKED indicator asterisk from the 
screen display, as the case may be. 

LINES 890-970 — RENAME — (900) POKE 
in a flashing FILE LOCKED asterisk if the file 
that’s to be RENAMEd is LOCKed. (910) Offer 
the RENAME=prompt, and pass control to the 
INPUT subroutine at line 40. (More on the 
INPUT routine later). (920-940) As control 
returns from the INPUT routine, if the new 
filename is the same as the old, refuse to 
execute the RENAME command. Double- 
check if new filename is OK?, getting a YES or 
NO answer. (950-970) Execute RENAME, UN- 
LOCKing and then re-LOCKing the file if 
necessary. Display the highlighted new file- 
name in position on the screen. 


LINES 980-1040 — DELETE — (990-100) 
Clear the prompt line, display the DELETE 
confirmation prompt, and POKE ina flashing 
asterisk if the file to be DELETEd is LOCKed. 
If it is LOCKed, add LOCKED FILE to the 
DELETE confirmation prompt. (1010-1020) 
Geta Y/N answer, returning to the file tending 
functions prompt if it’s N. (1030-1040) Exe- 
cute DELETE, UNLOCkKing the file first if 
necessary. Then re-CATALOG the disk as 
command passes back to line 350. 


ERRORS — LINES 1050-1120 

(1060-1070) POKE in the standard APPLE- 
SOFT ERROR-handling routine. (1080-1110) 
Display the ERROR code on the prompt line, 
usually along with a message . LAN- 
GUAGE NOT AVAILABLE (no INTEGER 
BASIC card?) or I/O (drive door open?) or 
FILE NOT FOUND (wrong disk in drive?). A 
bad VERIFY also kicks over to the ERROR 
routine, causing the message UNABLE TO 
VERIFY to be displayed. (1120) Whatever the 
error, wait for a key press, then RUN the GO 
main program again. 


ADDRESS — LINES 1130-1230 

(1140-1170) Display the ADDRESS/ 
LENGTH, etc. prompt and await the answer 
(Y/N). Redirect the ERROR handling routine 
to a dummy destination. (1180) BLOAD the 
chosen BINARY file. (1190) Reset LOMEM: to 
just below HIMEM: and set the high-end vari- 
able H used by the routine. This is necessary, 
but unfortunately destroys the GO program 
and sometimes DOS. (1200-1210) Find the 
BLOAD ADDRESS and LENGTH of the cho- 
sen file, and display the ADDRESS/LENGTH 
information on the prompt line. (1220-1230) 
Wait for a keypress, then execute a PR#6 to 
restore DOS and GO. 


SUBROUTINES — LINES 40-260 

LINES 50-210 — INPUT — This routine is 
used by the RENAME file tending function. It 
accepts only legal DOS filenames. (50) Set up 
to receive INPUT by nulling out load informa- 
tion from any previous RENAME. (60) Pre- 
vent “backing out” of the screen space allotted 
for entering the new name. (70) Place the 
cursor in the current horizontal position. 

(80) Get a character. If the first character is 
RETURN, abandon RENAME and go back to 
the file tending command prompt. (90) If a 
comma is entered, reject it. (100) If a forward 
arrow is entered AND the first character is a 
letter, advance the horizontal cursor position. 
(110) If the first character entered is not a 
letter, reject it. 


(120) If RETURN is entered, it signals the 
end of the new name INPUT and control 
passes to line 190. (130) If a back arrow is 
entered, store the affected character in a 
temporary string array element, since it may 
be needed again later. (140) If the maximum 
legal filename length is reached, refuse to 
accept any more characters. (150-160) These 
lines concern entry of forward arrows. If the 
affected character is null (i.e., “”) set it toa 
true space. Retrieve from the temporary array 
element corresponding to the affected loca- 
tion any character which may be stored there. 
(170) Reject any attempt to enter a control 
character. (180) Display the character en- 
tered in position on the prompt line and 
GOTO 60 to fetch another. 

(190-200) After a RETURN is encountered, 
check the entire INPUT line backward to find 
the first non-blank space (i.e., the last charac- 
ter of the new filename). (210) Read the input 
space forward, compiling the new filename 
from the characters stored in each string 
array element. RETURN with the new file- 
name to the main RENAME routine at line 
910. 

LINES 220-260 — VARIABLES — the vari- 
ables GO uses are assigned from a subrou- 
tine because some of them have to be reset 
after being clobbered by the DISK SPACE 
routine. GO also uses variables freely to 
speed up execution in FOR...NEXT loops, the 
RENAME INPUT routine and elsewhere. The 
two defined functions (250) are these: FN 
S(R) reads the screen columns containing 
the DOS CATALOG file size figures before 
they are wiped out by GO’s file selection let- 
ters. And FN T(A) is used to center the user 
DISK TITLE, whatever it may be, on the top 
line of the screen. 


OTHER CONSIDERATIONS 

Some cautions: using GO’s DISK SPACE 
function may clobber programs like APPLE- 
SOFT PROGRAMMER’S ASSISTANT which 
co-reside in memory. Similarly, using GO’s 
ADDRESS function when another program is 
co-resident could result in an inaccurate find. 

Although GO was written for DOS 3.3, it will 
also work fine with DOS 3.2...EXCEPT, of 
course, DISK SPACE information will be 
inaccurate. Perhaps the clever programmer 
can rework the values in the DISK SPACE 
routine to make it work for DOS 3.2. I’ve also 
thought that it would be handy to have GO 
display a text screen disk map as part of the 
DISK SPACE function. Another project might 
be to make GO work on systems with less _ 
than 48K RAM. 





LIST 190 FOR X =C - I TOH STEP —- I: IF ASC (C#(X)) + Z< > 
B THEN C = X: GOTO 210 
200 NEXT 
1 REM SSeeeeeeeeeeeeeeeeeeeE 210 FOR X = H TO C:I$ = I$ + CHRS ( ASC (C8(X)) + Z): NEXT 
2 REM # Go * : RETURN 
3 REM * #£«.BY CHRIS GLENN’ & 220 REM VARIABLES (NOTE: B3$ = 3 BLANKS, B40$ = 40 BLANKS 
4 REM *&* COPYRIGHT (C) 1982 # ) 
5 REM ®# BY MICRO-SPARC INC *% 230 C = O:FO = 40:F1 = 41:F2 = 256:I = 1:P = 3:0 = 4:R=5 
& REM # LINCOLN, MA. 01773 *# 2B = 160:Y = 62:H = BsL = 29:F = 7:Z = 128 
7 REM K«eReaeKeReseREesseeess 240 AS = “A":Z$ = “Z":B3S = " “:B4a0$ = " 
20 TS = "GO — DEMONSTRATION 5 
30 GOTO 280 250 DEF FN S(R) = PEEK (C + PEEK (FO) + PEEK (Fi) & F 
40 REM INPUT 2): DEF FN T(C) = INT ((F1 — LEN (T$)) / 2 + .5) 
50 C = H:I$ = "": FOR X = H TO H + L:C$(X) = ""ZTS(X) = "" 260 D$ = CHRS (4):R$ = CHRS (13):F% = CHRS (21):B% = CHRS 
: NEXT (8):S$ = CHRS (32):C$ = CHRS (44):BL% = CHRS (7): RETURN 
60 IF C =H —- I THEN C =H 270 REM SETUP 
70 HTAB C 280 POKE 768,32: POKE 769,12: POKE 770,253: POKE 771,201: 
80 GET C$(C): IF C$(H) = R$ THEN HTAB I: CALL —- 868: INVERSE POKE 772,141: POKE 773,208: POKE 774,3: POKE 775,76 
: POP : GOTO 740 290 POKE 776,44: POKE 777,174: POKE 778,76: POKE 779,60: POKE 
90 IF C$(C) = C$ THEN C$(C) = ""z GOTO 70 780,174: POKE 781,0: POKE 44602,0: POKE 44603,3 
100 IF C$(C) = F% AND T$(C) > = A$ THEN 120 300 POKE 44452,20: POKE 44605,19: DIM A$(22,6),C%(38),TS< 
110 IF C$(H) < AS OR C$(H) > Z$ THEN 70 38): ONERR GOTO 1060 
120 IF C$(C) = R$ THEN CALL - 868: GOTO 190 310 GOSUB 230: PRINT D$"NOMON C,I,0": TEXT = HOME 
130- IF C$(C) = BS THEN TS(C - I) = C$(C —- I1)2C = C - I: GOTO 320 INVERSE : PRINT B40$;: VTAB I: HTAB I: PRINT "<RETURN 
60 >=THIS SCREEN <SPACE>=MORE FILES";: POKE 34,2 
140 IF C =H +L + I THEN PRINT BL$;: GOTO 80 330 HOME : NORMAL : PRINT R$: VTAB I: PRINT D$"CATALOG":V 
150 IF C$(C) = F% AND TS(C) = "" THEN TS(C) = S$ = PEEK (37) —- 2: VTAB 24: PRINT CHR® (10) 


160 IF C$(C) = F% THEN C$(C) = TS$(C):C = C + Ie 


asc (C$(C)) < 32 THEN 60 


GOTO 60 


VTAB V: HTAB C: PRINT C$(C)3;:C = C + Iz: GOTO 40 


continued on page 189 
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QUICK SORT 


Quick Sort 


by C. Bongers eo 
Erasmus University ntry 


Postbox 1738 
3000 DR Rotterdam S=0 : F=1 
The Netherlands 


INTRODUCTION 
Inasimulation study | was working on recently, M=A(INT((L+F)/2)) 
it was necessary to sort about 1000 real I=F : J=L 
numbers at each trial. It readily became 
apparent that the easiest solution, i.e. a BASIC 
bubblesort subroutine, was totally unaccep- 
table because of its tremendous consumption 
of CPU time. Using bubblesort, it took more 
than 2 1/4 hours to sort 1000 reals. Next | tried 
a BASIC sort routine based on quick sort, but 
although CPU time was cut down to 200 secs, 
this still seemed rather long. 

The obvious next step is to get out your old 
MICRO’s, NIBBLES etc. and see if someone, 
somewhere has published a good machine 
language sorting routine. | found one in 
MICRO (July 1979), based on bubblesort, 
which worked fine. The time needed to sort 
1000 reals was appproximately 130 secs. 

However, in BASIC, CPU time was reduced 
by a factor of 40 by using quick sort instead of 
bubblesort, so | wondered whether the same 
factor could be gained by applying quick sort, 
rather than bubblesort, in a machine lan- 
guage program. Table 1 shows that this was 
indeed the case. 








QUICK SORT 

Quick sort is a sorting method which, as its 
name implies, is able to sort large quantities 
of numbers and strings in asurprisingly short 
time. Figure 1 outlines the method in the form 
of a flow diagram. In essence, quick sortisa 
recursive algorithm which works as follows: 
In the first iteration, an element is chosen 
from the array to be sorted. This can be any 
element, but the middle element usually gives 
the best results. Next, two pointers, say F and 
L, are initialized. F points to the first element 
of the array and L to the last. Denoting the 
middie element by M, the element pointed to 
by F is compared with M. If this element is 
smaller than M, F is increased and the second 
element (i.e. the element now pointed to by F) 
is compared with M. This process continues 
until F points to an element that is larger than 
or equal to M. Having found such an element, 
we Start at the other end of the array with the 
pointer L. If the element pointed to by L is 
larger than M, L is decreased and the one but 
last element (i.e. the element now pointed to 
by L) is compared with M. This process con- 
tinues until L points to an element that is 
smaller than or equal to M. Next, the elements 
pointed to by F and L are exchanged ani F is 
increased and L is decreased. If F is not larger 
than L, we start again by comparing the ele- 
ment pointed to by F with M, and the process 
continues. 

As soon as F is larger than L, the array can 
be split up into two parts. The first part (i.e. the 
first element through the element pointed to 
by L) consists of elements smaller than or 
equal to M, and the second part (i.e. the ele- 
ment pointed to by F through the last ele- 
ment) consists of elements larger than or 
equal to M. Hence the array can be sorted just 
by sorting these two sub-arrays separately. 





S=S-1 : F=F(S) : L=L(S) 
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Each of the sub-arrays can be sorted by 
repeatediy applying the method described 
above (note that this makes the method rec- 
ursive), but since only one sub-array can be 
sorted at a time, the starting- and ending- 
point of the second sub-array have to be 
stored so that it can be sorted later. In BASIC 
the natural way to do this is to dimension two 
arrays, say F and L, and to define a pointer, 
say S, which is initialized to zero. The starting 
and ending points of sub-arrays that still have 
to be sorted can now be stored by the instruc- 
tions: F(S)=starting-point: L(S)=ending-point 
:$=S+1. If a sub-array has been sorted, which 
is the case if the ending-point is smaller than 
or equal to the starting-point, the next sub- 
array to be sorted can be found by the instruc- 
tions: S=S-1: starting-point=F(S): ending- 
point=L(S). Before these instructions are 
executed, S must be checked, for if S=S-1 
leads to a negative result, the sorting is 
finished. 

To avoid allocating working storage and to 
increase sorting speed, | have used a slightly 
different method in the machine language 
program, which consists of pushing the end- 
ing and starting points of the sub-arrays that 
still have to be sorted onto the stack. To 
obtain enough room in the stack, the BASIC 
stack is temporarily saved in the input buffer 
before the sorting begins. Usually, the 256 
byte stack is large enough to contain all the 
starting and ending points generated by the 
sort. Some specific series, however, may 
cause stack overflow. | have dealt with this 
problem by letting the whole sorting process 
restart on stack overflow. It appeared that this 
rather crude solution works reasonably well. 


SYNTAX OF THE SORT STATEMENT 
The syntax of the sort statement is: 


& SQR arrayname 


The & causes an unconditional jump to the 
machine language sort routine. In this routine 
the presence of (the token for) SQR is checked 
first, and next the arrayname is evaluated. The 
array must be dimensioned before execution 
of the & SQR statement, or else you get an 
OUT OF DATA error. 

In the simplest case, the array has one 
dimension, which must be larger than zero. 
The sort is then executed on the elements 1 
through N, where N denotes the size of the 
dimension. The 0 th element of the array is 
thus neglected by the sort. Figure 2 shows an 
example. 


40 DIMAQIO) 
20 FORI= 1 TO 10:A(1) = RND (1); NEXT 
30 & SQRA | 
_ 40 FOR I= 1 TO 10: PRINT |,A(I): NEXT 
ROOD SENDS (cou) 


er, 





Figure 2 


TWO DIMENSIONAL ARRAYS 

The sort routine also accepts arrays (matri- 
ces) with two dimensions. |n this case the first 
dimension must be larger than zero and the 
second dimension (i.e. number of columns-1) 
must equal one. If these conditions are not 
met, the error message BAD SUBSCRIPT will 
be generated. 

When a two-dimensional array is men- 
tionedin the & SQR statement, the sort is exe- 
cuted on the elements of the second column 
of the array (except the 0 th element). Thus, if 
an array A, dimensioned with the statement 
DIM A(10,1), is sorted, the sort is executed on 
the elements A(1,1) through A(10,1). All other 
elements (i.e. A(0,0) to A(10,0) and (A(0,1)) are 
lett in place. See Figure 3 for an example. 


10 DIM A%(10,1) 
20 FOR 1= 1 TO 10:A%(1,1) = 5 * RND (1): NEXT 


30 & SQRA% 

40 FOR} = 1 TO 10: PRINT 1,A%(1,1): NEXT 

50 END 

]RUN 

1 0 

2 t) 

3 0 

4 1 

5 1 

6 1 

? 2 

8 2 

9 2 

40 3 
Figure 3 


Although the sorting capabilities described 
above will be sufficient for many purposes, | 
readily discovered that in some cases the user 
runs into trouble. For instance, when the 
ranks of a series of numbers have to be 
determined, one has to find out (after sorting 
the numbers) where each number was origi- 
nally stored in the array, in order to give it its 
rank. 

Although this can easily be done in BASIC, 
much of the time gain of the machine lan- 
guage sort would be lost. 

As another example, suppose that one is 
working with multiple string arrays, each con- 
taining a part of a record. Let's say that the 
array A$ contains names and the array B$ the 
corresponding telephone numbers. Thus if 
A$(I,1)="MARJO", then B$(I,1) equals the 
telephone number of MARJO. 

Clearly, if A$ is sorted, the link with B$ will 
be destroyed and we end up with a worthless 
file. 


THE INDEX OPTION 
To meet these problems, | have added an 
extra option to the sorting routine. This option 
can be used with two-dimensional arrays only 
and is invoked by adding the text ",I” behind 
the array name: 


&SQR arrayname, | 


The I stands for Index and the option has 
the effect that every time two elements in the 
second column are exchanged, the two cor- 
responding elements in the first column will 
be exchanged too. Hence, by initializing the 
first column of the array with the numbers 1 to 
N (or in the case of a string array with the 
strings STR$(1) to STR$(N)), the original 
place of each element A(I,1) can — after the 
sorting — be found in A(I,0). It must be 
remembered that the user him/herself is 
responsible for the initialization of the indi- 


ces. This was purposely not done in the pro- 
gram since it sometimes can be useful to use, 
instead of the series 1 to N, another series. 

Figure 4 shows an example of asort with the 
index option. 


19 DIM A$(5,1) | eee 

20 DATA WIM, JAAP, GERARD, KEES, MICHIEL 

30 FOR | = 1 TO 5: READ AS(I,1):AS(1,0) = STRS (1): NEXT 
40&SQRASI a 

50 FOR! =1TO 5; PRINT |; TAB(. 





);AS(1,0),A$*(1,1): NEXT 





60 END 

JRUN : 
1 3 
2 2 
3 had 
4 § 
5 1 


Figure 4 

THE PERFORMANCE OF QUICK SORT 

The time needed to sort an array of reals 
containing random numbers is for a large N 
approximately proportional to N*LOG(N), 
where the logarithm has base 2. This formula 
can easily be verified by observing that in the 
first iteration, N elements have to be com- 
pared with the middle element. 

Denoting the total number of comparisons 
needed to sort the array by F(N) and assum- 
ing that the two sub-arrays left after the first 
iteration are each of length N/2, we have, 


F(N) = N + 2 * F(N/2) 


Substituting N*LOG(N) for F(N), we see 
that this formula satisfies the equation, i.e. 


N * LOG(N) = N + 2* (N/2) * LOG(N/2) = 
N+N*LOG(N) -N 


Of course the formula gives only an approx- 
imation to the sorting time (because In gen- 
eral the sub-arrays will not be of equal length 
and because the sorting time will depend on 
the number of exchanges as well, but the 
approximation is usually surprisingly accurate. 

Itis interesting to note that the time needed 
to sort an array using bubblesort varies 
approximately proportionally with N*N/2. This 
means that on the average, quick sort sorts an 
array N/(2*LOG(N))*100% faster than bub- 
blesort. For N=1000 this means about a factor 
of 50 faster and for N=4000 about a factor of 
170. 

Table 1 shows some specific sorting results 
for reals. The second column of the table 
gives the time (in seconds) needed to sort 
1000,...,8000 reals. The least squares line sort- 
ing time=3.6 E-04 * N* LOG(N) fits these data 
very well. 

The third and the fourth column give the 
results if the input of the sort routine is an 
array that is already sorted, ascending and 
descending, respectively. The fifth column 
gives an indication about the price that has to 
be paid if the index option is used. As can be 
seen, the sorting time for randoms increases 
by approximately 30%. 

The sixth column requires some explana- 
tion. Due to the method of sorting used, there 
exists some series that result in a bad perfor- 
mance. An example of such a series is given 
below. 


02468101214 16 18 20 135 154173192211 
continued on next page 
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By sorting this series by hand, using the 
flow diagram, it can be seen that (in the 
beginning) each row of length K splits upina 
row of length 2 and a row of length K-2. This 
leads to a very low exchange/comparison 
ratio and it also causes stack overflow for 
moderate values of N. However, the sorting 
times are still reasonable and do not seem to 
justify corrective programming action. 

The last column shows the performance of 
bubblesort. This column needs no further 
explanation. 


THE MACHINE LANGUAGE PROGRAM 

The machine language program is listed in 
Figure 5. It has a length of 578 bytes ($242 
Hex) and starts at $81C0. After assembling 
the text file and storing it to disk, the program 
can be installed by : BRUN QUICK SORT. 

This command executes an initialization 
routine which sets HIMEM TO $81CO and 
installs the & vector. The program makes use 
of some Applesoft routines in ROM; thus, if 
the RAM version of Applesoft is used, the 
relevant subroutine calls must be adjusted. 


TABLE 1: SORTING TIMES (INSECS) FOR REALS 


quick sort bubblesort 
(>> or ca aS Tn ROS RE Le nn la ee eee 
dim of randoms sorted sorted randoms special randoms 
array ascend. descend. indices series 
1000 3 2 2 3 9 129 
2000 6 4 4 8 20 513 
4000 12 8 8 16 38 2044 
6000 18 12 13 - 57 : 
8000 26 16 18 - - - 


(-) means out of memory or out of patience 


HOW TO ENTER QUICK SORT 

The QUICK SORT was assembled using an 
Assembler program. You do not need an 
Assembler to load it into your Apple, however. 

The program can be directly entered into 
memory using the Hexadecimal Codes which 
immediately follow the memory locations. To 
do this, enter the monitor by typing CALL 
-151. The asterisk should appear on your 
screen. 

Now you can begin entering the program at 
memory location $81CO by typing pairs of 
hexadecimal characters: 


81 C0:A9 CO 85 73 AQ 81 85 74 AY D3 etc. 


Consult page 44 of your Apple Reference 
Manual for more information on entering Hex 


codes. 
When you have finished entering the pro- 
gram, reenter Basic by typing: CTRL C. Then 


type: 
BSAVE QUICK SORT,A$81C0,L$242 


That's all there is to it. 





8290: le 

9998 2 * QUICKSORT 

9999: 3s 

9289 4 + BY C. BONGERS 

9888 5 « 

BOBB: 6 « COPYRIGHT (C) 1982 

9898 7 + BY MICROSPARC, INC. 

9B0B 8 + LINCOLN, MA 81773 

8998 9 « 

8886 : 18 + DOS TOOL KIT ASSEMBLER 

9899 : ll « 

----- NEXT OBJECT FILE NAME IS QUICKSORT 

81CB: 12 ORG $81C8 

9949 13 IC EQU $49 I (CHAR) 

9986 14 RFLAG EQU $86 REALS/INT/STR FLAG 
2987 15 PAR EQU $987 MASK FOR INTEGERS 
9888 16 HFL EQU $88 ELEMENT TUNER 

9564 17 FLAG EQU $64 FLAG/COUNTER 

9817 18 L EQU $17 POINTER TO N TH ELEMENT 
8819 19 F EQU $19 POINTER TO 1 TH ELEMENT 
9G1B: 20 J EQU $1B TEMP FOR L 

91D: 21 4 EQU $1D TEMP FOR F 

OO1F: 22 SPT EQU $1F STACK POINTER STORAGE 
9973: 23 HIM EQU $73 HIMEM 

969B: 24 SARA EQU $9B GENERAL 

99D: 25 IST EQU $9D GENERAL 

BBAD: 26 AGEB EQU $A GENERAL 

OBAS : a7 IFL EQU $A5 INDEX FLAG 

BBAG : 28 IN1 EQU $A6 GENERAL 

BAB: 29 IN2 EQU $A8 GENERAL 

@BAD: 38 MULT EQU $AD COLUMN LENGTH 
OOFA: 31 SAVE EQU $FA BACK UP FOR L AND F 
9120: 32 STACK EQU $1086 STACK 

B200: 33 IBUF EQU $2808 INPUT BUFFER 

@3F5 34 BJP EQU $3F5 & VECTOR 

EAF9: 35 TMFP EQU $EAF9 PULL NO IN MFP 
E2B6: 36 M2BT EQU $E2B6 2 BYTE MULTIPLY 
EBB2: 37 CMP EQU $EBB2 COMPARE MFP WITH MEMORY 
F7D9: 38 GNAME EQU $F7D9 EVALUATE ARRAY NAME 
DEBE : 39 CKOM EQU $DEBE CHECK ON COMMA 
@2B1 49 CHNW EQU $B1 GET NEXT CHARACTER 
99B7 41 CHOLD EQU $87 GET OLD CHARACTER 
E196: 42 BDSB EQU $E196 BAD SUBSCRIPT 

DEC9 43 SYN EQU $DEC9 SYNTAX ERROR 

81C9: 44+ 

81C@: 45 + 

81C8: 46 +» INITIALIZATION 

81CB: 47 « 

81CB:A9 CH 48 BEGIN LDA #BEGIN 

81C2:85 73 49 STA HIM SET HIMEM 

81C4:85 6F 52 STA $6F 

81C6:A9 81 51 LDA #<BEGIN 

81C8:85 74 52 STA HIM+1 

81CA:85 78 53 STA $76 

81CC:A9 D7 54 LDA #START 

81CE:8D F6 93 55 STA BJP+1 SET & VECTOR 
81D1:A9 81 56 LDA #<START 

81D3:8D F7 93 57 STA BJP+2 

81D6:69 58 RTS 

81D7: 59 « 

81D7: 68 »« MAIN PROGRAM 

81D7: 61 « 

81D7:C9 DA 62 START CMP #218 TOKEN FOR SQR ? 
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83 
co 
Bl 
D9 
2 
A5 
B7 
@C 
BE 
49 
42 
A5 
Bl 
82 


12 
9C 


G2 
11 
88 
83 
95 


86 
64 
88 
82 


9B 
9B 


64 
17 


9B 
v4) 4) 


9c 
18 


9B 
82 
29 
AS 
G2 
OF 
96 


9B 
F8 


9B 
G2 
Fl 


9B 
82 
AD 


DE 
9 
F7 


v4) 


DE 


1)) 


El 


63 
64 
65 
66 
67 
68 
69 
76 
71 
72 
73 
74 
75 
76 
77 
78 
79 
88 
81 
82 
83 
84 
85 
86 
87 
88 
89 
98 
91 
92 
93 
94 
95 
96 
97 
98 
99 
190 
191 
182 
183 
104 
105 
106 
187 
188 
189 
1198 
111 
112 
113 
114 
115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 


BEQ 
JMP 
JSR 
JSR 
LDY 
STY 
JSR 
BEQ 
JSR 
CMP 
BNE 
DEC 
JSR 
LDX 
TYA 
BIT 
BMI 
INX 
LDY 
LDA 
EOR 
BPL 
LDX 
INY 
STA 
STX 
STY 
LDY 
CLC 
LDA 
ADC 
PHP 
SEC 
SBC 


NSYN 


NIN 


STFL 


STA 


INY 
LDA 
SBC 
PLP 
ADC 
STA 
INY 
LDA 
CMP 
BEQ 
LDA 
BMI 
BCC 
JMP 
INY 
LDA 
BNE 
INY 
LDA 
CMP 
BNE 
INY 
INY 
SEC 
LDA 
SBC 
STA 
DEY 


TYP 
EAL 


ONLY 


NSYN 
SYN 
CHNW 
GNAME 
#$99 
IFL 
CHOLD 
NIN 
CKOM 
#1C 
TYP 
IFL 
CHNW 
#$82 


$12 
STFL 


#$82 
$11 

#$89 
STFL 
#$05 


RFLAG 
FLAG 
HFL 
#$82 


(SARA) , Y 
SARA 


FLAG 
L 


(SARA) ,Y 
#$08 


SARA+1 
L+1 


(SARA) ,Y 
#$82 

EAL 

TFL 

TYP 
ONLY 
BDSB 


(SARA) ,Y 
TYP 


(SARA) ,Y 
#$02 
ye 


(SARA) ,Y 
#$02 
MULT 


BRANCH IF SO 

SYNTAX ERROR (JMP STORI 
ADVANCE TEXTPOINTER 
EVALUATE ARRAYNAME 


CLEAR INDEX FLAG 

GET OLD CHARACTER 

NO INDICES IF Z.F. SET 
CHECK ON COMMA 

COMPARE WITH ‘I' 

ERROR IF NOT PRESENT 
SET INDEX FLAG 

ADVANCE TEXT POINTER 


ACCU=8 
BRANCH IF INTEGERS 


BRANCH IF STRINGS 


INIT REALS/INT/STR FLA 


CALCULATE POINTER TO 
LAST ELEMENT OF ARRAY 


NO OF DIMENSIONS 

MUST BE «<3 

BRANCH IF 2 DIMENSIONS 
NO INDICES PERMITTED 
IF 1 DIMENSION 

BRANCH IF 1 DIMENSION 
ELSE BAD SUBSCRIPT ERR‘ 


SECOND DIMENSION 
MUST BE 1 WHEN PRESEN’ 


PREPARE MULTIPLICATION 
FIRST DIMENSION-2 
WITH FLAG 


Qu 


24F:B 


251 


261 


26F : 


271 


273: 
275: 
ai7: 
279: 
27A: 
27C: 
27E: 
27F: 


281 


283: 
285: 


287 


288: 
28A: 
28B: 
28D: 
28E: 
290: 
292: 
294: 
295: 
297: 
299: 
29B: 
29D: 
29F: 
2AG : 


2Al 


2A3 : 
2A5: 
2A7: 
2A9: 
2AB: 


HL =C) 
253: 
255: 
257: 
258: 
25A: 
25D: 
269: 
:D@ 
263: 
264: 
265: 
268: 
26A: 
26C: 
26D: 


85 
98 
BA 
86 
BD 
9D 
E8 


8A 
9A 
2 
86 
84 
38 
A2 
BS 


795 


F5 
95 
95 
E8 
DS 
AS 
BA 
65 


785 


98 
E6 


:CA 


AS 
6A 
BS 
CA 
86 
C6 
19 
38 
AS 
65 
85 
98 
E6 
69 
18 


:A5 


2AC: 
2AE : 
2BG : 
2B2: 
2B4: 
2B6 : 
2B8 : 
2B9: 
2BB : 
2BD: 
2BF : 
198 
2C3: 
2C4: 
2C6: 
2C8: 
2C9: 
2CC: 
2CF: 
2D8 : 
2D2: 
2D3: 
2D5: 
2D6: 
2D8 : 
2D9 : 
2DB : 
2DD: 
2DF : 


2C1 


2E1 


2E2: 
2E4: 
2E5: 
ces: 
2E9: 
2EA: 
ZEC: 
FEE: 
2EP: 
2FO: 


ar 1 


2F2: 
2F4 : 
2F5: 
ara 


2F9: 
2FA: 


E5 
85 
BS 
C6 
68 
AS 
C5 
98 
Dg 
A5 
c5 
69 
AS 
c5 
AS 
E5 


BA 
DS 
A6 
9A 
BD 
9D 
E8 
De 
66 
A2 
68 
95 
CA 
1g 
A2 
BS 
95 


:CA 


16 
18 
AS 
65 
AA 
AS 
65 
6A 
A8 
8A 


6A 


99 
18 
65 
98 
c8 
24 


v1)4) 
AE 
DF 


1F 
v4) 
99 


FF? 


B6 
AD 
AE 


FE 
19 
FC 
AF 
1B 
FE 


F3 
64 


AD 
AD 
@2 
AE 


17 
G1 


87 
64 
47 


64 
1D 
1D 
G2 
1E 


1B 
64 
1B 
92 
1c 


1c 
1E 
96 
84 
1B 
1D 


19 
17 
1A 
18 
18 


@D 
1F 


4) 
14) 


ick So 


G1 
@2 


E2 


@2 
G1 


rt (Cont.) 


126 
127 
128 
129 
139 
131 
132 
133 
134 
135 
136 
137 
138 
139 
148 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
171 
172 
173 
174 
175 
176 
177 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
Is 
192 
193 
194 
195 
196 
197 
198 
199 
286 
281 
262 
293 
204 
205 
206 
207 
208 
299 
2108 
21] 
212 
213 
214 
215 
216 
217 
218 
219 
2208 
221 
222 
223 


Dl 


DLLL 


DECF 


MFL1 


ADD5 


RTS1 
SBC5 


YRDY 
CMIJ 


RTS2 
CMIJ1 


D2 


EMOS 
DAL 


MFL 
DAAL 


224 NPR 


LDA 
SBC 
STA 
BCC 
TSX 
STX 
LDA 
STA 
INX 
BNE 
TXA 
TXS 
JSR 
STX 
STY 
SEC 
LDX 
LDA 
STA 
SBC 
STA 
STA 
INX 
BNE 
LDA 
ASL 
ADC 
STA 
BCC 
INC 
DEX 
LDA 
ROR 
BCS 
DEX 
STX 
DEC 
BPL 
SEC 
LDA 
ADC 
STA 
BCC 

INC 
RTS 
CLC 
LDA 
SBC 
STA 
BCS 
DEC 
RTS 
LDA 
CMP 
BCC 
BNE 
LDA 
CMP 
RTS 
LDA 
CMP 
LDA 
SBC 
BCC 
TSX 
BNE 
LDX 
TXS 
LDA 
STA 
INX 
BNE 
RTS 
LDX 
PLA 
STA 
DEX 
BPL 
LDX 
LDA 
STA 
DEX 
BPL 
CLC 
LDA 
ADC 
TAX 
LDA 
ADC 
ROR 
TAY 
TXA 
ROR 
BCC 
CLC 
ADC 
BCC 
INY 
BIT 


(SARA) ,Y 
#308 
MULT+1 
TYP 


SPT 
STACK , X 
IBUF , X 


Dl 


M2BT 
MULT 
MULT+1 


#$FE 
L+2,X 
SAVE+2 , X 
MULT+2, X 
F+2,X 
SAVE+4 , X 


DLLL 
FLAG 
A 
MULT 
MULT 
DECF 
MULT+1 


F+1 
L+1 
MFL 


EMOS 
SPT 


IBUF , X 
STACK , X 


D2 


FIRST DIM MUST BE >@ 
SAVE STACK POINTER 


SAVE STACK IN INPUT BUFFER 


INIT STACK POINTER 
EXECUTE MULTIPLICATION 
STORE RESULT IN MULT 


CALCULATE POINTER TO 
START OF COLUMN AND 
STORE IN F 


BACK UP L AND F 
IN SAVE 


ACCU=2 «FLAG 


MULT=COLUMN LENGTH 


SET PAR FOR INTEGERS 
ADJUST FLAG 
ALWAYS 


I=1+2/3/5 


J=J-2/3/5 


COMPARE I WITH J 
RETURN WITH 

CARRY CLEAR IF J<I 
ZERO FLAG SET IF J=I 
CARRY SET IF J>=I 


POINTER TO START<POINTER 
TO BEGIN OF SUB-COLUMN ? 


BRANCH IF SO 
READY ? 
BRANCH IF NOT 


RESTORE STACK POINTER 
AND STACK 


RTS TO BASIC 


GET POINTER TO START 
AND END OF SUB-COLUMN 
IN L AND F 


ao 
Wout 


ir 


CALCULATE POINTER TO 
MIDDLE OF SUB-COLUMN 


ADJUST IF RESULT NOT EVEN 


REALS ? 


82FC: 
82FE: 
8320: 
8302: 
8304: 
8306: 
8388: 
830A: 
830C: 
830F: 
8319: 
8312: 
8314: 
8317: 
8319: 
831B: 
831E: 
8320: 
8322: 
8325: 
8327: 
832A: 
832C: 
832E: 
8331: 
8333: 
8336: 
8338: 
833A: 
833C: 
833E: 
833F:: 
8341: 
8343: 
8344: 
8346: 
8347: 
8349: 
834B: 
834D: 
834E: 
8350: 
8351: 
8353% 
8355: 
8357: 
8359: 
835B: 
835D: 
835F: 
8360: 
8362: 
8364: 
8366: 
8367: 
8369: 
836B: 
836C: 
836E: 
836F: 
8371: 
8374: 
8377: 
837A: 
837C: 
837E: 
83890: 
8382: 
8384: 
8386: 
8388: 
8389: 
838B: 
838C: 
838E: 
838F: 
8391: 
8392: 
8393: 
8395: 
8397: 
8399: 
839B: 
839C: 
839E: 
83A1: 
83A3: 
83A5: 
83A7: 
83A9: 
83AC: 
83AF : 
83B1: 
83B3: 
83B5: 
83B7: 
83B9: 
83BB: 
83BC: 


v4) 


EA 


83 


82 


82 


83 


82 


82 
82 
82 


82 


82 
EB 


225 
226 
227 
228 
229 
236 
231 
232 
233 
234 
235. 
236 
237 
238 
239 
2408 
241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 
252 
253 
254 
255 
256 
257 
258 
259 
269 
261 
262 
263 
264 
265 
266 
267 
268 
269 
276 
271 
272 
273 
274 
275 
276 
277 
278 
279 
289 
281 
282 
283 
284 
285 
286 
287 
288 
289 
298 
291 
292 
293 
294 
295 
296 
297 
298 
299 
30 
381 
382 
383 
304 
305 
386 
387 
388 
369 
318 
311 
312 
313 
314 
315 
316 
317 
318 
319 
328 
321 
322 
323 


SSAR 


DNI 


PNFP 
DNE 
GNN 


GNNN 
GAJ 


EXIJ 


NYSB 


EXIN 


NCH 


POS 


POS1 


SNP1 


DNOT 


CRLS 
CMP2 


BMI 
BVS 
ORA 
AND 
STA 
STY 
LDY 
LDA 
STA 
DEY 
BPL 
BMI 
JSR 
LDA 
LDY 
JSR 
BEQ 
BMI 
JSR 
BNE 
JSR 
LDA 
LDY 
JSR 
BMI 
JSR 
BCC 
BEQ 
LDY 
LDA 
TAX 
LDA 
STA 
TXA 
STA 
DEY 
BPL 
LDA 
BEQ 
DEY 
LDX 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
LDX 
INY 
BNE 
LDY 
LDA 
TAX 
LDA 
STA 
TXA 
STA 
DEY 
BPL 
JSR 
JSR 
JSR 
BCS 
LDA 
CMP 
LDA 
SBC 
BCS 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
TSX 
BNE 
LDX 
LDA 
STA 
DEX 
BPL 
JMP 
LDA 
STA 
LDA 
STA 
JMP 


JMP 


BIT 
BMI 
STA 
STY 
BVS 
LDY 
SEC 
LDA 


PNFP 
SSAR 
#$01 

PAR 

SARA 
SARA+1 
FLAG 
(SARA) , Y 
IST,Y 


DNI 
DNE 
TMFP 
I 
I+1 
CMP2 
GAJ 
GAJ 
ADD5 
GNN 
SBC5 
J 
J+1 
CMP2 
GNNN 
CMIJ 
POS 
NCH 
FLAG 
CDay 


IN1+1,X 
#$92 


NYSB 
FLAG 
(IN1),Y 


(IN2) ,Y 
(IN1),Y 


CIN2),Y 


EXIN 
ADD5 
SBC5 
CMIJ 
DNE 
I 

L 
I+1 
L+1 
DNOT 


DNOT 
#$83 
SAVE , X 
LX 


SNP1 
MFL 

J 

E 

J+1 
L+1 
CMIJ1 
CMP 
RFLAG 
CRLS 
SARA 
SARA+1 
GNYU 
#$01 


(SARA) ,Y 


BRANCH IF SO 

BRANCH IF STRINGS 
ADJUST ACCU IN CASE 
OF INTEGERS 


STORE INTEGER OR STRING 
INFO IN IST 


ALWAYS 

PULL NO IN MFP 
COMPARE NO WITH A(I) 
BRANCH IF NO<=A(1) 
I=1+2/3/5 


ALWAYS 
J=J-2/3/5 


COMPARE NO WITH A(J) 
BRANCH IF NO<A(J) 
COMPARE I WITH J 
BRANCH IF J<I 

DON'T EXCHANGE IF I=J 


EXCHANGE A(I) AND A(J) 


INDEX FLAG SET ? 
BRANCH IF NOT 


IN1=J-COLUMN LENGTH 


IN2=I1-COLUMN LENGTH 


EXCHANGE INDICES 


I=1+2/3/5 
J=J-2/3/5 
COMPARE I WITH J 
BRANCH IF J>=I 


Is=L >? 


BRANCH IF SO 


PUSH L ON STACK 


PUSH I ON STACK 


CHECK ON STACK OVERFLOW 
BRANCH IF OK 

STACK OVERFLOW ! 

RESTORE L AND F 


AND TRY IT AGAIN 

L=J 

SORT NEXT SUB-COLUMN 
COMPARE NO WITH MEMORY 


REALS ? 
BRANCH IF SO 


BRANCH IF STRINGS 
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a MW be? ae re bade Fae PON RST PN ee wan bit an i a resto he ae mule aa qlebvarsiaee ed adn? Gane iy : 

Ne *O" + KS: GOTO 55° > Be ee age aI RO RR Oe cok 

S2 IF Kis = “A”" AND (K2% < "A" OR K2$ > "Z") THEN VTAB 17: PRINT “INVALID 
ENTRY... USE A-Z": GOTO Si ae aye ne ia An Ren i kare 

SS IF Kit = "B" AND (K2$ < "A" OR K2*% > "K") THEN VTAB 17: PRINT “INVALID 


ENTRY... USE A-K": GOTO 5i 
54. VG$ = Kis + K23. | 
55 ONERR. GOTO 102 yee OL aR an) SP st ae ; tra 
56 VC = LEN (VCH): FOR 0 = 1°TO S00: NEXT s HOME :ZZ = O: PRINT D$:AA = 
—. d:BB = K:CC = i: PRINT D$;"OPEN INDEX,L";RL:I = AA: IF VCS < > 






Go en THEN SQ saan meee 

S7 VY = VY. + 1527. =. 27. + 1: .GOSUB Ss. PRINT. V¥3") "3 B82 IF 2Z = 21 THEN =| J 
- .- PRINT D¢:r PRINT "PRESS ANY KEY TO CONTINUE: ";:: GET K%: PRINT K#: 7 
58 GOTO 41 ; 


S59 IF VC$ = LEFTS (C$(1),VC) THEN GOSUB 3:YY = YY + 1:ZZ = ZZ + 1: 
»-° PRINT YY3") "38S SP ieee . . ; 

60. IF ZZ = 21 THEN PRINT D#: PRINT “PRESS ANY KEY TO CONTINUE "3: 

Ke: PRINT K$:2Z = O: HOME 

Io= 1: +. CCCs IF I-<..0O OR I>. BR THEN 64 

"8 THEN 57°; 

> "" THEN 5S? 

LCLOSE INDEX": VCS = ""sVO = O:l = OfFY = O:YY = O: 

LINN KEY FOR MENU";: GET K%: PRINT K%: GOTO 257 
PRINT “S) INGLE... D)OUBLE COL PRINT. RTN=ME 

IF DC# <--> "S™" AND DCS < > "D" AND DCS 


Ai. HEN 25 ma" = 
S| 7 A » 
as 
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APPLESOFT LINE EDITOR (A.L.E.) 








Applesoft Line Editor 


by Joe Brooks 
521 Moody 
Athens, TX 75751 


Al ve. Applesoft Line Editor (A.L.E.) is a full- 
featured editing program that adds pow- 
erful editing commands and expanded cursor 
control to the 48K APPLE Il. It is written in 
assembly language, and designed for use 
with Applesoft BASIC in ROM. With a touch of 
the Ampersand key, A.L.E. lists the program 
lines using the full 40 character width of the 
screen and prints control characters in the 
inverse mode. Some of its other features are 
Auto-Line Numbering, Insert & Delete, and 
Auto Cursor Forward & Backward. 

To save A.L.E. to disk or tape, first type the 
program into memory. This can be done 
using an assembler (| used the S-C Assembler 
ll, Version 4.0), or you may use direct memory 
entry. If you are not sure how this is done, 
refer to pages 43 & 44 of the APPLE II Refer- 
ence Manual. For direct memory entry, first 
enter the Monitor by typing CALL-151. Then 
begin entering the machine language code by 
Typing. 9060:A9 4C 8D F5 03 etc. To save to 
disk, type BSAVE A.L.E., A$9010,L$3EF. Type 
9010.93FEW to save to tape. 

To use A.L.E. from tape, type CALL -151, 
then 9010.93FER. After the program is in 
memory, type 9010G to initialize it, then CTRL 
C to return to Applesoft. To use from disk, 
type BRUN A.L.E. Normally, any program 
previously in memory will not be altered. 

The program is now ready to use. To edit 
your first line, type: 


&<LINE NUMBER> 


If the line number is in memory, the entire 
line will first be printed on the screen, then the 
cursor will be positioned following the line 
number. If it is not in memory, then only the 
line number is printed, followed by the cursor. 
A.L.E. is now in NORMAL mode, awaiting 
input. 

Inthe NORMAL mode, all keys will perform 
normally, except for the following: 
<RIGHT ARROW> Operates nor- 
mally, except that 
the cursor will 
advance only one 
space past the 
last character in 
the line. 
Operates nor- 
mally, except the 
cursor will not 
backspace beyond 
the first charac- 
ter of the line 
number. 

Printed ininverse 
text. 

Sets program to 
EDIT mode. 


<LEFT ARROW> 


<CTRL-CHARACTERS>: 
<ESC> 

Inthe EDIT mode, the following options are 
available: 


I : Insert a character 
D : Delete a character 


F : Auto Cursor Forward 

B : Auto Cursor 
Backward 

<ANY KEY> Stop Auto Cursor 

<LEFT ARROW> Cursor up 

<RIGHT ARROW> Cursor down 

A : Accept as is 

<RETURN> Accept up to cursor 

N : Accept as is, then 
go to the next line 
number 

R : Accept up to cur- 
sor, then go to the 
next line 
number 

x Exit to Applesoft 

M Left Bracket ([) 

/ Backslash(\) 

= Underline (_ ) 

<SPACE BAR> Enter NORMAL 
mode 


INSERT & DELETE 

The Insert command (I key) will shift all 
characters one space to the right, beginning 
at the cursor position. A space is left at the 
cursor. 

The Delete command (D key) deletes the 
character under the cursor, then shifts the 
remaining characters, from the cursor to the 
end of the line, one space to the left. 

These commands do not exit the EDIT 
mode. This allows, for example, pressing the! 
key three times to make room for three char- 
acters. Pressing the SPACE BAR will enter 
the NORMAL mode. 


AUTO CURSOR 
This function will move the cursor automat- 
ically forward (F key) or backward (B key). It 
will continue moving until any other key is 
pressed, or until it reaches the end or begin- 
ning of the line. By pressing the SPACE BAR, 
movement will stop, and A.L.E. will enter 
NORMAL mode. The cursor speed can be 
changed by typing POKE 30,<SPEED> from 
Applesoft, where <SPEED> can be any 
integer ranging from Oto 225. 1 is fast, and 255 

is slow. It is initially set to 150. 


CURSOR UP & DOWN 
In the EDIT mode, the LEFT ARROW per- 
forms as an up arrow, and the RIGHT ARROW 
becomes the down arrow. The cursor will not 
go below the bottom line or above the top line. 
A.L.E. remains in EDIT mode. 


ACCEPT & EXIT COMMANDS 

By pressing theAkey, A.L.E. will accept the 
entire line, regardless of cursor position, and 
then exit to Applesoft. Pressing the RETURN 
key performs normally, and accepts the line 
up to the cursor. Then it exits to Applesoft. 

The N key performs as the A key, except, 
instead of exiting to Applesoft, the Auto-Line 
Number function is activated. Also, the R key 
will accept up to the cursor, and then perform 
the Auto-Line Number function. 

The Auto-Line Number function increments 
the line number to the next actual line in 
memory, then, as when A.L.E. was first acti- 
vated, the new line is printed on the screen, 
with the cursor positioned after the line 
number. If this was the last line in memory, 
A.L.E. will exit to Applesoft. 


Sometimes, perhaps when typing in a new 
program, you may want the Auto-Line Number 
function to have a pre-defined increment. No 
problem!! The line number increment may be 
set by typing POKE 31,<INCREMENT> from 
Applesoft, where <INCREMENT> may be 
any integer ranging from 0 to 255. If the 
increment is set to 0, (Default value), the 
Auto-Line Number function will perform as 
described above, locating the next actual line 
in memory. 

To exit from A.L.E. to APPLESOFT without 
changing the line in memory, type the X key 
(this isthe same as CTRL-X from APPLESOFT). 

The ACCEPT command removes all un- 
necessary spaces from the edited or newly 
typed line, before utilizing the Applesoft ROM 
routines to enter the line into memory. This 
will allow typing in and editing long program 
lines without worrying about the spaces. 
(Applesoft allows 239 characters maximum.) 


SPECIAL CHARACTERS 
As most know, Applesoft will print the 
RIGHT BRACKET symbol (]) by typing 
SHIFT-M. A.L.E. does this in NORMAL mode. 
Additional special characters may be obtained 
from the EDIT mode by typing the M key for 
the left bracket ([), the DIVIDE key for the 
backslash(/), and the MINUS key for the 
underline character (__). These characters 

set the program to NORMAL mode. 


HOW IT WORKS 

A.L.E. resides in memory starting at $9010. 
The actual program is 1006 bytes in length. In 
addition, it uses 512 bytes for buffer space, 
which is located above the program, starting 
at $9400. 

The program consists of five sections. The 
first (INITIALIZE) initializes the system. The 
second (LINE NUMBER INPUT) analyzes the 
input for proper syntax. The third section 
(PRINT LINE & STORE IN BUFFER) looks for 
the line number which is entered, then it 
prints the entire line if it is found, or only the 
line number if not. As the characters are 
printed on the screen, they also are stored in 
A.L.E.’s buffer. The fourth section (EDIT BUF- 
FER ROUTINE) modifies the contents of the 
buffer (and the characters on the screen) as 
desired. The final section (PUT BUFFER 
INTO APPLESOFT) transfers the programs’ 
buffer into the keyboard buffer, and then lets 
Applesoft ROM store it into memory. If Auto 
Line Number is in effect, this section also 
“types” the new line number into the key- 
board buffer, and then jumps to the LINE 
NUMBER INPUT section. Each of these sec- 
tions will now be described in more detail. 
Reference should be made to the assembly 
listing. 


INITIALIZE 

When A.L.E. is loaded into memory, it must 
be initialized before it may be used. This is 
done by BRUN from disk, or 9010G from tape. 

First, the Ampersand (&) vector (this is the 
address location ($3F5) that Applesoft jumps 
to when it encounters the &) is set to the 
starting address of the program. Next, HIMEM 
is moved down below the program to 36880 
($9010). This protects the program from Apple- 
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Applesoft Line Editor (A.L.E.) 
(Cont.) 


soft. Also, the DELAY (this determines the 
speed for the Auto Cursor function) and the 
Auto Line Number increment INCR are set. 
This section of the program is not used again, 
until the next time A.L.E. is loaded. 


LINE NUMBER INPUT 

This is the actual start of the program. The 
characters typed after the & symbol are 
checked to see if they are numeric. If not, a 
jump is made to SNTXER ($DEC$9), which is 
the Applesoft ROM routine to print “SYNTAX 
ERROR’. If input is numeric, Applesoft rou- 
tines CHRGOT ($B7) and (LINGET ($DA0C) 
are used to store the line number into LIN- 
NUM ($50.$51). LINGET will exit to SNTXER 
if the line number is greater than 63999. 


PRINT LINE & STORE IN BUFFER 

After the text pointer TXTPTR ($B8), the 
vertical tab counter VCOUNT, and the pro- 
gram buffer are zeroed, the CHRGET routine 
($B1) fetches the line number (that was typed 
in) one character at a time. Each time, the 
program goes to the subroutine PSII. This 
subroutine prints the character (inverse if itis 
a control character), stores the character into 
the program buffer, increments the buffer 
pointer BUFPTR, and then increments the 
vertical tab counter VCOUNT, if necessary. 
After the line number is printed and stored, 
the subroutine SPSII is used to print and store 
a space. Next, the horizontal position of the 
cursor is stored so that it may be later returned 
to its present position. The APPLESOFT rou- 
tine FNDLIN ($D61A) is used to see if the line 
number (stored in LINNUM) is in memory. If it 
is not, a branch is made to the next section. If 
the line is in memory, LOWTR ($9B), is set to 
its link field (line pointer) address. The next 
step is to print the line. This is done one char- 
acter at a time using LOWTR and the PSII 
subroutine. The exception is the fact that 
Applesoft stores its commands (keywords) as 
tokens. These tokens, when encountered, 
must be converted to characters, and then 
each character printed and stored. This is 
done at TOKEN. 

The keywords are listed on page 121 of the 
Applesoft manual. They are stored in the 
token table (ASCII code) in that exact order, 
with the last character of each keyword 
marked by having bit 7 (MSB) set. 


For example: 





‘Hexaddress- DODO 0D! 
-ASClicode- = 45 4E 
‘Characte-  E ON 


By subtracting 127 ($7F)from the token 
number, we can find the location of the key 
word. For example, the keyword FOR: 128 
($81) — 127 ($7F) = 2. FOR is the 2nd keyword 
in the table. 

After finding the keyword, it is printed and 
stored using the subroutine PSII at PRTTOK. 
A space is printed before and after each key- 
word using the subroutine SPSII. Note the 
Applesoft routine INCLD ($D72C). This in- 
crements the token table pointer TOKPTR 
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and then loads the A register (accumulator) 
with the character pointed to by TOKPTR. 


EDIT BUFFER ROUTINE 

After the line is printed and stored in the 
buffer, BUFPTR and the cursor position are 
reset to the values stored in the previous sec- 
tion. We are now ready to edit the buffer. 

The various routines in this section edit the 
line printed on the screen, and also, the pro- 
gram buffer, which contains a “duplicate 
image” of the linein ASCII code. The program 
buffer does not contain any tokens. The key- 
words will be tokenized in the next section of 
A.L.E. It is important that any changes made 
onthe screen also be made at the appropriate 
address inside the buffer. This is done by 
incrementing or decrementing 
BUFPTR (which points at the buffer address 
to be changed) by the distance that the cursor 
has traveled. 

The EDIT commands use several program 
and ROM routines. KEYIN is the keyboard 
input routine used in NORMAL mode, and 
CMD is the input routine used in EDIT mode. 
These routines use the Applesoft ROM rou- 
tine INCHR ($D553), which is the character 
input routine. The ASCII character input is 
then compared to ASCII values representing 
specific keys, which in turn determines the 
routine which the program is to execute. 

BSPACE ($FC10), used in BCKARR, 
AUTBCK, and the subroutine FLASH, is a 
MONITOR ROM routine to backspace the 
cursor One position. It is followed by either 
the subroutine DECBUF, which decrements 
BUFPTR, or PRTCHR, which moves the cur- 
sor back to its original position, thus requir- 
ing no change to BUFPTR. PRTCHR uses 
COUT1 ($FDFO), the MONITOR ROM routine 
to output a character to the screen. It sets bit 7 
(of register A) for normal video output. For 
control characters, bit 7 is not set, and COUT1 
prints inverse video. 

Another useful MONITOR routine is VER- 
TAB ($FC22), which positions the cursor ver- 
tically to the value stored in VPOS ($25). 

The UPARR (UP ARROW) routine moves 
the cursor up one vertical position, then 
decrements BUFPTR by 40. A check is first 
made to see if the cursor is on the top line 
(VCOUNT = 0), and if so, no action is taken 
and a jump is made to CMD. The DNARR 
(DOWN ARROW) routine is similar, moving 
the cursor down and incrementing BUFPTR 
BY 40. A check is first made for the bottom 
line by incrementing BUFPTR, then checking 
for a “00” where BUFPTR points inside the 
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buffer. If it is a “OO”, the program aborts by 
resetting BUFPTR, and then jumping to CMD. 

INSERT & DELETE first store the present 
cursor position and BUFPTR at the subrou- 
tine STOR. After “shifting” the characters on 
the screen and inside the buffer, the cursor 
and BUFPTR are reset to the stored values. 
VCOUNT is used by INSERT to update the 
vertical position VPOS in the event that the 
screen was scrolled upward. 

The AUTFWD (AUTO CURSOR FOR- 


WARD) and AUTBCK (AUTO CURSOR BACK- 
WARD) use the subroutine FLASH, which 
prints the underline character on the screen, 
and then reprints the original character. 
AUTFWD prints the character to move the 
cursor forward. AUTBCK uses BSPACE 
(described above). 


PUT BUFFER INTO APPLESOFT 

The edited buffer will now be stored into 
memory (the BASIC program). Since the 
buffer was originally zeroed, it ends with a 
“00”. This is used to mark the end of the buffer 
(End Of Line). If the accept-to-cursor options 
are (“R” and “RETURN”), a “00” is placed at 
the present cursor position. 

The next step is to transfer the buffer into 
the keyboard buffer. This is done by the sub- 
routine TRNSFR. During this transfer, all 
spaces are removed that are not between quo- 
tation marks and after REM or DATA state- 
ments. Also, one space is removed after a 
REM or DATA statement to compensate for 
the one Applesoft puts in. Let me note here, 
that it is possible if one wishes, to have A.L.E. 
remove all of the spaces aftera REMor DATA 
statement by deleting the space(s) imme- 
diately following the REM or DATA state- 
ment. For example, 


1000 DATA20,30,4 0,50,60 


will remove the extra spaces. 

The transfer complete, the X register is now 
equal to the number of characters in the key- 
board buffer. GDBUF1 ($D533) will set X = 
239 ($EF) if it is greater than 239. Next it 
places the EOL marker “00” and prepares the 
registers and the keyboard buffer for the next 
routine, PUTMEM ($D444). 

PUTMEM is the Applesoft ROM routine 
which stores the keyboard buffer into mem- 
ory. It normally exits to Applesoft, with the 
prompt character “]” and the flashing cursor. 
For the Auto Line Number function, the PUT- 
MEM routine must be “intercepted” before it 
exits to Applesoft. This is done by resetting 
the “Character output SWitch” (CSW) to the 
proper address inside A.L.E. (the CSW is de- 
scribed in detail on page 83 & 84 of the APPLE 
I| REFERENCE MANUAL). Now when the 
PUTMEM routine goes to print the prompt 
character, it instead jumps back to A.L.E. at 
INTCEP. 

INTCEP resets CSW to its original value, 
and then increments the current line number 
by the value stored in INCR ($1F). If INCRisO, 
then the line number is set to the next actual 
line in memory (if no more lines exist, the 
program exits to Applesoft). The Applesoft 
ROM routines CHNG ($EBAO), FOUT ($ED34), 
STRLIT ($E3E7), and FREFAC ($E600), con- 
vert the new line number (now in hex) to its 
decimal equivalent. It is then transferred to 
the keyboard buffer, and the text pointer 
(TXTPTR) is set to the start of the line number. 
This is the same condition as when &<LINE 
NUMBER? is typed in. A jump is now made to 
START. 


MORE ABOUT THE PROGRAM 

When A.L.E. is initialized, the cursor speed 
is set to 150 and the Auto Line Number incre- 
mented to 0. These values may be changed to 
your preference, within the range of 0 to 255, 
by Poking in the new values, and then resav- 
ing the program. The cursor speed is at 36904 
($9028), and the line number increment at 
36908 ($902C). 


As previously mentioned, the use of the 
special characters will leave A.L.E. in the 
NORMAL mode. If you wish to leave the pro- 
gram in the EDIT mode, for easier repeating 
of the characters, POKE location 37248 
($9180) with 25 ($19), and POKE 37249 
($9181) with 145 ($91), then re-save the pro- 
gram if you wish this a permanent change. 

When using the AUTO CURSOR function, 
A.L.E. normally remains in the EDIT mode. To 
modify the program to switch to NORMAL 
mode when the cursor reaches the end of the 
line (AUTO CURSOR FORWARD), POKE 
location 37418 ($922A) with 26 ($1A). For the 
beginning of the line (AUTO CURSOR BACK- 
WARD), POKE 37457 ($9251) with 243 ($F3). 
Also, the underline symbol that is used during 
movement may be changed by Poking the 
ASCII value of the character of your prefer- 


ence at 37478 ($9266). If desired, resave the 
program for a permanent change. 


USING A.L.E. WITH AMPER FIND 

AUTHOR'S NOTE: | have found it very use- 
ful to have the AMPER FIND program, pub- 
lished in NIBBLE Vol. 3 No. 2, used along with 
A.L.E. This may be done with only slight mod- 
ification to the AMPER FIND program. 

First, load AMPER FIND into memory, then 
POKE 818 ($332) with 48 ($30), and POKE 819 
($333) with 144 ($90), then resave the pro- 
gram. | suggest saving it with a different 
name, because the modified version must 
also have A.L.E. in memory to prevent possi- 
ble disaster. 

The modified AMPER FIND may now be 
loaded in at any time and used along with 
A.L.E. A.L.E. must be initialized first, and then 
AMPER FIND. 


Here are some references | used while writ- 
ing A.L.E. 

Rodney Zaks, “PROGRAMMING THE 6502” 
published by SYBEX, 2020 Milvia Street, Ber- 
keley, CA 94704. 

John Crossley, “Applesoft Internal Entry 
Points”, CALL APPLE IN DEPTH, also pub- 
lished in THE APPLE ORCHARD, March/ 
April 1980. 

David A. Lingwood, “Amplifying Applesoft”, 
CALL APPLE IN DEPTH. 

C.K. Mesztenyi/Washing Apple Pi, “Apple- 
soft Internal Structure’, CALL APPLE, Janu- 
ary 1982. 

| think you'll find that A.L.E. will greatly 
ease the job of editing and modifying your 
Applesoft programs. 





1989 


RRR RRR RRO 9929- 85 EE 1752 
1918 «+ * 982B- AO BO 1769 
1928 » APPLESOFT LINE EDITOR « 992D- 85 EF 1772 
1030 « BY JOE BROOKS * 992F- 68 1780 
1948 » COPYRIGHT (C) 1982 * 1799 
1958 » BY MICROSPARC, INC * 1899 
1968 » LINCOLN, MA. 91773 * 1812 
1878 » ALL RIGHTS RESERVED * 9930- AG FF 1820 
1980 + * 9932- C8 1830 
1998 + * 9933- BO B1 G2 1849 
11DD aeaceeneeeennnaeeen eee ennee 9936- FO 2B 1859 
1119 -OR $9919 9938- C9 30 1869 
11298 -TA $888 9D3A- 38 04 187 
IDG - 1138 TEMP -EQ $26 TEMPORARY STORAGE 993C- C9 3A 1882 
IDD7 - 1149 TEMP1 -EQ $87 9G3E- 38 F2 18998 
IDD8 - 1158 RDFLG -EQ $98 REM-DATA FLAG 9949- 4C C9 DE 1990 
IDB9 - 1168 QFLAG -EQ $99 QUOTATION MARK FLAG 9943- 20 B7 OO 1918 
918- 1178 HSTO EQ $18 HPOS TEMP. STORAGE 9846- 28 BC DA 1928 
1919- 1188 VCOUNT -EQ $19 CURSOR VERT. COUNTER 1939 
ID1A- 1199 BUFPTR -EQ $1A BUFFER POINTER 1948 
IDEE - 1288 DELAY -EQ. SEE 195 
IDEF - 1218 INCR FEOASEF 9949- AD 2G 19628 
1924- 1228 HPOS -EQ $24 CURSOR HOR. POSITION 994B- 85 1A 1972 
1925 - 1238 VPOS -EQ $25 CURSOR VERT. POSITION 9M4D- AD 94 1982 
1936 - 1248 CSWL -EQ $36 CHAR. OUT SWITCH (LOW) 994F- 85 1B 1999 
1937 - 1259 CSWH -EQ $37 CHAR. OUT SWITCH (HIGH) 9951- AD BO 228028 
1958 - 1268 LINNUM .EQ $59 LINE# STORAGE 9953- A8 2018 
IO5E - 1278 INDEX .EQ $5E STRING MOVE POINTER 9954- 85 B8 2028 
197 3 - 1288 HIMEM “EQ: $73 9956- 85 19 2838 
ID9B - 1299 LOWTR -EQ $9B GEN. PURPOSE REG. 2048 
IG9D- 1388 TOKPTR -EQ $9D TOKEN TABLE POINTER 9958- 91 1A 2059 
IDOE - 1318 DSCTMP -EQ $9E STRING DESCRIPTOR 995A- C8 2069 
19B1 - 1328 CHRGET -EQ $Bl GET TEXT FROM TXTPTR 995B- DM FB 2078 
\OB7 - 1338 CHRGOT -EQ $B7 GET TEXT, NO INC. 9@5D- E6 1B 2089 
DBS - 1348 TXTPTR -EQ $B8 TEXT POINTER 9O5F- 91 1A 2698 
1209 - 135@ KEYBRD -EQ $288 KEYBOARD BUFFER 9961- C8 2188 
I3F5- 1368 VECTOR EQ $3F5 & BRANCH 9962- D@ FB 2119 
490 - 1378 BUFFER -EQ $9488 BUFFER START 9264- C6 1B 2128 
16 DD - 1388 BUFEND -EQ $9609 BUFFER END 2138 
DOG - 1398 KBD -EQ $COBO KEYBOARD INPUT 9966- 28 Bl 98 2149 
11GB - 1488 STRB -EQ $CG19 KEYBOARD STROBE 9969- BO 26 2158 
OCF - 1418 TOKTBL -EQ $D8CF TOKEN TABLE 996B- 28 81 92 21608 
143C- 1428 BASIC -EQ $D43C APPLESOFT WARM START 9G6E- 4C 66 98 21708 
\444- 143@ PUTMEM -EQ $D444 KEYBOARD BUF. TO MEMORY 9071- 28 7F 92 21808 
)533- 1449 GDBUF1 -EQ $D533 PLACE EOL, MASK MSB'S 9874- A5 24 2198 
1553- 1458 INCHR -EQ $D553 INPUT CHARACTER 9976- 85 18 2200 
6 1A- 1468 FNDLIN -EQ $D61A FIND A LINE 9878- 20 1A D6 2219 
17 2C- 1478 INCLD .EQ $D72C INC. TOKPTR, LOAD ACC. 997B- 98 4C 2220 
ADC - 1488 LINGET -EQ $DAGC LINE# FROM TXTPTR 2238 
AFB - 1498 CRDO -EQ $DAFB PRINT CARRIAGE RETURN 997D- AW 3 2240 
ECS - 1598 SNTXER -EQ $DEC9 SYNTAX ERROR 9O7F- C8 22508 
3E7- 1518 STRLIT -EQ $E3E7 STORE QUOTATION 9989- Bl 9B 2268 
600 - 1528 FREFAC -EQ $E69D FREE TEMP. DESCRIPTOR 9982- 32 OB 2270 
BAO - 1538 CHNG -EQ $EBAS 9984- FO 43 2280 
'D34- 1548 FOUT -EQ $ED34 CREATE STRING 9986- 84 26 2298 
C19- 1558 BSPACE -EQ $FC19 BACKSPACE CURSOR 9988- 28 81 92 2300 
C22- 1569 VERTAB -EQ $FC22 SET CURSOR TO VPOS 998B- A4 26 2310 
‘C9C- 1578 CLREOL -EQ $FC9C CLEAR TO EOL 998D- DO FO 2320 
CA8 - 1588 WAIT EQ $FCA8 DELAY ROUTINE 2330 
‘DFO - 1598 COUT1 EQ $FDF® CHARACTER OUTPUT 908F- 38 2348 
F3A- 1698 BELL EQ $FF3A SOUND BELL 9998- E9 7F 2350 
1618 « 9992- AA 2369 
1620 » INITIALIZE 9993- AI DD 2370 
16308 « 9995- 85 9D 23898 
919- AQ 4C 1649 INIT LDA #$4C SET & 9997- AQ CF 2398 
@12- 8D F5 93 16598 STA VECTOR JUMP VECTOR 9999- 85 9E 2400 
@15- AY 38 1662 LDA #START 9G9B- 84 87 2418 
@17- 8D F6 93 16768 STA VECTOR+1 999D- A® FF 2420 
B1A- AI 96 1689 LDA /START 9G9F- CA 2430 
@1C- 8D F7 93 1699 STA VECTOR+2 Q9BAD- FH B7 24498 
O1F- AD 19 1728 LDA #INIT SET HIMEM Q9MA2- 28 2C D7 24508 
@21- 85 73 1719 STA HIMEM 9GA5- 18 FB 2469 
G23- AY 9B 1726 LDA /INIT 9GA7- 30 F6 2478 
@25- 85 74 17308 STA HIMEM+1 2489 
927- AQ 96 1748 LDA #159 SET DELAY 


STA DELAY 
LDA #29 SET INCREMENT 
STA INCR 
RTS 
* 
* LINE NUMBER INPUT 
* 
START LDY #$FF CHECK SYNTAX 
STEP1 INY 
LDA KEYBRD+1,Y 
BEQ STEP2 
CMP #$39 
BMI SNTX 
CMP #$3A 
BMI STEP1 
SNTX JMP SNTXER SYNTAX ERROR 
STEP2 JSR CHRGOT STORE LINE# 
JSR LINGET AT LINNUM 
* 
« PRINT LINE & STORE IN BUFFER 
* 
LDA #BUFFER SET BUFFER 
STA BUFPTR POINTER TO 
LDA /BUFFER BUFFER START 
STA BUFPTR+1 ADDRESS 
LDA #89 
TAY RESET TEXT 
STA TXTPTR POINTER & 
STA VCOUNT VTAB COUNTER 
* 
STEP3 STA (BUFPTR) ,Y ZERO THE 
INY BUFFER 
BNE STEP3 
INC BUFPTR+1 
STEP4 STA (BUFPTR) ,Y 
INY 
BNE STEP4 
DEC BUFPTR+1 
* 
STEP5 JSR CHRGET STORE LINE# 
BCS STEP6 IN BUFFER 
JSR PSII AND PRINT IT 
JMP STEPS 
STEP6 JSR SPSII PRINT SPACE 
LDA HPOS STORE CURSOR 
STA HSTO HORIZONTAL POSITION 
JSR FNDLIN IS LINE IN MEMORY? 
BCC EDBUF NO! ->BRANCH 
* 
LDY #83 BEGIN PRINTING 
STEP7 INY LINE 
LDA (LOWTR) ,Y 
BMI TOKEN IF TOKEN THEN BRANCH 
BEQ EDBUF IF EOL THEN BRANCH 
STY TEMP 
JSR PSII PRINT & STORE CHARACTER 
LDY TEMP 
BNE STEP7 ->NEXT BYTE 
* 
TOKEN SEC FIND TOKEN 
SBC #$7F 
TAX X=TOKEN# 
LDA /TOKTBL SET TOKEN POINTER 
STA TOKPTR TO TOKEN TABLE 
LDA #TOKTBL ADDRESS 
STA TOKPTR+1 
STY TEMP1 
LDY #$FF 
STEP8 DEX 
BEQ PRTTOK ->TOKEN FOUND 
STEP9 JSR INCLD LOAD NEXT CHARACTER 
BPL STEP9 
BMI STEP8 ~>TOKEN SEARCH 


continued on next page 
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antec Line Editor (A.L.E.) (Cont.) 


9BA9 - 
9@AB - 
9@AE- 
99GB - 
99B3- 
9@B5 - 
98B7- 
9BA- 
9@BC- 
9OBF - 
98C2- 
98C5- 
96C7 - 


98C9- 
9@CC- 
9@CE - 
98DG - 
98D2- 
99D4- 
98D6- 
99D8 - 
98D9 - 
9@DB- 
9@DD- 
9GED - 
9GE2- 


99E4- 
9GE7- 
98E9- 
9GEB- 
9@ED- 
9GEF- 
96F1- 
98F3- 
9OF5- 
98F7- 
9BFA- 
98FD- 


9196- 
9192- 
9194- 
9196- 


9198 - 
91BA- 
918C- 
91BE- 
9119- 
9113- 
9116- 


9119- 
911C- 
911E- 
9129- 
9122- 
9124- 
9126- 
9128- 
912A- 
912C- 
912E- 
9138- 
9132- 
9134- 
9136- 
9138- 
913A- 
913C- 
913E- 
9149- 
9142- 
9144- 
9146- 
9148- 
914A- 
914C- 
914E- 
91568- 
9152- 
9154- 
9156- 
9158- 
915A- 
915D- 
9169- 
9163- 
9166- 
9169- 
916C- 
916F- 


9172- 


98 


84 6 
28 
A4 
26 
38 
84 
26 
A4 
4c 
26 
20 
A4 
Dg 


AQ 


me 
26 
2c 
GA 
6 
81 
86 
BS 
81 
7F 
27 
B6 


5B 


92 
D7 


92 


98 
92 
92 


FC 


FC 


D5 


92 
98 
92 


FC 
22 
99 


D5 


oy 
91 
92 
92 
92 
92 
92 
D4 


2499 PRTTOK STY TEMP 
2508 JSR SPSII 
2510 LDY TEMP 
2528 STEP19 JSR INCLD 
2530 BMI STEP11 
2549 STY TEMP 
2550 JSR PSII 
2560 LDY TEMP 
2576 JMP STEP1& 
2588 STEP11 JSR PSII 
2596 JSR SPSII 
2690 LDY TEMP1 
2610 BNE STEP7 
2628 » 

2630 + 

2649 » EDIT BUFFER ROUTINE 
2650 « 

2660 EDBUF § JSR CLREOL 
2670 LDA /BUFFER 
2680 STA BUFPTR+1 
2699 LDA HSTO 
2728 STA HPOS 
2718 STA BUFPTR 
2726 LDA VPOS 
2738 SEC 

2740 SBC VCOUNT 
2750 STA VPOS 
2760 JSR VERTAB 
2778 LDY #8 
2780 STY VCOUNT 
2790 « 

2890 KEYIN JSR INCHR 
2819 CMP #$15 
2820 BEQ FWDARR 
2830 CMP #98 
2840 BEQ BCKARR 
2858 CMP #$D 
2868 BEQ JRET 
2876 CMP #$1B 
2880 BEQ CMD 
2898 STEP12 JSR PSII 
2980 JMP KEYIN 
2919 JRET JMP RETURN 
2928 + 

2936 FWDARR LDY #429 
2946 LDA (BUFPTR) ,Y 
2956 BEQ KEYIN 
2968 BNE STEP12 
29708 + 

2988 BCKARR LDA HPOS 
2996 BNE STEP13 
3200 LDA VCOUNT 
3919 BEQ KEYIN 
3920 STEP13 JSR BSPACE 
3930 JSR DECBUF 
3946 JMP KEYIN 
3058 « 

3968 CMD JSR INCHR 
3078 CMP #28 
3989 BEQ UPARR 
3998 CMP #$15 
3198 BEQ DNARR 
3118 CMP #$44 
3126 BEQ JDEL 
3136 CMP #$49 
3146 BEQ JINS 
3158 CMP #$46 
3169 BEQ JAUTF 
3178 CMP #$42 
3189 BEQ JAUTB 
3199 CMP #$41 
3208 BEQ JACC 
3219 CMP #$52 
3226 BEQ JRETAU 
3230 CMP #$4E 
3246 BEQ JAUTO 
3250 CMP #$58 
3260 BEQ JBASIC 
3270 CMP #$4D 
3288 BEQ LBRAK 
3298 CMP #$2F 
3308 BEQ BCKSLH 
3319 CMP #$2D 
3320 BEQ UNDLIN 
3330 CMP #$2D 
3346 BEQ JRET 
3350 CMP #$20 
3360 BEQ KEYIN 
3376 BNE CMD 
3380 JDEL JMP DELETE 
3398 JINS JMP INSERT 
3498 JAUTF — JMP AUTFWD 
3418 JAUTB § JMP AUTBCK 
3428 JACC JMP ACCEPT 
3430 JRETAU JMP RETAUT 
3449 JAUTO | JMP AUTO 
3458 JBASIC JMP BASIC 
3460 « 

3476 LBRAK _— LDA #$5B 
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PRINT TOKEN 
FIRST PRINT SPACE 


LOAD NEXT CHARACTER 
->LAST CHARACTER 


PRINT & STORE CHARACTER 
->NEXT CHARACTER 

PRINT LAST CHARACTER 
PRINT SPACE 


->NEXT BYTE 


CLEAR TO EOL 
RESET BUFFER 
POINTER AND 
POSITION THE 
CURSOR 


RESET 
VTAB COUNTER 


KEYBOARD INPUT 
->? 


<-? 

RETURN? 

ESC? 

PRINT & STORE CHARACTER 


FOWARD ARROW 


IF EOL THEN BRANCH 
PRINT CHARACTER 


BACKWARD ARROW 
START OF LINE? 


YES ! ->BRANCH 
BACKSPACE CURSOR 


KEYBOARD INPUT 
<-? 


->? 


"Dp"? 


"Mm"? 
al 
ree 
RETURN? 


SPACE? 


->APPLESOFT 


LEFT BRACKET 


9174- 
9176- 
9178- 
917A- 
917C- 
917F- 


9182- 
9184- 
9186- 
9188- 
918A- 
918D- 
918F - 
9199- 
9192- 
9194- 
9196- 
9198- 
919A- 


919D- 
919F- 
91A8- 
91A2- 
91A4- 
91A6- 
91A8- 
91AA- 
91AC- 
91AE- 
91B9- 
91B3- 
91B5- 
91B8- 
91BA- 
91BC- 
91BF- 


91C2- 
91C5- 
91C7- 
91C8- 
91CA- 
91CC- 
91CD- 
91CF- 
91D1- 
91D2- 
91D4- 
91D7- 
91DA- 
91DC- 
91DE- 
91E1- 
91E3- 
91E4- 
91E6- 
91E7- 
91E9- 
91EC- 
91EE- 
91F9- 
91F2- 
91F4- 
91F6- 
91F8- 


91FB- 
91FE- 
9200- 
9261- 
9283 - 
9295 - 
9207 - 
9288 - 
920B- 
928D- 
920E - 
920F - 
9212- 
9213- 
9215- 
9216- 
9218- 
921A- 
921B- 
921D- 
921F- 
9226- 
9222- 


9225- 
9227- 
9229- 
922B- 
922E- 
9231- 
9234- 
9237- 
9239- 
923C- 


Dg 
AQ 
DS 
AQ 
28 
4c 


AS 
FS 
C6 
C6 
28 
AS 
38 
E9 
85 
AS 
E9 
85 
4c 


AS 
18 
69 
85 
AS 
69 
85 
AD 
Bl 
18) 
26 
Dg 
28 
E6 
E6 
28 
4c 


26 
AS 
48 
AD 
Bl 
98 
AD 
91 
28 
Fg 
29 
26 
Dg 
AQ 
28 
AQ 
A8& 
91 
68 
85 
28 
AS 
85 
AS 
85 
A5 
85 
4c 


28 
A5 
48 
AS 
Bl 
84 
48 
28 
Bl 
AA 
68 
28 
8A 
FO 
48 
De 
A5 
38 
Es 
85 
68 
85 
4C 


AS 
Bl 
FO 
28 
28 
28 
2c 
19 
AD 
2C 


6 
5C 
92 
5F 
81 
E4 


19 
93 
19 
25 
22 
1A 


28 
1A 
1B 
4)4) 
1B 
19 


1A 


27 
1A 
1B 
QO 
1B 
vy) 
1A 
95 
92 
D8 
92 
19 
25 
22 
19 


BB 
25 


61 
1A 


4) 
1A 


98 
c8 
92 
EC 
26 
cs 
1) 


1A 


25 
22 
18 
24 
96 
1A 
97 
1B 
19 


BB 
19 


vy) 
1A 
19 


vide 
1A 


81 
@3 


F3 
25 


19 
25 


19 
E9 


1) 
1A 
cD 
65 
8B 
92 
14) 
EC 
OD 
18 


92 
98 


FC 


91 


92 
92 
FC 
91 
92 


92 
92 


92 


FC 


91 
92 


92 


92 


Si 


92 
92 
92 
Co 


Co 
Co 


3489 
3498 
3598 
3519 
3528 
3538 


BCKSLH 


UNDLIN 
STEP14 


3548 + 


3559 
3569 
3578 
3589 
35998 
36808 
36108 
36208 
36308 
3649 
3659 
3668 
36798 


UPARR 


ADJ 


3680 + 


36998 
3788 
37108 
3720 
37308 
3748 
3758 
3768 
37768 
3788 
3798 
3888 
3819 
38209 
3839 
3849 
3859 


DNARR 


STEP15 


3860 « 


38708 
3889 
3898 
3989 
3918 
39208 
3939 
39468 
3959 
3969 
3976 
39898 
3998 
4999 
4919 
4829 
4939 
4949 
4959 
4866 
4979 
4989 
4998 
4109 
4118 
41298 
41308 
4149 


DELETE 


STEP16 


STEP17 


STEP18 


JCMD 


4158 « 


4168 
4178 
4180 
4199 
4208 
4218 
4220 
4230 
4248 
4258 
4268 
4278 
4288 
4298 
4308 
4316 
4320 
4330 
4348 
4358 
4369 
4378 
4380 


INSERT 


STEP19 


STEP28 


4398 « 


4486 
4418 
44208 
4436 
4446 
4459 
4469 
4476 
4480 
4498 


AUTFWD 


STEP21 


BNE 
LDA 
BNE 
LDA 
JSR 
JMP 


LDA 
BEQ 
DEC 
DEC 
JSR 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 
JMP 


LDA 
cLCc 
ADC 
STA 
LDA 
ADC 
STA 
LDY 
LDA 
BNE 
JSR 
BNE 
JSR 
INC 
INC 
JSR 
JMP 


JSR 
LDA 
PHA 
LDY 
LDA 
PHP 
LDY 
STA 
PLP 
BEQ 
JSR 
JSR 
BNE 
LDA 
JSR 
LDA 
TAY 
STA 
PLA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JMP 


JSR 
LDA 
PHA 
LDY 
LDA 
STY 
PHA 
JSR 
LDA 
TAX 
PLA 
JSR 
TXA 
BEQ 
PHA 
BNE 
LDA 
SEC 
SBC 
STA 
PLA 
STA 
JMP 


LDY 
LDA 
BEQ 
JSR 
JSR 
JSR 
BIT 
BPL 
LDA 
BIT 


STEP14 
#$5C 
STEP14 
#$5F 
PSII 
KEYIN 


VCOUNT 
CMD 
VCOUNT 
VvPOS 
VERTAB 
BUFPTR 


#49 
BUFPTR 
BUFPTR+1 
#00 
BUFPTR+1 
CMD 


BUFPTR 


#39 
BUFPTR 
BUFPTR+1 
#20 
BUFPTR+1 
#26 
(BUFPTR) ,Y 
STEP15 
INCBUF 
ADJ 
INCBUF 
VCOUNT 
VPOS 
VERTAB 
CMD 


STOR 
VPOS 


#61 
(BUFPTR) ,Y 


#89 
(BUFPTR) ,Y 


STEP17 
PRTCHR 
INCBUF 
STEP16 
#$29 
PRTCHR 
#88 


(BUFPTR) ,Y 


VPOS 
VERTAB 
HSTO 
HPOS 
TEMP 
BUFPTR 
TEMP1 
BUFPTR+1 
CMD 


STOR 
VCOUNT 


#88 
(BUFPTR) ,Y 
VCOUNT 


SPSII 
(BUFPTR) ,Y 


PSII 
STEP28 


STEP19 
VPOS 


VCOUNT 
VPOS 


VCOUNT 
STEP18 


#88 
(BUFPTR) ,Y 
JCMD 

FLASH 
INCUR 
INCBUF 

KBD 
AUTFWD 

KBD 

STRB 


BACK-SLASH 


UNDERL INE 
PRINT & STORE CHARACTE 


UP ARROW 
->TOP OF LINE 
MOVE 

CURSOR UP 


ADJUST 
BUFFER POINTER 


DOWN ARROW 
ADJUST 
BUFFER POINTER 


BOTTOM OF LINE? 


NO! ->BRANCH 
YES! READJUST 
BUFFER POINTER 


MOVE 
CURSOR DOWN 


->BUFFER & CURSOR 


GET CHARACTER 
NEXT TO CURSOR 
STORE IT 

AT CURSOR 


IF EOL THEN BRANCH 
PRINT CHARACTER 


->NEXT CHARACTER 
SPACE 

PRINT IT 

PLACE "98" (EOL) 
AT END OF BUFFER 


RESET CURSOR 
POSITION 


RESET BUFFER 
POSITION 


->BUFFER & CURSOR 


GET CHARACTER 


STORE IT 

PRINT SPACE 

GET NEXT CHARACTER 
STORE IT 

PRINT PREVIOUSLY 
STORED CHARACTER 


IF EOL THEN BRANCH 
STORE NEW CHARACTER 
->NEXT CHARACTER 
RESET VERTICAL 
CURSOR POSITION 


GET CHARACTER 


IF EOL THEN BRANCH 
FLASH CURSOR 


KEY PUSHED? 

NO! ->BRANCH 

YES! 

RESET STROBE 


923F- 
9241- 
9243- 
9245- 


9248- 
924A- 
924C- 
924E- 
9258- 
9252- 
9255 - 
9258- 
925B- 
925E- 
9261- 
9263- 


9265- 
9267- 
926A- 
926C- 
926F - 
9272- 
9274- 
9276- 
9279- 
927B- 
927E- 


927F- 
9281- 
9284- 
9286- 
9288 - 
928B- 
928D- 
928F- 
9291- 


9292- 
9294- 
9296- 
9298- 
929A- 
929C- 
929E- 
92Al- 
92A4- 


92A5- 
92A7- 
92A8- 
92AA- 
92AC- 
92AE- 
92B9- 
92B2- 
92B4- 
92B6- 
92B8- 
92BA- 


92BB - 
92BD- 
92BF - 
92C1- 
92C3- 
92C5- 
92C7- 


92C8- 
92CA- 
92CC- 
92CE- 
92D1- 
92D3- 


92D4- 
92D6- 
92D7- 
92D9- 
92DC- 
92DF- 


92E2- 
92E4- 
92E5- 
92E7- 
92EA- 
92EC- 
92EE- 
92F8- 
92F2- 
92F4- 
92F6- 
92F8- 
92FA- 


92FC- 
92FE- 
9308- 
9382- 
9304- 
9306 - 
9308 - 
93GA- 
930C- 
930D- 
930F - 
9311- 
9312- 
9314- 
9316- 


cg 
Fo 
Dd 
4c 


AS 
c9 
1°)4) 
AS 
Fo 
28 
28 
28 
28 
2c 
19 
38 


AQ 
28 
AS 
26 
28 
Ag 
Bl 
20 
AS 
28 
68 


AQ 
28 
Ad 
91 
20 
AS 
De 
E6 
68 


E6 
De 
E6 
AS 
cg 
De 
20 
4c 
68 


AS 
38 
ES 
85 
AS 
ES 
85 
AS 
cg 
1)) 
cé 
68 


AS 
85 
AS 
85 
AS 
85 
68 


cg 
96 
69 
28 
29 
66 


AQ 
A8& 
91 
20 
28 
4c 


AQ 
A8 
91 
26 
AS 
85 
AS 
85 
AQ 
85 
AQ 
85 
Dg 


AS 
85 
AS 
85 
AS 
DS 
AS 
Bl 
18 
69 
85 
c8 
Bl 
69 
85 


FC 
92 
92 
FC 
Co 


92 


92 


FD 


93 


4596 
45108 
4529 
4530 
4549 
4550 
4568 
4578 
4588 
45908 
4609 
4619 
4620 
4630 
4640 
46598 
4669 
4678 
4689 
4699 
4799 
4719 
4729 
4730 
4749 
4759 
4768 
4778 
4789 
4798 
48008 
48108 
4820 
4839 
4849 
4859 
4869 
4878 
4889 
48998 
4989 
4919 
4920 
4939 
4949 
4959 
4968 
49708 
4989 
49965 
5988 
5918 
58208 
5939 
5949 
59598 
5969 
5978 
5988 
5898 
5198 
51198 
5129 
51398 
5148 
5159 
5169 
5178 
5189 
5199 
52808 
5218 
5228 
52308 
5249 
5259 
5269 
5278 
5288 
5298 
5398 
5318 
53208 
5338 
5349 
5359 
5369 
5376 
5388 
53908 
5498 
5418 
5428 
5439 
5448 
5459 
5468 
5478 
5489 
54998 
5588 
5518 
5528 
5539 
5549 
5559 
5569 
5578 
5588 
5598 
5699 
5619 
5620 
5639 
5649 
5658 
5660 
5678 


CMP #$Ad SPACE? 
BEQ JKEY YES! ->BRANCH 
BNE JCMD NO! ->BRANCH 
JKEY JMP KEYIN 
. 
AUTBCK LDA BUFPTR+1 START OF LINE? 
CMP /BUFFER 
BNE STEP22 NO! ->BRANCH 
LDA BUFPTR 
BEQ JCMD YES! ->BRANCH 
STEP22 JSR BSPACE BACKSPACE CURSOR 
JSR DECBUF 
JSR FLASH FLASH CURSOR 
JSR BSPACE BACKSPACE CURSOR 
BIT KBD KEY PUSHED? 
BPL AUTBCK NO! ->BRANCH 
BMI STEP21 ->YES! 
* 
» SUBROUTINES 
° 
FLASH LDA #$5F UNDERL INE 
JSR PRTCHR PRINT IT 
LDA DELAY 
JSR WAIT 
JSR BSPACE BACKSPACE CURSOR 
LDY #88 
LDA (BUFPTR) ,Y GET CHARACTER 
JSR PRTCHR PRINT IT 
LDA DELAY 
JSR WAIT 
RTS 
* 
SPSII LDA #$29 SPACE 
PSII JSR PRTCHR PRINT CHARACTER 
LDY #99 
STA (BUFPTR) ,Y STORE IN BUFFER 
JSR INCBUF INCREMENT BUFFER POINTER 
INCUR LDA HPOS INCREMENT 
BNE RET1 VTAB COUNTER 
INC VCOUNT 
RET1 RTS 
. 
INCBUF INC BUFPTR INCREMENT 
BNE RET2 BUFFER POINTER 
INC BUFPTR+1 
LDA BUFPTR+1 
CMP /BUFEND END OF BUFFER? 
BNE RET2 NO! ->BRANCH 
JSR BELL SOUND BELL 
JMP BASIC ->APPLESOFT 
RET2 RTS 
od 
DECBUF LDA BUFPTR DECREMENT 
SEC a BUFFER POINTER 
SBC #81 
STA BUFPTR 
LDA BUFPTR+1 
SBC #868 
STA BUFPTR+1 
LDA HPOS DECREMENT 
CMP #39 VTAB COUNTER 
BNE RET3 
DEC VCOUNT 
RET3 RTS 
* 
STOR LDA HPOS STORE CURSOR 
STA HSTO POSITION 
LDA BUFPTR STORE BUFFER 
STA TEMP POINTER 
LDA BUFPTR+1 
STA TEMP1 
RTS 
. 
PRTCHR CMP #$29 CONTROL CHARACTER? 
BCC STEP23 YES! ->BRANCH 
ORA #$89 
STEP23 JSR COUT1 PRINT CHARACTER 
AND #$7F 
RTS 
. 
«+ PUT BUFFER INTO APPLESOFT 
*. 
RETURN LDA #89 PLACE "@@" (EOL) 
TAY AT PRESENT CURSOR 
STA (BUFPTR) ,Y POSITION 
ACCEPT JSR TRNSFR 
STEP24 JSR GDBUF1 PLACE EOL, MASK MSB'S 
JMP PUTMEM STORE INTO MEMORY 
RETAUT LDA #90 PLACE "@@" (EOL) 
TAY AT PRESENT CURSOR 
STA (BUFPTR) ,Y POSITION 
AUTO JSR TRNSFR 
LDA CSWL STORE CHARACTER 
STA TEMP OUTPUT SWITCH 
LDA CSWH 
STA TEMP1 
LDA #INTCEP 
STA CSWL 
LDA /INTCEP 
STA CSWH 
BNE STEP24 ->STORE INTO MEMORY 
. 
INTCEP LDA TEMP INTERCEPTED! 
STA CSWL I RESET CHARACTER 
LDA TEMP1 OUTPUT SWITCH 
STA CSWH 
LDA INCR INCREMENT SET? 
BNE INCNUM YES! ->BRANCH 
LDY #88 FIND NEXT LINE 
LDA (LOWTR),Y IN MEMORY 
CLC 
ADC #92 
STA TEMP SET TEMP 
INY TO ADDRESS 
LDA (LOWTR),Y OF NEXT 
ADC #298 LINE NUMBER 
STA TEMP+1 


9318- 
931A- 
931C- 
931D- 
931F- 
9321- 
9324- 
9326- 
9329- 
932B- 
932C- 
932E- 
9339- 
9332- 
9334- 
9336- 
9338- 
9339- 
933C- 
933F- 
9342- 
9345- 
9347- 
9349- 
934C- 
934E- 
934F- 
9351- 
9353- 
9355- 
9356- 
9358- 


935B- 
935D- 
935F- 
9361- 
9363- 
9365- 
9367- 
9368- 
936A- 
936C- 
936E- 
9370- 
9372- 
9374- 
9376- 
9378- 
937A- 
937C- 
937D- 
937F- 
9381- 
9383- 
9384- 
9386- 
9388- 
938A- 
938B- 
938D- 
938F- 
9391- 
9393- 
9395- 
9397- 
9399- 
939A- 
939C- 
939E- 
93A0- 
93A1- 
93A3 - 
93A5- 
93A7- 
93A8- 
93AA- 
93AC- 
93AE- 
93AF- 
93B1- 
93B3- 
93B5- 
93B7- 
93B9- 
93BB- 
93BD- 
93BF- 
93C2- 
93C4- 
93C6- 
93C8- 
93CA- 
93CC- 
93CE- 
93D0- 
93D2- 
93D4- 
93D6- 
93D8 - 
93DB- 
93DC- 
93DF- 
93E1- 
93E3- 
93E5- 
93E7- 
93E9- 
93EB- 
93ED- 
93EF- 
93F2- 
93F5- 


93F6- 
93F8- 
93FA- 
93FC- 


D6 


D4 


EB 
ED 
E3 
E6 


62 


90 


93 


DA 
DA 


5688 
5698 
5799 
5719 
5728 
5738 
5748 
5758 
5768 
5778 
5788 
57908 
5890 
5818 
5829 
5839 
5849 
58598 
5869 
58708 
5880 
5899 
5999 
5919 
5928 
5938 
5949 
5959 
5969 
5979 
5988 
5998 
6289 
6019 
6029 
6039 
6946 
6058 
6960 
6979 
6989 
6998 
6199 
6118 
6129 
6138 
6149 
6158 
6169 
6178 
6188 
6199 
6288 
6218 
6228 
62368 
6248 
6259 
6269 
6278 
6288 
6298 
6308 
6319 
6329 
63308 
6348 
6359 
6369 
6378 
6388 
6398 
6488 
6419 
6428 
6438 
6449 
64598 
6468 
6478 
6489 
6499 
6589 
6518 
6528 
6538 
6548 
6558 
6568 
65708 
6580 
65998 
6600 
6619 
6628 
6638 
66598 
6668 
6670 
6689 
6698 
6799 
67198 
6728 
6730 
6748 
6758 
6769 
67708 
6789 
6798 
68089 
6819 
6828 
6838 
6848 
6859 
6869 


INCNUM 


STEP25 


STEP26 


* 
TRNSFR 


STEP27 


STEP28 
STEP29 


STFLG 
STEP39 


STEP31 


STEP32 


STEP33 


STEP34 
STEP35 


STEP36 


STEP37 


. 
FLPFLG 


(TEMP) ,Y 
LINNUM+1 


(TEMP) ,Y 
LINNUM 
FNDLIN 
INCNUM 
BASIC 
LINNUM 


INCR 
DSCTMP+1 
LINNUM+1 
#00 
DSCTMP 
#$99 


CHNG I 
FOUT 
STRLIT 
FREFAC 

4B 
(INDEX) ,Y 
KEYBRD+1, Y 
STEP26 


STEP25 
#61 
TXTPTR 


TXTPTR+1 
START 


#DO 
#OD 
TEMP 
RDFLG 
QFLAG 
VPOS 


VCOUNT 
VPOS 
#BUFFER 
BUFPTR 
/BUFFER 
BUFPTR+1 
(BUFPTR) ,Y 
STEP37 
#$52 
STEP29 


(BUFPTR) ,Y 
#$45 
STEP28 


(BUFPTR) ,Y 
#$4D 
STEP28 


(BUFPTR) ,Y 
#$29 

STFLG 

#$08 
(BUFPTR) ,Y 
#$44 
STEP31 


(BUFPTR) ,Y 
#$41 
STEP39 


(BUFPTR) ,Y 
#$54 
STEP39 


(BUFPTR) ,Y 
#$41 
STEP39 


(BUFPTR) ,Y 
#$20 
STEP39 
RDFLG 

#09 
(BUFPTR) ,Y 
#$22 
STEP32 
FLPFLG 
(BUFPTR) ,Y 
#$28 
STEP35 
RDFLG 
STEP33 
#$01 
STEP34 
RDFLG 
QFLAG 
STEP36 
(BUFPTR) ,Y 
KEYBRD , X 


INCBUF 
TEMP 
TEMP 
#49 
STEP27 
VPOS 
TEMP 
STEP27 
HPOS 
CRDO 
CRDO 


QFLAG 
#$89 
QFLAG 


STORE LINE 
NUMBER AT 
LINNUM 


LAST LINE? 
NO! ->BRANCH 
->YES! 
INCREMENT 
LINE NUMBER 


CHANGE TWO-BYTE 
HEX IDECIMAL 

LINE NUMBER 

TO STRING 


MOVE THE 
LINE NUMBER 
TO KEYBOARD 
BUFFER 


SET TEXT POINTER 


->NEXT LINE NUMBER 


TRANSFER BUFFER 
TO KEYBOARD 
BUFFER 

CLEAR FLAGS 


CURSOR 
POSITIONING 


SET BUFFER 
POINTER TO 
BUFFER START 
ADDRESS 


IF EOL THEN BRANCH 
tal Sais 

NO! ->BRANCH 

YES 


bd = 
NO! ->BRANCH 
YES 


"M"? 
NO! ->BRANCH 
YES 


SPACE? 
YES! ->BRANCH 
NO 


gl? aa: 
NO! ->BRANCH 
YES 


"A"? 
NO! ->BRANCH 
YES 


"TT"? 
NO! ->BRANCH 
YES 


nAS? 
NO! ->BRANCH 
YES 


SPACE? 
NO! ->BRANCH 
SET REM-DATA FLAG 


QUOTATION? 
NO! ->BRANCH 
TOGGLE QFLAG 


SPACE? 

NO! ->BRANCH 
FLAG SET? 
NO! ->BRANCH 


->FLAG IS SET 
FIRST TIME SO 
FLAG SET? 

NO! ->BRANCH 
STORE BUFFER BYTE 
INTO KEYBOARD 
BUFFER BYTE 


CURSOR 
POSITIONING 


->NEXT CHARACTER 


->NEXT CHARACTER 
TRANSFER FINISHED 
POSITION THE 
CURSOR 


TOGGLE THE 
QUOTATION FLAG 
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OTHELLO 


Next the board is set up. The middle four 


Othello 


by Doug Hennig 
#224-13512 Maham Rd. 
Dallas, TX 75240 


ired of all those space games where all 

that is required of you are quick reflexes 
and a fast trigger finger? Yearning for some 
real mental stimulation? Well, your wait is 
over because OTHELLO is here. 

Othello was invented in the nineteenth cen- 
tury in England where it was the sport of rich 
businessmen in their gentlemen’s clubs. 
However, it is rumored that the game actually 
originated almost a thousand years ago in 
China (the source of many of today’s intellec- 
tual games). Its recent popularity is due to a 
combination of marketing expertise on the 
part of a number of large game companies 
and the sheer fun of the game. 


PLAYING OTHELLO 

Othello is played on an eight by eight 
board, much the same as chess or checkers. 
The pieces used in the game are white on one 
side and black on the other (in this computer 
version, green and orange are used for better 
contrast). The game starts with two pieces of 
each player's color in the center of the board. 

Each player takes turns putting pieces on 
the board, trying to capture the opponent's 
pieces. You capture pieces by flanking runs 
of your opponent's pieces with pieces of your 
own. This causes all of his intervening pieces 
to be flipped; thatis, all of his captured pieces 
become yours. 


RULES OF THE GAME 

The rules of the game are simple. You may 
only place a piece on the board if you can 
capture at least one opponent piece. If you 
cannot, you forfeit your turn. The game ends 
when: A) The board is filled; B) Neither player 
can place a piece; C) One player has all of his 
pieces removed from the board. 


Othello sounds like a simple game but it 
can be quite complex, and strategy plays an 
important role. The game becomes exciting 
by sudden reversals in the lead — you may 
have six pieces more than your opponent 
when suddenly with one move, you are seven 
pieces behind. Most of the strategy involves 
controlling the edges and especially the cor- 
ners, since from an edge a player can control 
a large number of squares. 


This version of Othello was written in 
Applesoft. You have the option of playing 
against the computer or a human opponent. 
The computer plays a rather good game con- 
sidering how simple the program is. It often 
makes some very surprising moves (some- 
times I'd swear it isa mind-reader). The game 
is displayed in low resolution color graphics 
— the board is blue, the player's pieces are 
green and orange, and the cursor is red. 


POSITIONING THE PIECES 

You tell the computer where you want to 
put your pieces by moving a red cursor 
around the game board using the game pad- 
dies. When the cursor is over the position 
where you want to put your piece, press 
either paddle button. If the move is illegal 
(such as a square already occupied or a 
square which does not allow you to capture 
pieces), the cursor will reappear and you will 
have to choose another square. If you cannot 
move, press the RETURN key to forfeit your 
turn. The program keeps track of the score at 
all times so you can tell at a glance how you 
are doing. 


HOW IT WORKS 

| will not describe the program’s playing 
strategy because | feel that it would take 
something away from the game. | will, how- 
ever, give a brief description of the program. 
First the computer sets up the screen and 
asks if you want instructions. If you do, it 
gives avery brief description of the game and 
the operation of the program. Then there isa 
short wait while variables are initialized. The 
board is dimensioned as an array and the 
player pieces (WH and BL, for white and 
black) are set to the colors of each opponent. 
A number of other arrays contain strategy 
and board look-up data. 

The program then asks how many people 
are playing and requests their names. Enter- 
ing information into Othello is done by a sub- 
routine which GETs each character individu- 
ally and concatenates it into a string. The 
reason for doing this is that | am allergic to 
INPUT — | always fear that non-computer 
oriented people are going to hit RETURN or 
type commas or other equally “destructive” 
characters and totally ruin my nice screen 
with ugly error messages. If you are immune 
to such fears, feel free to replace GOSUB 
60000 with INPUT A$ and delete the subrou- 
tine. If only one person is playing, the second 
name is set to Apple. 


squares of the board are set to two pieces of 
each player's color. The board is then drawn 
on the low resolution screen, the names are 
printed at the bottom of the screen in the text 
window and the action begins. The cursor is 
flashed on the screen according to the set- 
tings of the game paddles (note that whatever 
was onthe screen at the cursor position is not 
destroyed but alternately displayed with the 
cursor to produce the flashing effect). If you 
are wondering why (in line 10000) | divided 
the paddle readings by 230 rather than 255, it 
is because one of my paddles does not work 
very well (the hazards of “Star Cruiser”) and 
only gives a maximum reading of 235 rather 
than 255. Set this number to 255 if you wish (it 
will not affect the game in any way, only give 
you more “play” in the paddles). 

If a key is pressed and it is the RETURN 
key, the next player's turn begins (if it is not 
RETURN it is ignored). When either paddle 
button is depressed, the program plots the 
color of the player's piece at the cursor posi- 
tion. It then checks to see if the move is legal. 
If the square is already occupied or if no 
pieces can be captured, the player’s piece is 
removed and the cursor again flashes, wait- 
ing for input. 


SCORING 

Once a valid move is made, the computer 
checks every possible means of flipping 
pieces from that position, across rows, up 
and down columns and along diagonals. It 
counts the number of pieces flipped, adds 
that to the player’s score plus one (because 
he just placed a piece) and subtracts it from 
the opponent's score. It flips the opponent's 
pieces by plotting over the opponent's color 
with the current player's color. The program 
then checks for an end situation — one play- 
er's score equals zero or the board is full. If 
either occurs, the game ends, the scores are 
given, the winner's name is printed and the 
option to play again is given. 

If the game is not over, the next player's 
turn commences. If there are two players, this 
turn proceeds in a similar fashion to the pre- 
vious. If the Apple is the opponent, it exam- 
ines its own strategy to find the best possible 
move (| was not going to tell you, remember?) 
and then proceeds with the flipping and score 
adjustment as described above. 


2 REM (-DOR RRR RRR RRR RRS SRR RR EE 

3 REM « << OTHELLO >> * 158 DATA 6,5,4,7,-1,3,8,1,2 

4 REM « BY DOUG HENNIG i 240 CR$ = CHR$ (13) 

5 REM « COPYRIGHT (C) 1982 Pt 508 DIM VL%(7,7),V(4) 

6 “REM BY MICRO-SPARC INC ‘ 518 V(1) = 2:V(2) = 3:V(3) = 1:V(4) = 4 

7 REM + LINCOLN, MA. 91773 . 520 FOR I = @ TO 7:V = V('ABS (3.5 - I) +9 

s REM ‘ ALL RIGHTS RESERVED . 5) /2 ; ; 

(DORR RRR RRR RRR SRR RRR REESE EE 530 FOR = : = . 

40 TEXT : HOME : INVERSE : FOR I = 1 TO 40: FOR ne a het) eee re ree 
J = 1 TO 5 STEP 4: HTAB I: VTAB J: PRINT 549 FOR J = a“ : 
" ". NEXT : NEXT : NORMAL : VTAB 3: HTAB © Rafe TORT? Sea 
17: PRINT "OTHELLO" 550 NEXT I 

5@ POKE 34,6: HOME : PRINT "WANT INSTRUCTION 555 REM SEE WHO WILL PLAY 


S (Y OR N)? “;: GET A$: PRINT A$: 
"Y" THEN GOSUB 293808 
98 REM VARIABLE INITIALIZATION 
198 DIM BD(9,9):WH = 15:BL = 12:MT = © 
118 DIM RC(7) ,CC(7) 


126 FOR I = @ TO 7: READ RC(I),CC(1): NEXT 


138 DATA -1,-1,-1,8,-1,1,9,1 
fs2  DATA.1,1,2,0,1,-1,8,-1 
149 DIM DC(9): 


100 NIBBLE EXPRESS/VOL. III/1983 


IF A$ = 568 


FOR I = 1 TO 9: READ DC(I): 


HOME : 


POKE 49168,9: PRINT "HOW MANY 
PLE ARE PLAYING? "; ee 


: GET A$: PRINT A$ 


588 NP = VAL (A$) « (AS a@ DT” OF AS we *2*}.; 
NP = @ THEN NP = 1 ae 
600 PRINT : IF NP = 1 THEN 659 
628 FOR I = 1 TO 2: PRINT "NAME OF PLAYER "I 
ates ">: GOSUB 26316 
) = LEFT$ (A$,16): N 
NEXT 649 GOTO 700 : ia 


658 PRINT "YOUR NAME - ";: GOSUB 28319%:N$(1) 
= LEFT$ (A$,19) 

668 N$(2) = "APPLE" 

678 REM SET UP INITIAL BOARD 

798 FOR I = 1 TO 8: FOR J = 1 70" S:BDCI,J) = 


@: NEXT J,I 
718 BD(4,4) = WH:BD(4,5) = BL 
728 BD(5,4) = BL:BD(5,5) = WH 


738 POKE 34,9 

988 GOSUB 28289 

919 FOR I = 4 TO 5: FOR J = 4 TO 5: COLOR= B 
aa =IT*«4+1:C = J « 4 +1: PLOT 


920 NEXT J,I 

95@ LR = 3:HR = 6:LC = 3:HC = 6 

1998 M=5 

1918 WC = 2:BC = 2 

1928 REM MAIN GAME ROUTINE 

1049 HOME : VTAB 24: PRINT N$(1) TAB( 11)WC TAB( 
28)N$(2) TAB( 31)BC 

2008 CH = @ 

2818 T = (M AND 1): IF T THEN 21998 

2628 VTAB 21: HTAB 28: INVERSE : PRINT N$(2) 
""S MOVE" CHR$ (7): NORMAL 

2625 PL = BL 

2838 ON NP GOSUB 35808, 3999 

2035 IF CH > @ THEN BC = BC +1 

2848 GOTO 2208 

2198 VTAB 21: INVERSE : PRINT N$(1)"'S MOVE" 
CHR$ (7): NORMAL 

2105 PL = WH 

2118 GOSUB 3906 

2128 IF CH > 8 THEN WC = WC + 1 

2200 IF (M AND 1) = @ THEN CH = - CH 

2226 WC = WC + CH:BC = BC - CH 

2238 HOME : VTAB 24: PRINT N$(1) TAB( 11)WC TAB( 
28)N$(2) TAB( 31)BC 

2249 IF CH = @ THEN SK = SK + 1 

2258 IF CH < > @ THEN SK = @ 

2260 M=5 - M 

2308 IF WC + BC = 64 THEN 2596 

2319 IF SK = 2 THEN 2599 


2328 IF WC = 9 OR BC = 9 THEN 2599 

2498 IF Rl < = LR AND LR > 1 THEN LR = Rl - 
toe LR < Be THEN ER =, 0 

2418 IF Rl > = HR AND HR < 8 THEN HR = R1 + 
1 

2438 IF C1 < = LC AND LC > 1 THEN LC = Cl - 
1: IF LC < @ THEN LC = 9 

2449 IF Cl > = HC AND HC < 8 THEN HC = Cl + 


1 

2458 GOTO 2999 

2498 REM GAME OVER 

250@ HOME : VTAB 21: PRINT "THE GAME IS OVER 
. FINAL SCORE:” 

2585 INVERSE 

2518 PRINT N$(1) TAB( 11)WC TAB( 28)N$(2) TAB( 
31)BC 

2512 NORMAL 

2515 IF WC = BC THEN PRINT "IT WAS A TIE GA 
ME.": GOTO 2688 

2520 W = 1: IF BC > WC THEN W = 2 

2538 PRINT N$(W)” WAS THE WINNER." 

2698 PRINT "WANT TO PLAY AGAIN? ";: GET A$: PRINT 
AS 

2619 IF A$ < > "N" THEN 799 

2626 TEXT : HOME : END 

2998 REM FLASH CURSOR AND SEE IF BUTTON PRES 
SED 

3826 GOSUB 19999 

3818 OC = SCRN( C,R): COLOR= 1 

3828 PLOT C,R 

3038 FOR I = 1 TO 5@: NEXT 

3935 COLOR= OC: PLOT C,R: FOR I = 1 TO 58: NEXT 


3049 X = PEEK (49249):Y = PEEK (49259) 
3959 IF X > 127 OR Y > 127 THEN 3490 
3060 A = PEEK (49152):K = PEEK (49168): IF 


A = 141 THEN CH = @: RETURN 

3878 GOTO 3990 

3399 REM SEE IF HE CAN GO THERE 

3496 R1 = (R - 1) / 4:Cl = (C - 1) / 4: IF BD 
(R1,C1) < > MT THEN 3835 

3419 GOSUB 29978: IF CH = @ THEN BD(R1,Cl) = 
MT: GOTO 3935 ; 

3428 RETURN 

3498 REM COUNT FLIPS 

3508 CH = @:RM = 9:CM = O:MC = - 1:0 = 9 

3518 FOR Rl = LR TO HR 

3528 FOR Cl = LC TO HC 

3538 IF BD(R1,C1) < > MT THEN 3619 

3558 GOSUB 29019 

3568 IF CH > @ THEN CH 
1) 

3578 IF CH = MC THEN O 
1 / O THEN RM = R1: 

3598 IF CH > MC THEN RM 

3618 NEXT Cl 

3629 NEXT R1 

3809 IF MC > @ THEN R1 = RM:Cl = CM:R = R1 «* 
4+ 1:C =Cl « 4 + 1: GOSUB 28979 


CH + VL&(R1 - 1,Cl - 


O + 1: IF RND (1) < 
= Cl 
R1:CM = C1:MC = CH 


Ol 


3982 RETURN 

4006 END 

9998 REM GET PADDLE INPUT 

19008 R= INT ( PDL (@) / 230 » 8) » 
= INT ( PDL (1) / 238 « 8) « 4 

19018 IF C = 1 THEN C = 5 

19920 IF R = 1 THENR = 5 

10838 RETURN 

28808 REM CHECK IF PIECES FLIPPED 

20818 CH = 8: FOR D = @ TO 7 

20828 RC = RC(D):CC = CC(D) 

28838 GOSUB 20148: IF N > @ THEN CH 

20846 NEXT 

28858 RETURN 

20868 REM PLOT PIECES FLIPPED 

20878 COLOR= PL: PLOT C,R:BD(R1,C1) 

20988 CH = 9: FOR D = @ TO 7 

20898 RC = RC(D):CC = CC(D) 

28188 GOSUB 28140: GOSUB 20218: IF N > @ THEN 
CH = CH + N 

28118 PLOT C,R: NEXT D 

20128 RETURN 

28138 REM CHECK PIECES ON BOARD 

20148 RO = R1:CH = Cl 

20158 FOR I = 1 TO 8 

20168 RO = RO + RC:CH = CH + CC:BD = BD(RO,CH 


Aree Lee 
+1 


CH + N 


PL 


) 
28178 IF BD = PL THEN N 


= I - 1:1 = 8: NEXT 
: RETURN 
28188 IF BD = MT THEN I = 8: NEXT : GOTO 292 
134) 
28198 NEXT 
20208 N= - 1: RETURN 


28218 R@ = R1:C@ = Cl: IF N < 1 THEN RETURN 


20228 FOR I = 1 TON 

20230 R=R+RC + 4:C =C + CC « 4 

20248 Rl = (R - 1) / 4:Cl = (C - 1) / 4:BD(R1 
,C1) = (WH + BL) - BD(R1,C1) 

20258 COLOR= PL: PLOT C,R 

20268 NEXT I:R1 = RO:R = R1 + 4 + 1:Cl = CO: 
C = Cl *« 4 + 1: RETURN 

20278 REM SET UP BOARD 

20288 GR : COLOR= 2: FOR I = 3 TO 37 STEP 4 

26298 HLIN 3,35 AT I: VLIN 3,35 AT I: NEXT I 
: RETURN 

20388 REM INPUT SUBROUTINE 

20318 A$ = "" 

28328 GET BS 

20330 IF BS = CHR$ (13) THEN PRINT : RETURN 


20348 IF B$ < > CHR$ (8) THEN A$ = A$ + B$ 
: PRINT B$;: GOTO 293298 

20358 IF LEN (A$) = @ THEN 29329 

28368 PRINT B$" “B$;: IF LEN (A$) 
A$ = "": GOTO 29328 

28378 A$ = LEFT$ (A$, LEN (A$) - 1): GOTO 29 


1 THEN 


3268 
28388 REM INSTRUCTIONS 
20398 HOME : PRINT " THE OBJECT OF OTHELLO 


IS TO OWN THE": PRINT "MOST PIECES AT T 
HE END OF THE GAME.": PRINT "YOU GAIN PI 
ECES BY FLANKING ROWS OF": PRINT "“OPPONE 
NT'S PIECES WITH YOUR OWN AND": PRINT "' 

FLIPPING' THEM TO BECOME YOUR OWN." 
28496 PRINT " USE THE GAME PADDLES TO MOVE 
THE": PRINT "RED SQUARE (CURSOR) AROUND 

THE SCREEN." 

20418 PRINT "WHEN THE CURSOR IS WHERE YOU WA 
NT TO": PRINT "MOVE, PRESS EITHER GAME B 
UTTON. IF THE": PRINT “MOVE IS ILLEGAL, 
THE CURSOR WILL RE-" 

20428 PRINT "APPEAR AND YOU WILL HAVE TO MOV 
E SOME-"; PRINT "WHERE ELSE. IF YOU HAVE 

NO MOVE AT ALL,": PRINT “PRESS ";: INVERSE 
: PRINT "RETURN";: NORMAL : PRINT ". " 

20430 PRINT " THE FIRST PLAYER'S PIECES AR 
E ORANGE,";: PRINT "AND THE SECOND PLAYE 
R'S ARE GREEN." 

20449 VTAB 23: HTAB 9: INVERSE : PRINT "PRES 
S RETURN TO CONTINUE": NORMAL 

20458 K = PEEK (49152): IF K < 128 THEN 2045 


® 
20468 K = PEEK (49168): RETURN 
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APPLE SPRINT 








Ayes SPRINT 
peed Reading Improvement 
echnique) 


by Ken & Michelle McCandless 
2747 Inspiration Drive 
Colorado Springs, CO 80917 


42" you ever wished you could cut the 
amount of time you spend wading, mud- 
dling and plodding through those mountains 
of paper? Use some of that lost time for other 
constructive purposes? Well, here is a solu- 
tion for you: Apple SPRINT. 

Have you ever desired something to help 
your preschool or early grammar school child 
with reading? Well, here is your wish: Apple 
SPRINT. 

SPRING does as its name implies. Both 
your reading speed and your reading com- 
prehension can be beneficially increased. 
Within a short period of time you could realize 
a 100% increase. Your child can also be aided, 
even if your child can only read letters and/or 
numbers. 

SPRINT flashes data (letters, numbers, 
phrases or sentences) on the display screen 
upon your cue. You read the flashed data and 
type in what you just read. Sound easy? It is 
and it’s fun. 


LOADING THE PROGRAM 
Load the program from whatever media 
you have saved it on (disk or tape). With DOS 
and APPLESOFT in ROM, at least 32K of 
memory is required. Without DOS but with 
APPLESOFT in ROM, only 16K of memory is 
required. 


HOW TO EFFECTIVELY USE SPRINT 

Before you use the program find an article 
of moderate length (about 500 words should 
be sufficient) and time yourself while you 
read that article. Determine your reading 
speed by dividing the number of words in the 
article by the elapsed time for reading it. This 
provides you with your initial reading speed. 
Take note of this value. Now periodically 
repeat this procedure while using SPRINT. 
This way you can track your improvement. 


ON RUNNING SPRINT 

When you run SPRINT you are initially 
asked if you want instructions, which are basi- 
cally what follow here. Then you are asked to 
respond to the start-up control parameters. 

The first control parameter selects the for- 
mat of the data to be flashed. There are two 
formats available. One is designed for the 
young child, the other for a participant with 
normal reading ability. A “Y” response to 
PRESCHOOLER? (Y/N) selects the child’s 
format. Don’t mistakenly think that the child’s 
formatis easy. It can and does provide a chal- 
lenge. It will even challenge an adult who 
might venture into this realm. 

The next control parameter selects the type 
of data to be flashed. The response to the 
NUMBERS? (Y/N) question selects the type, 
with a “Y” selecting numeric data. A negative 
response selects phrases or letters. The let- 
ters are for the preschool child’s format. The 
phrases, which may be complete sentences, 
are for the normal format. The sentences 


generated are, for the most part, nonsensical 
but grammatically correct. 

The next two prompts are for the level of 
difficulty. The question LEVEL? (0O=EASIEST/ 
4=HARDEST) selects the amount of data to 
be flashed. The question SPEED? (0=SLOW- 
EST/9=FASTEST) selects how long the data 
appears on the display screen before it is 
erased. 

Hitting the ESCape key in response to any 
of these questions will return you to the pre- 
vious question (you cannot return to the 
instructions), 

The following default values will be used 
for non-valid input to the control parameters: 


INSTRUCTIONS =N 
PRESCHOOLERS =N 
NUMBERS =N 
LEVEL =3 
SPEED #4 
SPRINT-ing 


Following the control parameter questions 
you will see a display of the level and speed 
which you are attempting. Below this you will 
see the box (or window) in which the data will 
be flashed. Below this box you will see a flash- 
ing cursor. This is your ready cue. When you 
are ready to read, hit any key and the data will 
be flashed. Now you will see a question mark; 
this is your prompt to type in what you just 
read. If you get it correct you will proceed on 
to another. If you get it wrong you will be 
shown the same data again. You will have two 
chances to get it correct. If you don't, you will 


be shown the data you missed along with 
your responses. (Note: Spaces are added in 
the preschool format data. When typing in 
this data ignore those spaces. Just typein the 
data.) 

The program will automaticaly adjust the 
difficulty level and speed based upon your 
performance. 

If you wish to make a change to any of the 
control parameters, hit the ESCape key when 
you see the flashing cursor. This returns you 
to the data type question. Returning to the 
format question, PRESCHOOLER? (Y/N), 
resets everything and starts afresh. 

You are scored as follows: 

2 points - If you are correct on the first try. 
1 point - If you are correct on the second try. 
0 points - If you blow it completely. 

To terminate the program at any time, hit 

Control Q. 


HOW SPRINT WORKS 

Figure 1 lists all the major program sections 
and what they do. Figure 2 lists all the varia- 
bles and their usage. 

The program begins by poking inthe sound 
routine. This is the routine from the RED 
BOOK, page 43. This routine expects the 
value of the tone to be in 768 (decimal) and 
the duration of that note in 769 (decimal). 
These values may range up to 255. 

The program then builds the arrays, which 
contain the words for sentence building, from 
the data statements. Next the control parame- 
ters are questioned and accepted. 


MAJOR PROGRAM SECTIONS 


Descending notes. Used when making decreasing difficulty. 
Ascending notes. Used when making it more difficult. 
Buzz for wrong answer and for poor overall performance. 
Tune for right answer and good overall performance. 


LINE NUMBERS 

100-200 Pokes in the sound routine 

300 

350-400 

450-500 

550-950 

1000-1050 Sound for excellent performance at end. 
1100-2200 Program set-up and array building routines. 
1350 Function used to center data in display window. 
1400 Function used to generate numbers. 
2250-3600 Control parameter acceptance. 
2250-2400 Instructions. 

2450-2650 Format determination. 

2700-2950 Words or numbers determination. 
3000-3250 Level determination. 

3300-3550 Speed determination. 

3600 Reset of response counters. 
3700-4200 Screen display. 

4250 Clean-up of extra strings. 

4300 Scoring control set-up. 

4350-4900 Preschool format data construction. 
4600-4700 Preschool numbers build routine. 
4800-4900 Preschool letters build routine. 
4950-8050 Normal format data construction. 
5050-5500 Number build routine. 

5550-8050 Phrases or sentences build routine. 
8100-8900 Flash the constructed data. 
8950-9400 Check input for correctness. 
9450-9950 Correct response routine. 
10000-10900 Wrong response routine. 
10950-11750 Adjust difficulty routine. 
11800-12150 Error handling routine. 

12200-13100 Ending routine. 

13150-13950 Instruction output format routine. 
14950-17450 Data statements. 


FIGURE 1 
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Apple SPRINT 
(Speed Reading Improvement 
Technique) (Cont.) 


Following this, the display screen is built 
and the program progresses onward to gen- 
erate the display data. The display data is 
created using randomization and concatena- 
tion from one of four routines. The routine is 
selected based upon the format control 
parameter and the data type control parame- 
ter. The amount of data to be developed is 
determined by the level parameter. These 
routines perform as follows: 


1. If the preschool format is selected and 
numbers are not selected then lines 4800 
to 4900 are used. Here random numbers 
are used to select characters from the verb 
array and intersperse these characters 
between spaces. Also, this data is saved in 
KI$ without the spaces for use in compar- 
ing the input string for correctness. 


2. If the preschool format and numbers are 
both selected, the lines 4600 to 4700 are 
used. Here random numbers are gener- 
ated, converted to integers, and then 
ASCII, and interspersed between spaces. 
This data is also saved without spaces in 
KI$. 


3. If the normal format is selected and 
numbers are selected, then lines 5050 to 
5500 are used. Here random numbers are 
generated, converted to integers and then 
ASCII. 


4. |f the normal format is selected and num- 
bers are not selected then lines 5550 to 
8050 are used. Here random numbers are 
used as indexes into the arrays containing 
the words for the phrases or sentences. 
Then, based upon the level parameter, 
those random indexes are used to build 
the display data. If this created data is 
greater than 38 characters long, then an- 
other attempt is made, this time building 
fewer words. This will continue until the 
data generated is not greater than 38 
characters. (This usage of random num- 
bers as indexes to the word arrays pro- 
duces some very strange sentences. This 
is intentional and used to increase the 
comprehensive portion of your reading 
ability.) 


Once this data is built, the data is ready to 
be flashed. The length of time that the data 
will remain displayed is determined by the 
Speed parameter. The speed parameter is 
subtracted from the maximum speed of 9 
when the speed control is accepted. This 
result is used to set the number of iterations 
of the FOR..NEXT loop at line 8850. 

When the data has been flashed, the 
response is compared with the data displayed. 
If the response is correct then the program 
indicates correctness by going to the Sound 
subroutine. 

If this is the first attempt at the data, then 
the program goes to the display screen and 
data generation point, line 3700. If the re- 
sponse is correct and this is the second 
attempt the program will show the previous 
response on the line above the correct 
response, wait a couple of seconds and then 
go to line 3700. 

If the response was incorrect and this isthe 
first attempt, the response is saved in II$. The 
program then goes to the data flashing point 
to redisplay the same data, using line 8350. If 
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the response was incorrect and this is the 
second attempt, then the data is displayed 
along with both responses. The program will 
wait for a keystroke and then proceed to line 
3700 to generate new data. 

When five correct responses in a row OF 
three incorrect responses in a row are at- 
tained, then the Auto Adjust subroutines are 
used. These routines first attempt to adjust 
the speed parameter. If the speed cannot be 
further adjusted, then the level is adjusted 
and the speed is set about midpoint. These 
routines use the sound routines to notify you 
of a change. Ascending notes are sounded 
when the difficulty is increased and descend- 
ing notes when difficulty decreased. 

An Error routine is used to trap invalid 
inputs and Control-C. If you are typing inthis 
program yourself, don't include the ONERR 


GOTO (line 1100) until you have run the pro- 
gram a couple of times. 

The Ending routine is branched to when a 
Control-Q (or Control-C) is encountered. 
This routine prints out the score and a rating 
then stops. 


INSTRUCTIONS AND FORMATTING 

The instruction output routine was devel- 
oped out of the basic need to maintain my 
sanity. After many repeated attempts to for- 
mat the instructions so that a word would not 
wrap around on the display, | decided there 
must be an easier way. So | wrote this routine. 
This routine is very slow, but since giving 
instructions is not time critical, it is accepta- 
ble for this application. 


Henne ee ERS 
VARIABLES AND THEIR USAGE 


AS Data to be flashed. 

A%( ) Holding array for indexes to articles. Used in sentence generation. 

AD Holds the number of adjectives that are in the data statements. “ay 
AD$(_) Adjective array. 
AD%( ) Holding array for indexes to adjectives. Used in sentence generation. 

AR Holds the number of articles that are in the data statements. 

AR$()_ Article array. 

B Work variable. Multiple uses. 

BB Work variable. Multiple uses. 

CP Character position offset within the data, Q$. Used in instructions. 

CT Correct response counter. 

ER Error code. 

G$ Bell (Control-G). 

H Data type switch. H=1 means numeric data. 

I$ Input response. 
Hg Hold area for an initially wrong response. 

JP Character position offset from CP, for end of word. 

K Format switch. K=1 means Preschool format. 

KA$ Preschool data for display. 

KIS Preschool data without imbedded spaces. Used in correctness check. 

L Level of difficulty. 

LP$ Line to be output. Used in instruction output. 

N%( ) Holding array for indexes to nouns. Used in sentence generation. 

NO Holds the number of nouns that are in the data statements. 

NO$() Noun array. ; 
P% Holds the index to the preposition. Used in sentence generation. : 
PC Counter to locate the bottom of the screen. Used in instructions. 

PR Holds the number of prepositions that are in the data statements. 

PR$(_) —-Preposition array. 

Qa Maximum number of data statements to be read in the instruction routine. 

Q$ Data to be formatted for output. Used in instructions. “4 
Ss Score. ; 
$2 Scoring control. 

S$ Space. 
tT Number of data displays generated. j 
T1 Control for T. 
V% Holds the index to the verb. Used in sentence generation. 
VB Holds the number of verbs that are in the data statements. 

VB$() ‘Verb array. 

Ww Counter used to give two tries per display. 

wc Wrong response counter. 

WP$ The word extracted from Q$. Used in instruction output. 

x Speed. Used in the screen display. 

XX Speed. Used for flash duration. (XX=9-X) ‘ 
z$ Work variable. Used for input. i 


FIGURE 2 


This routine reads the data and builds a 
string for display that will be less than 40 
characters in length. This string is displayed 
and it continues building another string for 
display. When 23 lines have been displayed 
the routine goes into a keystroke wait. Upon 
receiving a keystroke, it clears the screen and 
starts building the next display string. This 
continues until there is no more data to be 
read. The variable “Q” contains the number of 
data statements to be read for the entire out- 
put and is used in a FOR..NEXT loop to con- 
trol the ending point. 


When developing the data, remember that 
commas and colons are meaningful to APPLE- 
SOFT. In those sentences which require a 
comma, colon or the ignored leading spaces, 
just enclose that data statement in quotation 
marks. 


Two special control indicators are used in 
this routine to force desired breaks. A single 
“@” is used to print the currently developed 
Output and advance to the next line. As an 


example, see line 16450; the first @ forces the 
printing of the data. The second @, since 
there is currently no data in the output line, 
causes a blank line to be output. 

The second control indicator is “@@”. This 
control forces a full display screen condition. 
It is highly probable that while developing the 
Output a paragraph will be split, such that 
only part will be displayed at the bottom of the 
display screen. When the next display screen 
is being output, the remaining portion of the 
split paragraph will be displayed. To prevent 
this, if necessary, place “@@” at the end of 
the preceding paragraph (see line 16600). 

This routine has one minor idiosyncrasy in 
that the very last character in the very last 
data statement must be a single @. If not, a 
portion of the data in that data statement may 
not be displayed. If “@@” is used there, an 
extra empty screen will be displayed. 


HOW TO CUSTOMIZE/MODIFY SPRINT 
The most obvious place to make a modifi- 
cation to the program is in the word lists at 


lines 14150 to 16300. | wouldn’t recommend 
any changes to the article list (line 14100) 
because the randomizing routine at lines 5550 
to 5750 is size dependent and besides, the 
sentences would read poorly without the 
articles. 

The other lists, however, can be changed 
quite easily. Word for word changes do not 
require any additional changes within the 
program. If you wish to delete some entries 
(or add some) you must modify the approp- 
riate count field and array dimension. For 
example, suppose you wished to add five 
verbs to the verb list. The count field which 
must be modified is VB, on line 1700, which 
now would read VB=60. The dimension state- 
ment on line 1650 must also be changed to 
read VB$(60). 

Another area you might like to modify 
would be the sound generation. If you are 
musically creative, some very dramatic tunes 
could be included in this program. we 





2600 IF Z$ = CHR® (17) THEN 12250 


2700 CALL —- 936: VTAB 10: HTAB 13 


2800 PRINT "NUMBERS? (Y/N)"32 GET Z$% 


(17) THEN 12250 


2900 IF Z$% = CHR (27) THEN 2450 


POKE 778,3: POKE 779,240: POKE 780,9: POKE 781,202 


Y/N) "3: GET Z$ 


5O REM S8aeeeseeeeeeseasesesaeseeees 2500 K = 0 
55 REM s << APPLE SPRINT >> 2 2550 IF Z% = "Y" THEN K = 1 
60 REM 8 BY s 
65 REM & KEN & MICHELLE MCCANDLESS ¢& 2650 T = O18 = 0 
7O REM ¢ COPYRIGHT ‘(C) 1982 s 
75 REM ¢& BY MICRO-SPARC INC s 2750 H= 0 
680 REM & LINCOLN, MA. 01773 s 
85 REM s ALL RIGHTS RESERVED % 2850 IF Z$ = CHRS 
87 REM SESE ATTAASSeaTESsesEEE 
100 REM INITIALIZE SOUND ROUTINE 2950 IF Z$ = "Y" THEN H = 1 
150 POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136 3000 CALL —- 936 
: POKE 774,208: POKE 775,5: POKE 774,206: POKE 777,13: 3050 


VTAB 10: HTAB 5S: PRINT "LEVEL? (O=EASIEST/4=HARDEST) 
“3: GET Zs 


200 POKE 782,206: POKE 783,245: POKE 784,174: POKE 785,0: 3100 IF Z% = CHRS (17) THEN 12250 
POKE 7846,3: POKE 787,76: POKE 788,2: POKE 789,3: POKE 3150 IF Z$ = CHRS (27) THEN 2700 
790,96: POKE 791,0: POKE 792,0 3200 L = INT (¢ ASC (Z$) —- 48) 
250 GOTO 1100 3250 IF L < O ORL > 4 THENL = 2 
300 FOR B = 1 TO 6: POKE 768,76 + 4 & B: POKE 769,50: CALL 3300 CALL - 936 
770: POKE 768,1: POKE 769,10: CALL 770: NEXT : POKE 7 3350 VTAB 10: HTAB 5: PRINT "SPEED? (O=SLOWEST/9=FASTEST) 
68,76 + 4 8 B: POKE 769,50: CALL 770: RETURN “3: GET Z$ 
350 REM ASCENDING NOTES 3400 IF Z$ = CHRS (17) THEN 12250 
400 FOR B = 6 T0 1 STEP - 1: POKE 768,56 + 4 8 B: POKE 7 3450 IF Z$ = CHRS (27) THEN 3000 
69,50: CALL 770: POKE 768,1: POKE 769,10: CALL 770: NEXT 3500 X = INT ( ASC (Z$) — 48):XX = 9 - X 
2 POKE 768,56 + 4 & B: POKE 769,50: CALL 770: RETURN 3550 IF X < 0 OR X > 9 THEN X = 4:XX = 5 
3600 CT = 0:WC = O:W = O 
450 REM SOUND FOR WRONG ANSWER 3650 REM BUILD THE DISPLAY 
500 FOR B = 1 TO 50: POKE 748,200: POKE 769,5: CALL 770: NEXT 3700 CALL - 936 
: RETURN 3750 VTAB 1: HTAB 1: INVERSE : PRINT "LEVEL=";L 
550 REM SOUND FOR RIGHT ANSWER 3800 VTAB 1: HTAB 13: NORMAL : PRINT "READING IMPROVER” 
600 POKE 766,102: POKE 769,90: CALL 770 3850 INVERSE : VTAB i: HTAB 34: PRINT "SPEED=";X: NORMAL 
650 POKE 768,1: POKE 769,20: CALL 770 : HTAB 1 
700 POKE 768,102: POKE 769,50: CALL 770 3900 IF K = 1 THEN VTAB 3: HTAB 14: INVERSE : PRINT "PRE 
750 POKE 768,1: POKE 769,20: CALL 770 SCHOOL": NORMAL 
800 POKE 768,102: POKE 769,10: CALL 770 3950 VTAB 24: HTAB S: PRINT "TO QUIT-HIT <CTRL>-@ THEN RE 
850 POKE 768,11: POKE 769,10: CALL 770 TURN";: HTAB 1 
9700 POKE 768,76: POKE 769,230: CALL 770 4000 VTAB'8: PRINT °==——--—---—-—-—--—--——-_————— === 
950 RETURN ---" 
1000 REM SOUND FOR EXCELLENT PERFORMANCE 4050 VTAB 9: PRINT "I"; SPC( 38);"I" 
1050 FOR B = 1 TO 20: POKE 768,64: POKE 769,10: CALL 770: 4100 VTAB 10: PRINT “I"; SPC( 38);"I" 
POKE 768,72: POKE 769,10: CALL 770: NEXT : RETURN 4150 VTAB ii: PRINT "I"; SPC( 38);"I" 
1100 ONERR GOTO 11900 AZ00: NTABCI2IOPRINT Sacre es 
1150 TEXT : NORMAL : NOTRACE : SPEED= 255 eee 
1200 CALL - 936 4250 B = FRE (0) 
1250 VTAB @: HTAB 12: PRINT “APPLE SPRINT” 4300 S2 = 2:T1 = 1 
1300 VTAB 11: HTAB 5S: PRINT "BY KEN AND MICHELLE MCCANDLE 4350 REM PRESCHOOLER 
ss" 4400 IF K < > 1 THEN 5000 
1310 VTAB 13: HTAB 9: PRINT “COPYRIGHT (C) 1982": VTAB 14 4450 KI¢ = ""sas = "" 
: HTAB 9: PRINT “BY MICRO-SPARC, INC.” 4500 IF H < 1 THEN 4800 
1325 BB = INT ( RND (1) & 10): FOR B = 1 TO BB:BC = RND 4550 REM PRESCHOOLER NUMBERS 
(1): NEXT : REM INDUCE MORE RANDOMNESS 4600 FOR B = 1 TOL + 2:KAS$(B) = CHRS (( RND (1) ® 10) + 
1350 DEF FN AZ) = 21 —- LEN (AS) / 2 48):KIS = KI + KAS(B):AS = AS + KAS(B) + " ": NEXT 
1400 DEF FN H(Z) = INT ( RND (1) & 10) + 48 
1450 SPEED= 255 4650 B = LEN (A$) — 2:A% = MIDS (A$,1,B) 
1500 DIM KAS(6) 4700 GOTO 8350 
1550 DIM A%(3),N%(3) , ADZ (3) 4750 REM PRESCHOOLER WORDS 
1600 DIM AR$(2),PR8(43) ,NO8 (S50) 4800 FOR B = 1 TOL + 2:KA$(B) = MIDS (VB$( RND (1) & (V 
1650 DIM AD$ (50), VBS(55) B- 1) + 1),( RND (1) ® 2 + 1),1):KIS = KIS + KAS(B): 
1700 AD = 50:VB = 55 AS = AS + KAS(B) + " “> NEXT 
1750 AR = 2:PR = 431NO = 50 4850 B = LEN (A$):A$ = MIDS (A$,1,B) 
1800 st =" " 4900 GOTO 8350 
1850 GS = CHRS (7) 4950 REM WORDS OR NUMBERS? 
1900 @ = 22: REM @ OF DATA STATEMENTS OF INSTRUCTIONS 5000 IF H < 1 THEN GOTO S600 
1950 REM BUILD THE DATA ARRAYS 5050 REM DOING NUMBERS 
2000 FOR B = 1 TO AR: READ ARS$(B): NEXT B 5100 IF L = 4 THEN BB = 12 
2050 FOR B = 1 TO PR: READ PR$(B): NEXT B 5150 IF L = 3 THEN BB = 10 
2100 FOR B = 1 TO NO: READ NOS(B): NEXT B 5200 IF L = 2 THEN BB = 8 
2150 FOR B = 1 TO AD: READ AD$(B): NEXT B 5250 IF L = 1 THEN BB = & 
2200 FOR B = 1 TO VB: READ VB$(B): NEXT B 5300 IF L = O THEN BB = 4 
‘2250 REM GET CONTROL PARAMETERS 5350 IF RND (1) > .65 THEN BB = BB + 1 
2300 VTAB 21: HTAB 10: PRINT "INSTRUCTIONS (Y/N)? "38 GET 5400 AS = “" 
zs 5450 FOR B = 1 TO BB:AS = AS + CHRS ( FN H(Z)): NEXT B 
2350 IF Z® = CHRS (17) THEN END 5500 GOTO 8350 
2400 IF Z% = “"Y" THEN GOSUB 13200 5550 REM RANDOMIZE 3 ARTICLES 
2450 CALL - 936: VTAB 10: HTAB 11: PRINT "PRESCHOOLER? ( 
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5600 FOR B = 1 TO 3 Ps 

50 AX(B) = RND (1) & 
=700 IF AX%(B) < 5 THEN AZ(B) = 1: NEXT B: GOTO 5700 
5750 A%(B) = 2: NEXT B 
5850 REM RANDOMIZE 3 NOUNS 
5900 FOR B = 1 TO 5 
5950 N%(B) = RND (1) # NO + 1 
6000 IF N%(B) < 1 THEN NZ(B) = 1 
6050 IF (N%(B) > NO) THEN NZ(B) = NO 
6100 NEXT B 
6150 REM RANDOMIZE A PREPOSITION 
6200 P% = RND (1) & PR + 1 
6250 IF P% < 1 THEN P% = 1 
6300 IF P% > PR THEN 6200 
6350 REM RANDOMIZE 3 ADJECTIVES 
6400 FOR B= 1 TO 3 
6450 AD%(B) = RND (1) 8 AD + 1 
6500 IF AD%(B) < 1 THEN ADZ(B) = 1 
6550 IF AD%(B) > AD THEN ADZ~(B) = AD 
6600 NEXT B 
6650 REM RANDOMIZE VERB 


6700 V% = RND (1) & VB + 1 
6750 IF V% < 1 THEN V% = 1 
6800 IF V% > VB THEN V% = VB 


7050 AS = PRS(P%) + SB 


7150 IF L > 2 THEN 7350 
7200 AS = ARS(AZ(1)) + SS + NOS(NZ(1)) + S$ + VBS(V%) + St 
+ ARS(AX(2)) + SS + NOS(N%(2)) 
7250 IF LEN (A$) < 38 THEN 8350 
7300 GOTO 6900 
7350 IF L > 3 THEN 7650 
7JA00 AS = ARS(AXZ(1)) + SS + ADS(ADZ(1)) + SS + NOS(NA(1)) + 
S$ + VBS(V%) + S$ + ARS(AZ(2)) + S® + ADS(ADZ(2)) + S 
$ + NOS(NZ(2)) 
7450 IF LEN (A$) < 38 THEN 8350 
7500 AS = ARS(AX(1)) + S$ + ADS(ADZ(1)) + SS + NOS(NZ(1)) + 
S$ + VBS(V%) + S$ + ARS(AZ(2)) + SB + NOS (N%(2)) 
7550 IF LEN (A$) < 38 THEN 8350 
7600 GOTO 7200 
7650 AS = ARS(AX(1)) + SS + ADS(ADZ(1)) + SS + NOS(NZA(1)) + 
S$ + VBS(V%) + S$ + ARS(AX(2)) + SS + ADS(ADZ(2)) + S 
$ + NOS(N%(2)) + SS + PRS(PZ) + S$ + ARS(AZ(S)) + ss + 
ADS (ADZ(3)) + S$ + NOS(NXK(S)) 
7700 IF LEN (A$) < 38 THEN 8350 
7750 AS = ARS(AZ(1)) + S$ + ADS(ADZ(1)) + SS + NOS(NZA(1)) + 
S$ + VBS(V%) + S$ + ARS(AZ(2)) + S$ + ADS(ADZ(2)) + S 
$ + NOS(N%(2)) + SS + PRS(PZ) + SS + ARS(AZ(3)) + SS + 
NOS (NZ (3) ) 
7800 If LEN (A$) < 38 THEN 8350 
7850 AS = ARS(AZ(1)) + S$ + ADS(ADZ(1)) + SS + NOS(NZ(1)) + 
S$ + VBS(V%) + S$ + ARS(AZ(2)) + SB + NOS(NZ(2)) + SS 
+ PRS(PZ) + S$ + ARS(AZ(3)) + SS + NOS(NZ(3)) 
7900 IF LEN (A$) < 38 THEN 8350 
7950 AS = ARS(AZ(1)) + SS + NOS(NZ(1)) + S$ + VBS(VZ) + SS 
+ ARS(AZ(2)) + SS + NOS(N%Z(2)) + S$ + PRS(P%) + SS + 
ARS (AZ(3)) + S$ + NOS(NZ(S)) 
8000 IF LEN (A$) < 38 THEN 8350 
g0so0 GOTO 7400 
8100 REM FLASH THE DATA ON ANY 
8150 REM KEY INPUT EXCEPT.... 
8200 REM CTRL-@ (QUIT) OR 
8250 REM ESC (GET NEW CONTROL 
8300 REM PARAMETERS) 
8350 VTAB 21: HTAB 1 
8400 POKE - 16368,0 
8450 GET Z$ 
8500 IF Z$ = CHR$ (27) THEN 2700 
@550 IF Z$ = CHRS (17) THEN 12250 
8600 IF T1 = 1 THEN Ti = O:T =T +1 
8650 VTAB 10 
8700 HTAB FN A(Z) 
8750 REM HOLD FLASH FOR SPEED-XX 
8800 PRINT AS 
8850 FOR B = 1 TO XX # 180: NEXT B: VTAB 10: HTAB 2: PRINT 
sPC( 38) 
8950 REM GET AND CHECK THE INPUT 
9000 REM CTRL-@ IS TO QUIT 
9050 POKE - 16368,0 
9100 VTAB 21: HTAB 2: INPUT "?";I1¢ 
9125 BB = INT ( RND (1) # 10): FOR B = 1 TO BB:BC = RND 
(1): NEXT =: REM INDUCE MORE RANDOMNESS 
9150 IF I$ = CHR (17) THEN 12250 
9200 IF K < > 1 THEN 7400 
9250 REM CHECK FOR PRESCHOOLER INPUT 
9300 IF I$ < > KI% THEN 10100 
9350 GOTO 9475 
9400 IF I$ < > AS THEN 10100 
9450 REM CORRECT ANSWER 
9475 BB = 0 
9500 IF S2 = 1 THEN VTAB 20: HTAB 1: PRINT "1 "sII$: VTAB 
21: HTAB 1: PRINT "2 ";:BB = 1 
9550 VTAB 23: HTAB 12: FLASH : PRINT "888 CORRECT 28” 
9600 GOSUB 600 
9650 FOR B = 1 TO 500 + (300 & (L + 1) & BB): NEXT B 
9700 NORMAL 
w=0 
9800 S = S + S2 
we = 0:CT = CT +1 
9900 IF CT = 5 THEN GOSUB 11150 
9950 GOTO 3700 
10000 REM WRONG ANSWER 
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10100 VTAB 23: HTAB 10: FLASH : PRINT "### WRONG ANSWER * 


#8";: GOSUB 500 
10150 FOR B = 1 TO S00: NEXT B 
10200 NORMAL 
10250 W= Wt l 
10300 $2 = S2- 1 


10350 HTAB 1 _ 
10400 IF W = 1 THEN VTAB 213 PRINT SPC( 119):118 LEFTS 


(1$,38): GOTO 8350 

10450 VTAB 10: HTAB FN A(Z): PRINT AS 

10500 PRINT G$: REM <CTRL>-G (BELL) 

10550 | VTAB 20: HTAB 1: PRINT “1 “311%: 
si) Ws 

400 POKE — 16368,0 

ices VTAB 23: HTAB 6: INVERSE : PRINT “HIT ANY KEY TO CO 
NTINUE “;: NORMAL : PRINT " "32 GET 2® 

10700 IF 7% = CHRS (17) THEN 12250 

10750 IF Z® = CHRS® (27) THEN 2700 

10800 CT = O:WC = WC + 1 

10850 IF WC = 3 THEN GOSUB 11450 

10900 W = 0: GOTO 3700 

10950 REM AUTO ADJUST BASED 

11000 REM UPON PERFORMANCE 

11050 REM 

11100 REM DOING WELL-MAKE HARDER 

11150 WC = O:CT = 0 

11200 IF X = 9 THEN 11300 

11250 X = X + 1:XX = 9 — X: GOTO 400 

11300 IF L = 4 THEN RETURN 

11350 L = L + 1:X = 42XX = Ss GOTO 400 

11400 REM NOT DOING SO WELL-MAKE EASIER 

11450 CT = 0:WC = 0 

11500 IF L + X = 0 THEN RETURN 

11550 IF X > O THEN X = X — 1:XX = 9 — Xr GOTO 300 

11650 IF L > O THENL =L — 1:X = 48XX = S: GOTO 300 

11750 L = 2:X = 4:XX = 5S: GOSUB 300: GOTO 400: REM INPO 
SSIBLE-BUT 

11800 REM ERROR HANDLING 

11850 REM ROUTINE 

11900 ER = PEEK (222) 

11950 IF ER = 53 THEN RESUME 

12000 IF ER = 163 THEN RESUME 

12050 IF ER = 254 THEN RESUME 

12100 IF ER = 255 THEN 12250 

12150 STOP 

12200 REM ENDING ROUTINE 

12250 CALL —- 936: VTAB 1: HTAB 12: PRINT “READING IMPROV 
ER": VTAB 10: HTAB 1 

12300 PRINT "YOUR SCORE WAS “3S; 

12350 PRINT “ OUT OF A POSSIBLE ";T 8 2 

12400 IF S = 0 OR T = O THEN 12900 

12450 S = INT ((S / (T & 2)) ® 100) 

12500 PRINT "POINTS FOR A RANKING OF "3;5;"%." 

12550 PRINT 

12600 IF S = 100 THEN PRINT “EXCELLENT! KEEP UP THE 600 
D WORK.": GOSUB 1050: GOTO 12900 

12700 IF S > 74 THEN PRINT “VERY GOOD!": GOSUB 600: GOTO 
12900 

12750 IF S > 49 THEN PRINT “GOOD. TRY A LITTLE HARDER N 
EXT TIME.”: GOSUB 600: GOTO 12900 

12800 PRINT "POOR. TRY HARDER NEXT TIME.": PRINT “YOU CA 
N DO IT. I KNOW YOU CAN.“ 

12850 : GOSUB 500 

12900 FOR B = 1 TO 750: NEXT B: VTAB 18 

12950 PRINT : PRINT “WHEN YOU QUIT, YOUR "; 

13000 INVERSE : PRINT “SPEED";: NORMAL : PRINT “ WAS "; 

13010 INVERSE : PRINT X 

13050 NORMAL : PRINT "AND YOUR “;: INVERSE : PRINT “LEVEL 
"3: NORMAL : PRINT “ WAS “;: INVERSE : PRINT L: NORMAL 


13075 PRINT “USING THE ";: INVERSE : IF K = 1 THEN PRINT 
“PRESCHOOL "; 

13080 IF K = 0 THEN PRINT “NORMAL”; 

13090 NORMAL : PRINT “ FORMAT.” 


13100 END 
13150 REM INSTRUCTION OUTPUT 
13200 CALL - 936 


13250 FOR B= 1T0@ 

13300 READ @$: GOSUB 13400: NEXT B 

13350 PC = 23: GOSUB 13850: RETURN 

13400 REM FORMAT OUTPUT OF DATA IN Qs 

13450 FOR CP = 1 TO LEN (Q@$) 

13500 FOR JP = CP TO LEN (Q@$): IF MID® (Q8,JP,1) < >" 
“ THEN NEXT JP 

13550 WPS = MIDS (Q8,CP,JP - CP):CP = JP:WweS = WPS +" " 

13575 IF LEFTS (WPS,2) = “92" THEN GOSUB 13850:wes = "~ 
:PC = 23: GOSUB 13850 

13600 IF LEFT® (WP$,1) = "2" THEN GOSUB 13850:wPs = *" 

13650 IF ( LEN (LP®) + LEN (WPS)) > 39 THEN GOSUB 13850 


13700 LP® = LPS + WPS 
13750 NEXT CP 
13800 RETURN 


13850 POKE - 16368,0 
13900 IF PC = 23 THEN VTAB 24: HTAB 8: PRINT “HIT ANY KE 
Y TO CONTINUE “;:PC = O: GET Z$: HTAB 1: CALL —- 9362 


IF Z%@ = CHRS (17) THEN END 
13950 PRINT LP$:LP$ = "";PC = PC + 1: RETURN 
14000 REM DATA FOR THE ARRAYS 
14050 REM ARTICLES 
14100 DATA A, THE 
14150 REM PREPOSITIONS 
14200 DATA AT,BY,IN,ON, NEAR, TO,FROM 
14250 DATA DOWN, OFF, THROUGH, OUT, PAST, UP 
14300 DATA OF,FOR,WITH,LIKE, ABOUT, ABOVE 
14350 DATA ACROSS, AFTER, AGAINST, ALONG 
14400 DATA AMONG, AROUND, BEFORE, BEHIND 
14450 DATA BELOW, BENEATH, BESIDE, BETWEEN 
14500 DATA BEYOND, DURING, EXCEPT, INSIDE 
14550 DATA OUTSIDE,OVER, UNDER, INTO, ONTO 
14600 DATA UPON,WITHIN, WITHOUT 


VTAB 21: HTAB 1: PRINT 


14650 REM NOUNS 

14700 DATA HOUSE, TREE, BOAT, CAR, BICYCLE 

14750 DATA RAFT,LAKE,STREAM, RIVER, BUSH 

14800 DATA FLOWER, PLANT, SHACK, TENT, DESK 

14850 DATA PENCIL,PEN, DOOR, WALL, WINDOW 

14900 DATA CLOCK, BOOK, BIRD, DOG, CAT 

14950 DATA STREET,POLE,HILL,ROCK, PUDDLE 

15000 DATA KEY, VASE,PILLOW, MONEY, CAVE 

15050 DATA FORK,SPOON, DISH, CUP,GLASS 

15100 DATA SCHOOL,CLASS,SHIRT,PANTS, TIE 

15150 DATA CHAIR, SOFA, STEP,LADDER, STOVE 

15200 REM ADJECTIVES 

15250 DATA WET,RED, GREEN, BLUE, DRY 

15300 DATA SLIPPERY,LONG, FAT, SHORT, TALL 

15350 DATA SKINNY, BIG, SMALL, HUGE,LITTLE 

15400 DATA BLACK, BURNT, FAST, SLOW, ODD 

15450 DATA GROWING, SWEET, DULL, HARD, FRAMED 

15500 DATA SOFT,FAR,LOUD, QUIET, NEW 

15550 DATA OLD,ANCIENT,FRAGIL, BROKEN, WOODEN 

15600 DATA COLORFUL, WHITE, ROUGH, SMOOTH, STRIPED 

15650 DATA GLOWING, DEADLY, FUNNY, MESSY, SHARP 

5700 DATA DUMPY,HONEST, CROOKED, HOT, COLD 

15750 REM VERRS 

15800 DATA RAN, JUMPED, WALKED, SWAM, COVERED 

15850 DATA BROKE,FIXED,GOT,PUT, TOOK 

15700 DATA DROVE, PILOTED, PUSHED, SHOOK, STOPPED 

15950 DATA DRANK, ATE, CLIMBED, THREW, CAUGHT 

16000 DATA MADE, READ, CARRIED, DROPPED, REPLACED 

16050 DATA TICKLED,PULLED,LIFTED, TOSSED, FLEW 

16100 DATA EXPLODED, STACKED, PLACED, RODE,PLAYED 

16150 DATA WROTE, HUNG, PLANTED, BURIED, REMOVED 

16200 DATA WATCHED, TOLD, SWUNG, ATTACKED, KILLED 

16250 DATA KISSED,HELD,KICKED,HIT, TRIPPED 

16300 DATA BURNED, FIXED, REPAIRED, DESTROYED, ENTERED 

16350 REM DATA FOR INSTRUCTIONS 

16400 DATA " THIS PROGRAM WILL AID IN INCREASING YOUR RE 
ADING SPEED AND COMPREHENSION. 2 2" 

16450 DATA " DATA WILL BE FLASHED IN A BOX ON THE SCREEN 

AND YOU MUST TYPE IN THIS DATA TO GET IT CORRECT. @ 
a" 

16500 DATA “ THE DATA CONSISTS OF EITHER NUMBERS OR S 
ENTENCES (IN THE CASE FOR A PRESCHOOL CHILD, JUST LET 
TERS). THE SENTENCES ARE, FOR THE MOST PART, NONSENS 
ICAL, BUT GRAMMATICALLY CORRECT. @ 2" 

16550 DATA “ THERE ARE TWO FORMATS AVAILABLE, A NORMAL F 
ORMAT AND A FORMAT DESIGNED FOR THE PRESCHOOL CHILD” 

16600 DATA “WHO CAN READ THE ALPHABET AND/OR NUMBERS. 
THE RESPONSE TO THE QUESTION ’PRESCHOOLER’ SELECTS TH 
E FORMAT. 22" 

16650 DATA ” FOLLOWING THE FORMAT QUESTION YOU ARE ASKE 
D FOR THE TYPE OF DATA (NUMBERS? (Y/N)), DIFFICULTY L 
EVEL" 

16700 DATA AND SPEED AT WHICH YOU WILL ATTEMPT READING 
- a 

16750 DATA "<{(NOTE: HITTING <ESC>AT ANY POINT DURING THIS 
QUESTIONING WILL SEND YOU TO THE PREVIOUS QUESTION.) 
aa” 

16800 DATA ” WHEN ANSWERING THESE QUESTIONS, HITTING ANY 
CHARACTER OTHER THAN THOSE SPECIFIED WILL CAUSE THAT 
QUESTION TO” 

16850 DATA ” ACCEPT THE FOLLOWING DEFAULTS: @ 2 INSTR 
UCTIONS = N 2 PRESCHOOLER = N @ NUMBERS = N 2 L 
EVEL = 2 a SPEED = 4 2a" 

16900 DATA " FOLLOWING THE SET-UP, YOU WILL SEE THE LEV 
EL AND SPEED, AT WHICH YOU ARE. ATTEMPTING, DISPLAYED. 

BELOW THIS YOU WILL SEE THE BOX IN WHICH THE DATA W 
ILL BE FLASHED. 2 2” 

16950 DATA " BELOW THE BOX DRAWN ON THE SCREEN YOU WILL 
SEE A FLASHING CURSOR. THIS IS YOUR READY CUE." 
17000 DATA “WHEN YOU ARE READY TO READ, HIT ANY KEY AND 

THE DATA WILL BE FLASHED. 2 2" 

17050 DATA “" AFTER THE DATA HAS BEEN FLASHED AND YOU HAV 
—E READ IT, A QUESTION MARK (7) WILL APPEAR.” 

17100 DATA THIS IS YOUR CUE TO TYPE IN WHAT YOU READ. @ 

17150 DATA “(NOTE: IN THE PRESCHOOLER FORMAT, SPACING I 
S IGNORED. JUST TYPE IN THE DATA.) 2a" 

17200 DATA " YOU WILL HAVE TWO CHANCES AT GETTING IT COR 
RECT... IF YOu" 

17250 DATA "DON’T YOU WILL BE SHOWN THE DATA YOU MISSED 
AND YOUR RESPONSES. @ 2" 

17300 DATA " THE PROGRAM WILL AUTOMATICALLY ADJUST THE D 
IFFICULTY LEVEL AND SPEED BASED UPON YOUR PERFORMANCE 


17350 DATA " IF YOU WISH TO MAKE AN ADJUSTMENT TO THE D 
ATA TYPE, LEVEL AND SPEED; JUST HIT THE <ESC> KEY. @ 
a" 

17400 DATA " YOU ARE SCORED AS FOLLOWS: ® 2 POINTS IF C 
ORRECT ON THE FIRST TRY 9 1 POINT IF CORRECT ON THE S 
ECOND TRY @ © POINTS IF WRONG ON BOTH TRIES @ @ 

17450 DATA » TO QUIT, JUST HIT <CTRL>-@. 2” 
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Disk Dump 


by David Krathwohl 
19 Tri St. 
Ashland, MA 01721 


During a couple of recent projects, | found 
myself with a disk full of relatively short pro- 
grams for which | needed printed listings. 
Rather than face an afternoon of loading and 
listing each one, and in anticipation of similar 
projects, | developed a program to do the 
work for me. The result is Disk Dump, the lazy 
person’s way of obtaining a printed listing of 
any or all of the programs on a disk by run- 
ning just a single program. 

Essentially, Disk Dump performs four 
Operations: 


1. It reads the disk directory into memory. 


2. It checks the directory entries for Apple- 
soft programs. 


w 


. It creates a text file containing alternating 
load and list commands. 


4. It EXEC’s the text file, causing the compu- 
ter to load and list each program. 


To accomplish the first task, Disk Dump 
relies on the RWTS subroutine. This is the 
“Read-Write-Track-Sector” subroutine which 
DOS uses to access the disk. For a complete 
explanation of RWTS, there are two excellent 
sources. One is the DOS manual on pages 
94-98, and the other is the Disk Snooping 
series in Nibble (see the Nibble Express, 
Volume 2). 


THE RWTS 
The RWTS subroutine consists of three 
parts, all written in machine language: 


1. The Controlling Routine which controls 
the jump to: 


2. The lOB (Input/Output Block) which holds 
information such as the track and sector 


of the disk being accessed, the operation 
(reading or writing) to be performed, and 
the address of the data buffer which is to 
be either read from or written to. 


3. The Device Characteristics Table which 
holds technical information about the tim- 
ing of the disk drive. 


Disk Dump uses decimal data and a loop (at 
line 460) to poke these three machine lan- 
guage blocks into memory starting at 768 
(decimal). Disk Dump is written for Disk Drive 
1 in slot 6 (DOS 3.3). To change this would 
require changing only two of the data entries, 
the second “96” and the “1” immediately fol- 
lowing it. See the DOS manual (p. 95) for 
details. 


READING THE DISK DIRECTORY 

After setting up the RWTS subroutine, the 
program uses a loop to step through the sec- 
tors of the disk directory on track 17($11) (at 
line 60). It first reads a sector into a data 
buffer starting at 8192($2000) by executing a 
CALL 768(at line 80). It then increments a 
counter for the starting address of the data 
buffer (SB) and pokes the new address into 
the IOB (at line 100). Next it loops back and 
reads the next sector from the disk. 

Having transferred the contents of track 17 
to memory starting at location 8192, the next 
task is to sort through the data and find the 
names of all Applesoft programs. These will 
then be stored in an array (CT$(n)). 

Each sector from the disk (256 bytes) and 
therefore each data segment (256 bytes) 
starting at 8192 contains space enough for 7 
file names. Preceding each file name (maxi- 
mum of 30 bytes) are the codes which indi- 
cate the file type (binary, text, or Integer) and 
whether a particular file has been deleted. 
Since the total space allotted for each file is 
35 bytes, the search loop is set with an incre- 
ment of 35 (at line 130). The index value (I) is 
set at the byte immediately preceding the 


start of the first file name (13 bytes into the 
sector). 


FILE CHECKING 

Disk Dump first checks to see if a file has 
been deleted (at line 150). This is done by 
PEEK-ing the second byte preceding the 
index value (I-2). If it contains a value of 
255($FF), the file has been deleted and Disk 
Dump increments to the next file space. 

The program next checks the byte at the 
index value (I) for a value of 132($82) or 2($2) 
(at line 160). A value of 132 is used to indicate 
alocked Applesoft program, while a value of 2 
is used to indicate an unlocked Applesoft file. 
If either value is found, the program loops 
through the entire space allocated to the file 
name (regardless of the actual length of the 
name) and uses PEEKs and concatenation to 
build that name into the CT$(n) array. The 
variable EN counts the number of Applesoft 
entries. 

When an entire sector’s worth of informa- 
tion has been examined, the program incre- 
ments to the next data buffer segment and 
repeats the process. 

After building the CT$(n) array with pro- 
gram names, Disk Dump offers the user the 
option of dumping the whole disk or of select- 
ing particular files to be dumped. It then 
opens a text file called “Dumper” and writes 
alternating LOAD and LIST commands to it 
which include the names of the programs. 
Notice that in line 370, CHR$(34) has to be 
used to write quotation marks to the text file. 

Line 400 writes a form feed command to the 
text file suitable foran Epson MX-80. This line 
may be modified or eliminated according to 
your printer's needs. Line 420 writes a com- 
mand to the text file which will cause it to 
delete itself when its work is done. 

Finally, the text file is EXEC’ed, causing the 
programs selected to be loaded and listed 
automatically. 2 


een eee SS SSS 





(ANS,1) = "Y" THEN PO = EN: 


IF CO = 15 THEN 250 


"DO YOU WANT TO DUMP THE WH 
GOTO 310 


"DO YOU WANT TO DUMP:": PRINT 


(ANS, 1) = "Y" THEN CT$(PO) = CTS#(K):PO = 


(34) sCT$(K)3 CHRS (34) 


"PRINT CHR#(140):REM FORM FEED ON MX-80 


FOR I = 0 TO 30: READ ML: POKE 768 + I,ML: NEXT I 


169, 3, 140, 10, 32, 217, 3, 96, 0,0, 1,96, 1,0, 17 


»0,27,3,0,32,0,0,1,0,0,96,1,0, 1,239, 216 


ILIST 220 TE = O: NEXT I 
230 CO = CO + 1: 
240 GOTO 140 
1 REM ESSERE AAT EK 250 HOME : VTAB 10: INPUT 
2 REM t DISK DUMP * OLE DISK?(Y/N)"; ANS 
3 REM « BY DAVID KRATHWOHL x 260 IF LEFTS$ 
4 REM t COPYRIGHT (C) 1982 * 270 FOR K = O TO EN - 1 
5 REM BY MICRO-SPARC INC x 280 HOME =: VTAB 10: PRINT 
6 REM & LINCOLN, MA. 01773 x CT$(K): INPUT "(Y/N) ?"5 ANS 
7 REM & ALL RIGHTS RESERVED * 290 IF LEFTS$ 
B REM KAMER AAR RATATAT ARETE PO + 1 
40 HOME : VTAB 10: HTAB 10: INVERSE : PRINT “ READING 300 NEXT K 
DIRECTORY ": NORMAL 310 D$ = CHRS (4) 
50 GOSUB 460: REM POKE IOB INTO MEMORY 320 PRINT D$"OPEN DUMPER" 
60 FOR J = 15 T0 0 STEP -1 330 PRINT D$"DELETE DUMPER" 
70 POKE 783,J: REM STEPS THROUGH SECTORS 340 PRINT D$"OPEN DUMPER" 
80 CALL 748 350 PRINT D$"WRITE DUMPER"” 
90 SB = SB + 1 360 FOR K = O TO PO - 1 
100 POKE 787,32 + SB 370 PRINT "PRINT "3 CHRS 
110 NEXT J 380 PRINT "LOAD ";CT$(K) 
120 DIM CT$(150) 390 PRINT "LIST" 
130 DB = 8192:CO = O:EN = O:TE = 0 400 PRINT 
140 FOR I = DB + 13 + CO * 256 TO DB + (CO + 1) & 256 410 NEXT K 
STEP 35 420 PRINT "DELETE DUMPER" 
150 DE = PEEK (I - 2): IF DE = 255 THEN 170: REM DEL 430 PRINT D$"CLOSE DUMPER" 
ETED FILE 440 PRINT D$"EXEC DUMPER" 
160 TE = PEEK (I): IF TE = 130 OR TE = 2 THEN 200: REM 450 END 
APPLESOFT FILE’ 460 
170 TE = O: NEXT I 
180 CO = CO + 1: IF CO = 15 THEN 250 470 DATA 
190 GOTO 140 
200 FOR J = 1 TO 30:CH = PEEK (I + J):CTS(EN) = CT8( 480 RETURN 


EN) + CHRS (CH): 
210 EN = EN + 1 


NEXT J 
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Hi-Res Pseudo-Colors 


by Rob Smythe 

1522 Rusholme Cres 
Burlington, Ontario 
Canada L7M1M6 


Did you know that you can get more high 
resolution colors than those mentioned in the 
Applesoft manual? While it is true that the 
command HCOLOR = # will only accept 
integers from 0 to 8, it turns out that you can 
get 256 different “colors” by Poking different 
numbers into location 228. When you set 
HCOLOR, the following values get placed 
into that location. 


HCOLOR 228 CONTAINS 


0 
42 
85 

127 
128 
170 
213 
255 


NO hon o 


So instead of using HCOLOR = 5 to get 
orange, for example, you could POKE 228,170 
instead. The interesting thing is that although 
errors result trying to make HCOLOR greater 
than 7, you can put any value from 0 to 255 
into 228 and get some pretty weird colors (or 
color patterns). 

Here is a little program to illustrate the 
effects you can produce. The display is a 
chessboard. Between the red squares you will 
see the “pseudo-colors” that can be obtained. 
Some of the plaid effects are quite beautiful. 

One of the possible uses of these “colors” 
could be for displaying game board and 
markers so that the viewer can distinguish 
between them on a black and white console. 

Type the program in and try it. Change the 
value in line 2 if you wish to start with one of 
the other standard colors in the comparison 
squares. 


ILIST 

2 REM SSReeeseeeseeseesssasse 
3 REM & PSEUDO COLORS s 
4 REM & BY ROB SMYTHE s 
S REM # COPYRIGHT (C) 1982 & 
6& REM & BY MICRO-SPARC INC 8 
7 REM & LINCOLN, MA. 01773 & 
8S REM Ceeeeeeeeseessssesesess 
10 REM PSEUDO COLORS 


20 REM R. M. SMYTHE 


60 POKE 226,COL 

70 FOR I = 1 TO 20 

80 FOR J =1 703 

90 HPLOT 40 # J,20 + 170 4084 
+ 20,20 + I 


100 NEXT J,I 

110 POKE 228,A 

120 FOR I = 1 TO 20 

130 FOR J = 1 T03 

140 HPLOT 40 # J + 20,20 + I TO 
40 & J + 40,20 + I 

150 NEXT J,1I 

160 REM ENTER NUMBER BETWEEN 0 
AND 127 TO ACCOMPANY GREEN O 
R BLUE SQUARES AND A NUMBER 
BETWEEN 128 AND 255 TO USE W 
ITH ORANGE OR VIOLET.” 

170 VTAB 22: IF COL < 127 THEN INPUT 
"NEW CHOICE (0 ... 127) ? "3 
€: GOTO SO 

180 INPUT "NEW CHOICE (128 TO 25 
5) ? "3A 

190 GOTO 50 


v 


OILER 


By Glen E. Bredon 
521 State Rd. 
Princeton, N.J. 08540 


It may come as a bit of a surprise, but the 
Apple DOS binary file load routines are some- 
what inefficient. This is not ordinarily much of 
a problem, but if you spend a great deal of 
time using a text processor or assembler 
which uses binary files, you begin to long for 
more efficient BLOADs. This is the purpose 
of the OILER program. 

OILER sets up a DOS patch to the BLOAD 
routine which will cause all BLOADs to be 
processed over 3 times faster than the stan- 
dard routines. It is totally transparent to the 
user and will dramatically speed up file load- 
ing for word processors such as the Apple 
Writer or assemblers such as Merlin. It does 
not use any memory locations aside from 
those ordinarily used by DOS. 

OILER is designed for use with standard 
DOS 3.3 in a 48K system. Other configura- 
tions would require some changes to the 
program. 

When using OILER, be sure that Master DOS 
is loaded by booting from the DOS 3.3 System 
Master or a disk that has been updated using 
the Master Create program. 


DESCRIPTION OF PROGRAM ACTION 

To initialize OILER, type BRUN OILER. 
This will establish the BLOAD patch in an 
area of DOS that is not used after a boot, and 
it places a jump at an appropriate place inthe 
BLOAD routine. Because of the change in 
DOS, an INIT would not be possible, so the 
INIT command is disabled. At this point con- 
trol is returned to the user. Note that since the 
Apple copy program COPYA does an INIT, 
you will have to reboot before using that pro- 
gram. Some other copy programs would not 
require this, and thus may be used. 

When a BLOAD occurs, the patch checks 
to see if the length of the file is less than one 
page, or more than 120 pages (more than 
$78FF in length-approximately 122 sectors). 
If so, then the old BLOAD routine is used. The 
reason that files over 120 pages long cannot 
be handled is that such files need more than 
one “track/sector list” and there is not enough 
room in the patch to be able to handle this 
complication. Since binary files of this length 
are rare, this limitation is not very serious. 

For files of the appropriate length, the 
patch proceeds to read the sectors of the file 
directly into memory using the RWTS (Read/ 
Write Track and Sector) routine in DOS. The 
last sector of the file is processed differently 
in order to avoid overwrite of memory beyond 
the specified end of the file. 

The patch does need some zero page loca- 
tions for its own use, but the contents of these 
locations are saved on the stack upon entry 
and replaced upon exit, so that no zero page 
conflicts can arise. 


COMMENTS ON THE 

ASSEMBLER LISTING 
The assembler used for this program is 
Merlin, which is anew macro assembler with 
some advanced features not found in other 
assemblers. The following remarks will aid 
users of other assemblers in transcribing the 
program. The ERR opcode at the end is to 
ensure that the program is not too long for the 
space allotted to it. On another assembler this 
will have to be checked by hand. The CHK 
opcode near the end is a checksum byte 


which enables you to check your coding 
against the original. This will have to be 
replaced with END EQU* on other assemblers 
and you will have to exercise greater care in 
writing the source. The code is designed to be 
assembled in one block to load to address 
$2DE through $3B3(or $3B2 without the 
checksum byte). To do this on many assem- 
blers you will have to replace the line 
NOWADRS ORG $B700 with: 


NOWADRS EQU * 
NEWBL EQU $B700 


and remove the label NEWBL from the next 
line. Inthe present case this will not affect the 
code since it is entirely in relocatable form. 
The opcode >>> is a macro call. On Merlin 
you need only type the >>> line and then 
skip to the line following the <<<. On other 
assemblers, ignore the >>> and <<<lines 
and type the lines between (and omit the 
macro definitions at the start). 

If your assembler cannot save the object 
code with the correct loading address, you 
should save the object code, then BLOAD 
OILER,A$2DE <RTN> and then BSAVE 
OILER,A$2DE,L$D5 <RTN>. (This ignores 
the checksum byte, which is not used by the 
program itself.) 


DIRECT MEMORY ENTRY 

Without an assembler you can enter the 
program into memory using the monitor's 
memory change by typing the part of the list- 
ing to the left of the line numbers with a 
RETURN at the end of each line. However, in 
the lines starting with “B7”, the “B7” should 
be replaced with “3”. When done, type BSAVE 
OILER,A$2DE,L$D5. Then BLOAD OILER 
and compare the program with the listing 
very carefully. 

Itis wise to test the program out first using a 
scratch diskette. Any error in a program of 
this nature could have serious consequences. 


continued on next page 
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Oiler (Cont.) 


O2DE; 
O2E1: 
02E 3; 
O2E 5; 
02E7+ 


O2EAt 
O2EC; 
O2EF+ 
O2F 1; 


02F 4; 
02F 6% 
O2F 93 
O2FC} 
O2F I 
OIF F+ 


110 


ALD 84 AB 


Bl 84 AB 


8b 8C AS 
80 80 AS 


BY FF 02 
99 FF B6 


BDONOUSPGN — 


POKER AK 
OILER ‘ 

Fast Binary File Loader : 
3/22/82 x 

Se ee etETUERCKEALAAATHSATE 
: 

x 


When this is BRUN it sets uF 
Thereafter» 


x 
* 
* 
* 
x 
x Glen E. Bredon 
x 
* 
* 
x 
x 
BRUN of 3 


2 DOS Patch. 

% anv BLOAD or * 
& binary file will load about * 
* 3 or more times faster (with * 
& the exception of those over * 
& $78FF lensth - about 123 * 
& sectors - which are loaded *x 
& the old way because of srace x 
& constraints in this Patch), : 
* 
* x 
* x 
* x 
* * 
* x 


This patch is transrarant to 
the user, No memory is used 
beyond normal DOS usage, 


ERRELAAEAAKAAAAA RAK AAA KAKA KER 


TSBUFPTR = 0 #T/S List Pointer 

DATAPTR = 2 Data buffer rointer _ 
DESTPTR = 4 ;Temporarily holds BADR 
NUMPAGES = 4 #Countdown # of Frases 
TSPTR = 5 sOffset to next T/S Pair 
RWTS = $B7B5 

I0B = $B7E8 

BLEN = $AA60 

BADR = $AA72 

DOSERR = $A6D2 

PNTRS = $BSC9 sCurrent DOS buffer addresses 
INITCHD = $AsB4 s" INIT” command word 

BLJ = $A3BC #Where Patch is made 

RR 7 $A471 #Where it used to go 
CLOSE = $A2EA 

x Data? 

VOLOFF = 3 Offsets from IOK start 
TRACKOFF = 4 fie 

BOFF = 8 ee 

FIRSTS = $C sOffset to first T/S Fair 


EXEKETAATAALAAATAAAAAAAAAAAKER AE 
* Macro definitions: 


po ClO 


TRANS MAC 
LDA Jil 
STA 12 
LDA J1+1 
STA 12+1 


<6 
GORWTS MAC 
LUY 
LDA 


JSK 
mKK 
STADR MAC 
LDA 
STA 12 
LOA 


STA 

<<< 
LDIND MAC 
LUA 
STA 12 
INY 
LDA 


STA 
KG 


FIN 
HEEAKEEREERAREAAAA EEA EA ARATE 


ORG ‘$2DE 


LDA INITCMD 
CMP 9°’ 
BNE SETADRS 
Loa 9” * 
STA INITCME 
>>> STADR,NEWBLIBLJ 
LDA #NEWBL 

STA BLJ 

LDA #>NEWBL 

STA BLJ+1 

one 
LDY 
LDA 
STA 
DEY 
BNE 
RTS 


SETADRS 


SEND-NEWBL 
NOWADRS-1yY 
NEWBL-1rY 


MOVE 


MOVE 


NOWADRS ORG $8700 
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Copyright (c) 1982 
by Micro-SPARC Inc. 
Lincoln, MA. 01773 
All Rights Reserved 


sIf INIT command is there 
jthen defeat it. 


move this Frosram to $8700 


sBack to caller 


B700; AD 
B703; FO 
B70S: C? 
8707; 70 
B709+ 4C 


BOC! AZ 
BIOE? BS 
Br1O; 48 
B711; BD 
B714; 95 
Br16: CA 
Bi7: 10 
B19: AD 
B71C; 18 
BID: 69 
BF: 85 
B721; 8D 
B24: AP 
B26: 8D 
B29; 6D 
B20: 85 
BIZE} Cé 
B30; BD 
B733; AO 
B735; Bi 
B737; 71 
8739; 88 
B7ZA: CO 
B73C; Lo 
BSE} AD 
BI41; C9 
B743; AD 
B74463 69 
8748; 85 
BI4Ai AP 
B74C;} 85 
BI4E+ A4 


B70} Bi 
B52: 8D 
w55; C8 
B756; B1 
8758; BD 


BSB; CB 
BSC! 84 
BSE: Cé 
8760; FO 


8762: AOD 
B64; AF 
8766: 20 
B769; EE 


B76C} 970 
BI6E;: BO 


--End 


214 bytes 


61 AA 


71 A4 


c? BS 


72 AA 


FO B7 
EB B7 
73 AA 


Fl 87 


60 AA 


61 AA 


EC 87 


EU #7 


BS 8&7 
Fl B7 


FO 87 


Fil B7 


Fi B7 


BS 87 


60 AA 


assembly-- 


107 
108 


186 
187 
188 
189 


BLENt1 
OLDWAY 
CMP #121 
BLT NEWAY 
JMP RR 


LIA 
BEQ 


NEWBL 


OLDWAY 


LUX #5 

LDA TSBUFPTRrX 
PHA 
LDA 
STA 
EX 
RPL 
LOA 
CLC 
anc 
STA DESTPTR 
STA IOB+ROFF 
LDA #0 

STA IOB+VOLOFF 
ADC BADR+1 

STA DESTPTRtI 
DEC DESTPTRtL 
STA IOB+KOFFtI 
LUBY. 2-8 

LOA 
STA 
DEY 
CPY 3 
BNE 
LOA 
CMP 
LIA 
Anc #0 

STA NUMPAGES 
LOA #FIRSTS+2 
STA TSFTR 
MAINLOOP LDY TSPTR 


NEWAY 
SVZ 


PNTRS?+X 
TSBUFPTR9X 


SVZ 
BADR 


+4 


FRST 


LOA 


#For files of lensth < $100 
juse former BLOAD routine 
7Same for lensth > $78FF 

+ (approx 122 sectors) 

#No room to handle these 


#Save some zero Fase 


} and set ur buffer rointers 


#Get destination eddress 


# add $100-4 


sInit "VOL 0” 


#Points to BADR-4 
Points to BADIR+$100-4 
#Move the $100-4 bytes 


(DATAPTR)*Y snow in date buffer 
(DESTPTR)+Y 


sCalculete # of Frases 
sto be read directly 


#Put it in counter 
sPoint to next T/S 


sGet next T/S Fair 


LDIND. TSRUFPTR# IOB+TRACKOFF 


( TSBUFFTR )r¥ 
STA IOB+TRACKOFF 
INY 
LUA (TSBUFPTR)+rY 
STA IOK+TRACKOFF+1 
INY 
STY TSPTRK F< 3 
DEC NUMPAGES jAre we at last sector? . 
BEQ LASTSEC sBranch if so. 
>>> GORWTS sRead sector directly 
LOY #I08 
LDA #>I0B 
JSR RWTS | 
INC IOB+BOFF+1 sNext memory Fase ' 
BCC MAINLOOP sLoor if no RWTS error 
BCS FINISH *Aoortl and gel error 


* Srecial rrocessins for 


last sector 


% to avoid overwrite of memory: 


LASTSEC ; 
LOA 
STA 
LOA 
STA 


IOK+EOFF 
DESTPTR 
IOB+BOFF +1 
DESTPTR+ 


TRANS. DATAF 
DATAPTR 
IOK+B0FF 
DATAPTR+1 
IOB+BROFF +1 


LIA 
STA 
LDA 
STA 
ce 
>>> GORWTS 
LOY #108 
LDA #>IOB 
JSR RWIS 


BCS FINISH 
LDA BLEN 
ADC #4 

TAY 
cLc 
DEY 
LDA 
STA 
TYA 
BNE 


TSLOOP 
CDATAPTR)+Y 
(DESTPTR)+Y 
TSLOOF 

FINISH LOY #¢5 
LOX #0 
STX $48 
PLA 
STA 
INX 
DEY 
BPL 
RCS 
JMP 


ZBACK 
TSBUFFTRrX 


ZBACK 
ERROR 
CLOSE 
ERROR LUA #8 

JMP DOSERRK 


END CHK 


ERR END-1/RWTS 


TRANS. TOR+BOFF #sESTFTR 


TR# LOR+BOFF 


data 
jRead lest sector to #6 buff 


#Exat af RWTS error 
sCalculate # of bytes to move 


sClear RWTS error fleas 
§ then move required 
seamount to memory, 
jLoor till ali moved 


#Rerlace zero Fase 


#Zero monitor’s status save 


‘Branch if there wes RWTS err 
sOtherwise close ur & exat 


#1/0 error 


iThis byte to compare coding: 
s il is not moved 








Applesoft Record Command 
System (ARC) 


by Chuck Kiss 
6504 Creighton Ave. 
Huntsville, AL 35810 


INTRODUCTION 

The Nibble A.R.C. System (Applesoft Rec- 
ord Command System) is a major enhance- 
ment to and extension of Nibble’s A.I.M. 
(Automated Intelligent Mailing System — 
Nibble Vol. 1 #7). It requires a 48K Apple 
Il+(with Applesoft) and one disk drive. It 
offers the following features: 


* Fast, Easy Screen Formatting of Records. 
* Simple Record Editing. 

* Fast Machine Language Record Search. 
* |In-memory system for 50-125 record files. 


* Merging of two compatible files for sorting 
and hard-copy. 


* Support for the D.C. Hayes Micro- 
modem II. 


* Support forthe Epson MX-70/80/100 print- 
ers with or without Graftrax-80, and other 
Centronics-compatible printers. 


The A.R.C. System made up of the follow- 
ing four programs: INITIALIZE, SEARCH, 
A.R.C., and MERGE FILES. Their functions 
will become clear as you read further. 


USING A.R.C. 

Run A.R.C. (merely turn on the Apple with 
the A.R.C. disk in drive 1) and select option 
(1) in order to initialize a testfile. Select up to 
12 fields and browse to your heart’s content. 
After having initialized a file turn off the Apple 
and turn it back on. 

At this time selection of options (2) thru (6) 
from the command menu will result in nothing 
happening because there currently is no file 
in memory. In order to specify an initial file (or 
any new file) you must hit ESC. The words 
FETCH FILE will appear in the lower left of 
the menu. Specifying option (2) now will 
cause the disk to be catalogued and you will 
be queried fora file name. Enter your testfile’s 
name. You are now ready to enter data. Enter 
about 10 records worth of data so that you 
can exercise the various modules and get bet- 
ter acquainted with the program. Note again 
that options (1) and (7) are not restricted by 
what is or isn’t in memory since these two 
options run separate programs. 

Usage of the A.R.C. System is pre- 
dominantly straight-forward and self-explana- 
tory. As codes, the Printer should be in Slot #1 
and the D.C. Hayes modem in Slot #2. The 
disk drive is assumed to be in Slot #6/Drive 
#1. Also, Maxfiles is set to one in order to 
de-allocate valuable buffer space. Keep this 
in mind if you plan to renumber the program! 


Figure 2 contains a list of A.R.C. parameters 
and their locations. In the event that you want 
to check out MERGE FILES at this time, 
delete line 540 so that you can merge your 
testfile with itself. If you do not want to use 
paddles, delete those statements that say 
SPEED=PDL(1). 


PERSPECTIVE 

Nibble’s A.I.M. is good — very good! But | 
simply could not shake the idea of having all 
of the records of a file in memory (which 
A.|.M. did not do). Visions of immediate 
record access, faster review, searches, and 
sorts kept haunting me. But would an attempt 
at modification turn out to be an exercise in 
futility? After all, 48K Bytes is not exactly big 
system storage, and when one includes DOS’ 
overhead as well as program size, you're not 
left with a heck of a lot of free memory! This 
did pose a problem. 

In the context of A.R.C. the problem mani- 
fests itself as spontaneous and time-con- 


suming FRE(0) housecleaning which is a 
direct consequence of Apple’s limited memo- 
ry. FRE(0) is the bugaboo that must be mini- 
mized. It can strike swiftly and silently at the 
most inopportune times making an otherwise 
efficient program appear lethargic. 

It probably comes as no surprise to learn 
that an Apple in-memory system is incapable 
of handling files having on the order of 500+ 
records. Ah ha, but would it work for files 
having on the order of 50+ records? Some fast 
arithmetic convinced me that it would, and | 
was off and running. Now at this point you're 
probably muttering something to the effect 
—50 records, Big Deal! Hang in there, the plot 
thickens. 


ESTIMATING RECORD CAPACITY 
Let’s try to quantify the problem so we can 
better understand what we're coping with. It 
stands to reason that if arecord contains, let’s 
say, 50 characters as opposed to 240, we can 
continued on next page 
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Applesoft Record Command 
System (ARC) (Cont.) 


shoehorn more of them into memory. Ina 
system such as A.R.C. we would like to spec- 
ify distinct fields. In order to keep things 
manageable and fit all fieldnames, data, and 
instructions on the text screen, we will limit 
ourselves to 12 fields. If we allow ourselves 20 
characters/field (c/f) we can then have up to 
240 characters/record (c/r). Now in order to 
minimize FRE(0)’s duration and frequency it 
is crucial to have on the order of 8K Bytes of 
free memory available after loading the pro- 
gram and file data. Remember, the tradeoff is 
between record length and number of records 
in memory for a given FRE(0) level of perfor- 
mance. The selection of an 8K Byte buffer 
results ina memory balance sheet that looks 
something like this: 


Program .....--s eee reece erees 16K 
DOSHi cok cues ales elec ees 10K 
LOMeM <a scene Oe aie Sele eee os 2K 
Memory Buffer .......-+-++-e05 8K 
SFielData sy tne cas «Sew le ae 12K 
48 K 


The resulting 12K Bytes of memory we 
have at our disposal for file data can be allo- 
cated in any way we desire. We can trade off 
Record Length (RL) and Number of Records 
(NR) as long as we don't exceed the 12K Byte 
constraint: 


RL * NR = 12 K Bytes 





RL 


This mathematical representation is the 
equation of a hyperbola (don’t worry about 
it), and is depicted in Figure 1 as a dotted line. 
This graph can be interpreted as follows: 

If we desire 12 fields of 20 characters each 
(RL=240), NR is limited to 50 records. 

Alternatively, if we only desire 5 fields of 10 
characters each (RL=50), NR expands up- 
wards to 240 records. 

Well, this is all well and good except for the 
fact that there is a certain amount of overhead 
in scrolling records and answering questions 
in the normal course of the program, all of 
which produce, you guessed it, garbage. So 
what we must include is a “safety factor” that 
is inversely proportional to NR. This means 
that we had better scale down our expecta- 
tion of NR. In effect we do this by specifying: 


12,000 
RL + 30 


NR = +6 





In this way, we can maintain our original 
requirement of 50 records at RL=240 yet still 
attain 156 records at RL=50. This equation is 
depicted as the solid curve in Figure 1. We're 
almost there but not quite. 

As it turns out A.R.C. can call another pro- 
gram called MERGE FILES. MERGE FILES, 
as the name implies, can merge two com- 
patible files for purposes of sorting. What this 
also means is that MERGE FILES must cope 
with up to 2 * 156 or 312 records without 
significant FRE(0) interruptions. | tried it. No 
Way! Although A.R.C. has no trouble with 156 
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records at 50 c/r, MERGE FILES cannotcarry 
the 312 record load and gets bogged down 
repeatedly. 

What we need is to place an absolute limit 
on NR based on the requirements of MERGE 
FILES. A bit of experimentation yields NR = 
125 for RL < 70 as a good compromise. 

This then is the set of “rules” that must be 
obeyed when initializing files in order to guar- 
antee that FRE(0) gremlins do not exces- 
sively interrupt program execution. Note that 
there WILL be internal FRE(0) houseclean- 
ing, but for the most part its occurrence is 
unobtrusive. Incidentally, INITIALIZE and 
MERGE FILES were originally part of A.R.C. 
In the interest of memory conservation they 
were made separate programs and are called 
from the command menu (Figure 2) of A.R.C. 
This is of no great concern since they are 
typically not required to load and run as often 
as A.R.C., and when called their usage is 
transparent. 


MERGE FILES 

The reason for the existence of MERGE 
FILES should perhaps be explained. It was 
anticipated that there would inevitably arise a 
need to merge two files for purposes of sort- 
ing. Note that all other file manipulation is via 
A.R.C. on the individual files prior to merging. 

The merged file is non-resident within the 
data base and is not maintained per se. For 
example, the following files with RL = 100 are 
initialized: NAMES(A-G), NAMES(H-N), and 
NAMES(O-Z) where the first letter of a per- 
son’s last name determines which file it will 
go into. This data base would allow up toa3* 
98 = 294 record repertoire. 

Given a full, 98 record, NAMES(H-N) file, 
the arrival of the 99-th name destined for that 
file would force the user to open a new file, 
presumably called NAMES2(H-N). This pre- 
cludes any sorting capability if NAMES(H-N) 
and NAMES2(H-N) cannot somehow be 
merged and the sorting performed on the 
merged file. In this manner, each of the origi- 
nal three files can be expanded resulting ina 
588 record data base. 


PLAN AHEAD 

Even this hindrance can be avoided by 
merely anticipating your needs in advance. 
For instance, in operating within the A.R.C. 
limits the user can establish 26 files, one for 
each letter of the alphabet. This extreme 
example was used to drive home a practical 
restriction on data base size. While it is true 
that more records can be accommodated bya 
data base via MERGE FILES or by brute force 
constructs, such techniques have their limita- 
tions. 

A large data base becomes impractical due 
to the low speed of currently available print- 
ers for the average home installation. The 
hard copy bottleneck is real and exists! While 
an Apple computer interfaced with an Epson 
MX-80 is a hard combination to beat, 80 cps 
hard copy ona 1000+ record A.R.C. data base 
is definitely not a ten minute endeavor. 

As a practical necessity, it is recommended 
that a data base be limited to a maximum of 4 
files (200-500 records depending on RL). Of 
course any number of data bases can be con- 
figured and maintained by A.R.C., each on its 
own disk; for example, Boy Scout files on one 
disk, Girl Scout files on another, etc. 





THE PROGRAMS 


SEARCH 
This is the A.I.M.S. Find Contest winning 
binary substring search (Nibble Vol. 2 #3). It 
is called from A.R.C. via the Ampersand 
operator. 


INITIALIZE 

This program is called to define and struc- 
ture new files. Upon entry, a file name is 
requested. It cannot begin with an illegal 
DOS character. Sixteen fields are then pre- 
sented for selection. The last six are options 
whose names are user-defined. Each field is 
used at most once, and up to twelve fields can 
be specified. Specifying a field highlights it 
on the screen. If the optional fields are 
selected, a field name is requested. 


ORDERED FORMAT CONSISTING 6 
CECT  Weiimammerzags ‘TELS 


PHONE 
COMMENT 
OPTION 1 


SE 
1 
4 
be 


After specifying fields the user is queried 
for field lengths. This is a crucial step! Remem- 
ber, you're trading off RL for NR, so it pays to 
consider this carefully. On completion, your 
record structure is displayed along with RL 
and the computed NR. If satisfactory, the file 
is initialized. 





A header file is generated with a CTRL-B 
attached to the file name. This file is inviolate 
since it contains the file parameters N, RL, 
NR, and the field names. 

All operations will be on the second initial- 
ized file that at this time merely contains 
REC=0 and no data. After initialization, A.R.C. 
is automatically rerun with the Command 
Menu presented on the screen. If on the other 
hand, the file structure was unsatisfactory, 
program control will return you to a re- 
definition of field lengths, field selection, or 
exit to A.R.C. 


A.R.C. 

A.R.C. is the workhorse of the bunch and 
houses options (2) - (6) of the command 
menu. It has comprehensive error trapping. 

A.R.C. is interesting in that it appears to 
re-dimension the arrays RD$, SRT$, SO%, 


and C%. It accomplishes this by merely rerun- 
ning A.R.C. each time a new file is fetched 
and dynamically dimensions the arrays based 
on the file’s NR. The current file in memory is 
always displayed in inverse in the lower left of 
the menu. A.R.C. consists of the following 
five modules: 


RRRERREREREREA EERE ERE es 


AGE A te a, 


+ 
t bi 
M x 
: x 
: x 
: Cid) INITIALIZE NEW FILE ; 
i ENTER FILE DATA ; 
; REVIEW/EDIT DATA ; 
4 FIND“DIAL DATA H 
¥ 
H x 
x 
$ x 
x x 
+ x 
+ x 
+ x 
t x 
; t 


SORT/PRINT DATA 
PURGE/PACK DATA 
MERGE/SORT FILES 


<ESC? TO LOAD CHOICE =. CJ 
Ee S PSST SS SSS SSS 2 2 2S 0 2S 2% ooo 2 2S 2 8 s 


Enter File Data — New data is entered here. 
Note that the cursor is maintained on the 
record field at all times. To input a null string 
(blank), hit RTN. After all entries to a record 
are made, corrections can be made or the 
record aborted. Note also, that the copy key 
(->) is disabled on the inverse screen. If NR 
records have been entered the user is noti- 
fied. RTN transfers control back to the com- 
mand menu. 


BTR THD AT 


FULL NAME 
l NAME 


ENTER NEW OHTA 


Review/Edit Data — All modification to exist- 
ing records are made here. Printed copy of 
individual records via an Epson MX-series 
printer or other parallel printer, is also sup- 
ported here. The -> key scrolls records for- 
ward while the <- key scrolls them backward. 
Use these keys with the REPT key and watch 
the data fly! 


ESC requests a record to be fetched. If the 
record # specified is greater than the 
highest record # in memory, the last record 
is displayed and the user is notified. 


“p” prints the record being displayed to 
the printer. NOTE — The user monitors 
his own Top-Of-Forms (this is handled 
automatically in the Sort/Print mode). 


“EF” searches for the first record contain- 
ing the specified keyword from the current 
record being displayed (plus one) to the 
end of file. The user is queried for the 
search field and keyword. The search field 
is highlighted. See Find/Dial for the spe- 
cific keyword syntax. 


“E” edits records, in either a Modify or 
Erase mode. The cursor is maintained on 





the ‘record’. It allows erasure of a record 
but carries the record and shows it as 
erased by placing an asterisk (*) in Field 
#1. All other fields are blanked. Confirma- 
tion is made via a Yes/No response. 


Find/Dial Data — The minimum capability 
any search subroutine should possess is to 
locate and retrieve information that is not 
uniquely addressable. This can be a single 
specific record, or many records that share a 
common attribute. 


Find/Dial allows the user to search the entire 
file for the occurrence of his keyword, [K], in 
a specified field. 


A keyword can be any combination of charac- 
ters of a length less than or equal to the field 
length. A keyword preceded by an asterisk (*) 
indicates that the field searched must begin 
with the keyword. 


A keyword not preceded by an asterisk (*) indi- 
cates that the field must merely contain the 
keyword. Note that a double asterisk (**) key- 
word for Field #1 will cause a search for erased 
records. 


All record numbers containing the keyword 
are displayed, as well as the actual field data. 
If more than 12 records contain the keyword, 
the additional number of records correlated 
is shown. 


If and only if one unambiguous record is 
returned, the option of dialing that record’s 
phone field is made available. If so instructed, 
a check is then made to ascertain whether 
records for this file contain a phone number 
field and that a D.C. Hayes Micromodem II is 
in the system. The number is then dialed and 
a message flashed on the screen. If difficulty 
is encountered the Micromodem II will hang 
up automatically. 


Sort/Print Data — When specifying fields for 
the label, inputting @ as the first entry auto- 
matically specifies all fields of the record. 
Sorting and line-merging options and con- 
junctives (joining consecutive fields together 
for printing) are user-selectable. A sort “win- 
dow” has been incorporated enabling you to 
see the actual sort being performed. You have 


continued on next page 
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Line # Name/Value Meaning 
9$0,190,220,640 POKE 8,0-2 System Status: 
Initial Boot(0) 
ESC Pressed(1) 
File in Mem(2) 
120 POKE 1013,76 & Jump Location 
: POKE 1014,2 for SEARCH 
POKE 1015,3 
130 T$() Field Names 
TV%( ) Field Lengths 
PS( ) Field Data 
TX$( ) Conjunctives 
TW%{ ) Field Labels 
140 SX=6 Disk Slot # 
DX=1 Disk Drive # 
SP=25 Printer Tab 
(Review/Edit) 
210 REC # Records in 
File 
400 NF # Fields/Record 
RL Record Length 
NR File Capacity 
430 RDS( ) File Records 
_SRTS$( ) Sorted Fields 
$O%( ) Pointer to 
Sorted Records 
C%( ) Pointer to 
Erased Records 
1370,3830,3880 PR#1 Epson Enable 
CHR$(9);“80N” 80 Col Printing 
1950 MODEM=1 Modem in System 
(Otherwise 0) 
2280 KEY$ Search Keyword 
2490 DUM$ Field Data to 
be Searched — 
-2500,2540 & DUM$,KEY$ Calls to SEARCH 
If Peek(26)=0 
then No Match 
2800,2820 NUMBER$ Phone Number 
(+ CTRL-J) 
2810 PR#2 Modem Enable 
2830 DIAL$;NUMBER$ Modem Dial C’md 
DIAL$=CHR$(17) 
2980 IDENT=25 Printer Tab 
(Sort/Print) 
3120 TV$="@” Specifies all 
Fields for 
Label _ 
3880,3960 CHR$(12) Top-of-Form 


Figure 2. A.R.C. Parameters 
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the choice of outputting the sorted, formatted 
data to the screen or to the printer. If the 
printer is chosen, the Top-Of-Forms is 
enabled. Note — Paddle 0 controls the data 
rate to both the screen and to the printer. 


Purge/Pack Data — All erased records are 
carried within the file and can be purged at 
once. Hit P and the program does the rest. 
Housecleaning is performed and the amount 
of remaining free memory is displayed. If any 
records were purged from memory, the new 
file configuration will be stored to disk upon 4, 
command. 


MERGE FILES 

This program merges and sorts two com-_ 6, 
patible files within the data base. To be com- 
patible, the record length and the number of 
fields for each file MUST be identical. MERGE 
FILES, although a separate program, is sub- 
stantially the same as option (5) of A.R.C. 


A.R.C. program and initialize a new disk 
with INIT A.R.C. 

Enter the monitor (CALL -151) and key in 
SEARCH beginning at $302. Save to the 
disk with BSAVE SEARCH, A$302, L$70. 
For additional information on entering 
machine language code into memory, see 
the instructions in the Letters section of 


this issue. 

Return to Applesoft by typing CTRL C. 
Roll up your sleeves and begin entering 
A.R.C. using the listing. You probably 
won't complete this in one sitting so be 
sure to back it up as you go along! When 
done SAVE A.R.C 

Enter MERGE FILES from the listing and 
save it on your disk. 


Enter and save INITIALIZE. 


Lock all files on the disk. Thereafter, you 
need only boot the disk to use the A.R.C. 
system. 


CUSTOMIZATION 


The sky is the limit. There is always room 


MERGE tee Rosie erg Be eee ah a for improvement to suit each individual's 
eee ere een One Ot ie ties Nas uss needs. Listed below are a few fertile areas for 


up its NR record allocation. With proper file 
planning the use of MERGE FILES will be 
minimized. Uponcompletion, MERGEFILES , 
will rerun A.R.C. and present you with the 
command menu. 


LOADING A.R.C. * 
1. Clear the Apple’s memory (FP). Enter the 


18 REM seeeceee2.27 B4eeceres 

28 REM + THE A.R.C. SYSTEM « 

38 REM . BY CHUCK KISS . 

49 REM « COPYRIGHT (C) 1982 « 

58 REM + BY MICRO-SPARC INC « 

68 REM « LINCOLN, MA. 81773 « 

7B REM weeeeeceseesesesesesss 

8 PRINT CHR$ (4)"BLOAD SEARCH" 

98 POKE 8,9 

198 TEXT : HOME 

118 PRINT CHR$ (4)"MAXFILES 1":D$ = CHR$ ( 
4) 

126 POKE 1913,76: POKE 1814,2: POKE 1915,3 

138 DIM T$(13) ,TV%(12) ,P$(12) , TX$(12) , TW%(12 


) 

149 SPEED= 255:SX = 6:DX = 1:FIN = @:SP = 25 
: GOTO 499 

158 PRINT D$"OPEN *;FILE$",L”;RL 

168 PRINT D$"WRITE “;FILE$",R";RX: RETURN 


176 HTAB 5: PRINT “ PRESS ";: POKE 58,63 
: PRINT "RETURN";: NORMAL : PRINT " TO Q 
UIT ",: POKE 35,22: RETURN : REM P 


OKE5@,63 IS INVERSE 

188 VTAB 3: HTAB (26 - LEN (AA$) / 2): POKE 
58,63: PRINT AA$: NORMAL : RETURN 

198 POKE 8,2 

208 PRINT D$"OPEN ";FILE$”,L";RL 

218 PRINT D$"READ ";FILE$",R";RX: INPUT REC: 

IF REC = @ THEN 249 

228 IF REC = NR AND Y = 2 THEN POKE 8,@:FIL 
E$ = "": GOTO 249 

238 FOR R = 1 TO REC: PRINT D$"READ ";FILE$” 
,R";R: INPUT RD$(R): NEXT R 

246 RETURN 

258 VTAB 7: CALL - 958: PRINT 

268 VTAB 7: FOR D = 1 TO NF 

276 HTAB (1 + (D < 18)): PRINT D;". ";T$(D); 


286 HTAB 16: POKE 58,63: PRINT ” 
";: NORMAL : PRINT * bets 
298 NEXT D: CALL - 868: VTAB 7 
308 IF BN = 1 THEN RETURN 
318 FOR D = 1 TO NF 
326 HTAB (1 + (D < 186)): PRINT D;". ";T$(D); 
" "|: HTAB 16: POKE 58,63: PRINT P$(D): NORMAL 


33@ NEXT D: RETURN 

348 VTAB 23: FOR K = 1 TO 38: PRINT "«";: NEXT 
K: PRINT : VTAB 1: FOR K = 1 TO 38: PRINT 
"e";: NEXT K: PRINT 

358 FOR K = 1 TO 22: PRINT “«";: HTAB 38: PRINT 
"»": NEXT K: RETURN 

368 HOME : VTAB 3: PRINT D$"CATALOG”: PRINT 
: POKE - 16368,@: POKE 58,63: PRINT "EN 
TER FILE NAME";G$;: NORMAL : INPUT ": "; 
oe IF LEN (FILE$) = @ THEN GOTO 48 


376 HOME : VTAB 12: HTAB (13 - LEN (FILES) / 
2): PRINT "LOADING ";: POKE 58,63: PRINT 
FILE$;: NORMAL : PRINT " FILES" 

388 PRINT D$"OPEN ";FILE$ + BC$ 

398 PRINT D$"READ ";FILE$ + BCS 
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customization: 


Option for emphasized/expanded print- 
ing and variable margin justification (Ital- 
ics also if you have Graftrax-80). 


Compiled/Machine Language sort 
routine. 


496 INPUT NF: INPUT RL: 
INPUT T$(K): INPUT TV%( 


418 FOR K = 1 TO NF: 
K): NEXT K 


* Faster file transfer using a machine lan- 
guage routine like Amper-Reader. (Nibble 
Express Vol. 2) 


* Search the entire record rather than onlya 
specified field. 


* Automata: load a file, sort it, print it; load 
next file, sort it, print it; etc. 


* Modifications to maintain the merged file. 


* You can create your own field NAMES for 
the first 10 Fields in the INITIALIZE pro- 
gram by changing the DATA statement in 
line 140 of INITIALIZE. You should make 
sure to include at least 16 total items in the 
Data statement. 


* Last but not least is the very exciting pos- 
sibility of adapting A.R.C. to 16K RAM 
boards. This should not be too difficult 
and would significantly extend file capac- 
ity. (By replacing the 12K in the numerator 
of our equation with 28K, the NR-RL plot 
would be shifted upwards.) 


The A.R.C. System has served to illustrate 
one technique of maintaining an “in-memory” 
DBMS. Its usefulness is made possible by its 
file merging capability and its ability to sequen- 
tially “block” a set of files into memory. 


REFERENCES 
1. A.I.M.S./Nibble Vol. 1 #7/1980, Nibble 
Express Vol. I. 


2. A.|.M.S./Contest Winner/Nibble #3/Vol. 2. 
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INPUT NR 


428 PRINT D$"CLOSE "FILE$ + BC$ 
438 DIM RD$(NR) ,SRT$(NR) ,SOB(NR) ,C%( INT (NR 


7 4)) 
448 RETURN 


458 PRINT D$"OPEN ";FILE$",L";RL 
468 PRINT D$"READ ";FILE$", RO" 


478 RETURN 


480 POKE 34,8: POKE 35,24: HOME 


498 REM eee MENU 


568 V1 = 7:B$ = " 


518 BC$ = CHR$ (2):D$ = 


CHRS (4):G$ = CHRS 


(7):H$ = CHRS (8):V1$ = CHRS (91):V2$ = 


CHR$ (93) 
528 GOSUB 349 


538 AAS = "THE A. R. C. SYST E M": GOSUB 


188: RESTORE 
548 FOR K = 1 TO V1: 


READ M$(K): NEXT K 


558 DATA "INITIALIZE NEW FILE”, "ENTER FILE D 
ATA", “REVIEW/EDIT DATA", "FIND/DIAL DATA" 
568 DATA "SORT/PRINT DATA", "PURGE/PACK DATA” 


,""MERGE/SORT FILES" 
VTAB (2 « K + 4): HTAB 
8: PRINT V1$;K;V2$;" 


578 FOR K = 1 TO V1: 


",MS(K): NEXT K 


588 VTAB 21: HTAB 5: POKE 58,63: PRINT FILES 


;: NORMAL : POKE 


- 16368,68 


598 ON PEEK (8) GOTO 688: VTAB 21: HTAB 5: PRINT 


"<ESC> TO LOAD" 


668 VTAB 21: HTAB 23: PRINT "CHOICE : ";G$;V 


1$;" "“;V2$;H$;HS$;: 


Y$:Y = VAL (Y$) 


NORMAL : GET Y$: PRINT 


610 IF Y = 1 OR Y = 7 THEN 668 
620 IF PEEK (8) = 8 ANDY < >1 ANDY < > 
7 AND Y$ < > CHR$ (27) THEN 680 
630 IF PEEK (8) < > @ AND Y > 1 AND Y < 7 THEN 


660 


640 IF Y$ = CHR$ (27) THEN POKE 8,1: VTAB 


21: HTAB 5: PRINT 


658 GOTO 689 


"FETCH FILE ": RUN 


660 VTAB 2 « Y + 4: HTAB 9: PRINT Y;V2$;" “ 
;: POKE 58,63: PRINT M$(Y): NORMAL 

678 IF PEEK (8) = 1 AND Y > 1 AND Y < 7 THEN 
FOR D = 1 TO 308: NEXT D: GOSUB 3698 

680 FOR D = 1 TO 308: NEXT D 


698 NB = Y 


788 ON Y GOTO 720,748,1100,1958,2938,4130,47 


20 
718 POKE 34,8: HOME 


: VTAB 12: HTAB 3: PRINT 


“THIS FILE HAS ONLY BEEN INITIALIZED": PRINT 
: HTAB 9: PRINT "AND CONTAINS NO RECORDS 
";G$: HTAB 22: PRINT "--": FOR D = 1 TO 
2608: NEXT D: GOTO 488 

728 PRINT D$"RUN INITIALIZE" 

738 REM «+ DATA ENTRY oe 

748 RX = 9: IF PEEK (8) = 1 THEN GOSUB 199 

758 PRINT D$"CLOSE ";FILE$ 

768 REC = REC + 1: IF REC > NR THEN HOME : VTAB 
12: PRINT “THIS FILE ALREADY CONTAINS "; 
NR;" RECORDS" ;G$;G$: VTAB 14: HTAB 9: PRINT 
"PLEASE OPEN A NEW FILE ": FOR D = 1 TO 


2588: NEXT D 


Applesoft Record Command 
System (ARC) (Cont.) 


778 
788 


798 


829 


819 


828 


8308 
849 
859 
869 
878 
889 


898 
989 
919 
929 


9398 


946 
958 
9698 
978 
989 
998 
1968 
19198 
1929 


1938 
1948 
1859 
1966 
1979 
1089 
19968 
1198 
1118 


1126 
1138 


1149 
1159 
1168 
1176 
1188 
1198 
1268 
1218 
1228 
12398 
1249 
1259 
1269 
1278 


1288 


1298 


1398 


13198 
1328 
1338 


1349 
1358 
1366 


IF REC > NR THEN REC = REC - 1: GOTO 489 
POKE 34,8: HOME : VTAB 3: HTAB (21 - LEN 
(FILE$) / 2): POKE 58,63: PRINT FILE$;: NORMAL 


IF REC = NR + 1 THEN HOME : VTAB 12: HTAB 
5: PRINT NR;" RECORDS MAXIMUM FOR THIS F 
ILE";G$;G$: VTAB 22: HTAB 18: PRINT “HIT 


ANY KEY FOR MENU ";: GET A$:REC = REC - 


1: GOTO 488 

POKE 34,4: HOME : HTAB (13 + (REC < 19)) 

: PRINT "RECORD # ";V1$;" ";: POKE 58,63 

: PRINT REC;: NORMAL : PRINT " ";V2$: POKE 
34,6:MOD = @ 

VTAB 24: HTAB 9: PRINT "PRESS ";: POKE 5 
@,63: PRINT "RETURN";: NORMAL : PRINT " 
NOW TO QUIT";: VTAB 8: HTAB 1 
BN = 1: GOSUB 26: FOR I = 1 TO NF:P$(I) = 
"" NEXT 

FOR IN = 1 TO NF 
BN = @:Y = IN 

GOTO 1728 

IF IN = 1 AND PY$ = CHR$ (13) THEN 1999 
VTAB 23: HTAB 1: CALL - 958: NEXT IN 
VTAB 22: CALL - 958: VTAB 22: HTAB 14: PRINT 
"CORRECT (Y/N) ";G$;: GET Y$: PRINT YS; 
VTAB 21: CALL - 958 

IF Y$ = "N" THEN 1929 

IF Y$ < > "Y" THEN 889 

VTAB 22: HTAB 1: CALL - 958: HTAB 13: POKE 
58,63: PRINT " FILING RECORD ": NORMAL : 
RX = REC 
RD$(RX) = "": FOR KK = 1 TO NF:RD$(RX) = 
RD$(RX) + P$(KK): NEXT KK: GOSUB 158: PRINT 
RD$ (RX) 
RX = 8: GOSUB 158 

PRINT REC 

PRINT D$"CLOSE" 

FOR I = 1 TO NF:P$(I) = "": NEXT 
REC = REC + 1: GOTO 798 

PRINT D$"CLOSE" 

REC = REC - 1: GOTO 489 


HTAB 1: GOSUB 2698 
VTAB (7 + NF): HTAB (1 + (NF < 18)): PRINT 


NF + 1;". ";: POKE 58,63: PRINT “A-B-O-R 


MOD = 1: GOTO 1649 


REM «e6 PRINT eee 

FOR K = 1 TO NF 

HTAB SP 

PRINT T$(K);: HTAB (SP + 14): PRINT P$( 


K) 


NEXT K: PRINT : RETURN 
REM «es REVIEW/EDIT oss 


MOD = @:RX = @: IF PEEK (8) = 1 THEN GOSUB 
1998 


PRINT D$"CLOSE ";FILES 
IF REC = @ THEN 719 


RD$ = "1": POKE 34,8: HOME : VTAB 3: HTAB 
(21 - LEN (FILE$) / 2): POKE 58,63: PRINT 
FILE$: POKE 34,4: NORMAL 


IF VAL (RD$) < 1 THEN 1289 
VTAB 5: HTAB 1: CALL - 868 
POKE 37,4: POKE 36,16: POKE 58,63: PRINT 


"RECORD"; : NORMAL 


IF VAL (RD$) > REC THEN RD$ = STR$ (R 


EC):FR=1 


PRINT " ";: POKE 58,63: PRINT RD$: NORMAL 


POKE 35,24: VTAB 23: CALL - 958: VTAB 


9 

RD = INT ( VAL (RD$)): IF RD < = @ THEN 
1288 

RX = RD: IF RX < = B THEN RX = O 

FL = @ 


FOR K = 1 TO NF:P$(K) = MID$ (RD$(RX), 


FL + 1,TV%(K)):FL = FL + TV%(K): NEXT K 


GOSUB 269 

IF FR = @ THEN 12798 

VTAB 23: HTAB 5: FLASH : PRINT " ONLY * 
REC;" RECORDS ARE ON FILE ": FOR D = 1 TO 


2080: NEXT D:FR = @: NORMAL 


VTAB 5: HTAB 24: POKE 58,63: PRINT RD: NORMAL 


: POKE - 16368,9 


". 


VTAB 21: HTAB 2: POKE 58,63: PRINT "ESC 
;: NORMAL : PRINT " FETCH my: POKE 5 


@,63: PRINT "<--";: NORMAL : PRINT " LAS 
T ":: POKE 58,63: PRINT "-->";: NORMAL 
: PRINT " NEXT" 


VTAB 23: HTAB 2: POKE 58,63: PRINT " P 
;: NORMAL : PRINT " PRINT wie FOKE & 


9,63: PRINT " E ";: NORMAL : PRINT " EDI 
¥ ";: POKE 58,63: PRINT " F ";: NORMAL 
: PRINT " FIND ";G$;" ";: GET Y$: PRINT 


IF Y$ = "F" THEN VTAB 21: HTAB 2: CALL 
- 958: POKE 58,63: PRINT "FIELD #";: NORMAL 


: PRINT " TO SEARCH: ";G$;:; INPUT " ";TV 
$:TV = VAL (TV$): IF TV < 1 OR TV > NF THEN 


1 


389 


IF Y$ = "F" THEN VTAB (6 + TV): HTAB 5 


FLASH : PRINT T$(TV): NORMAL 


“IF Y$ = "F" THEN VTAB 20: CALL - 958: 


: 


1 


i 


4 


GOTO 2288 

IF Y$ = CHR$ (27) THEN VTAB 21: HTAB 
CALL - 958: VTAB 22: HTAB 11: PRINT 
RECORD TO FETCH : ";G$;: INPUT " ";DA$: 
VTAB 21: CALL - 958 

IF Y$ = CHR$ (27) AND LEN (DA$) = 9 THEN 
288 

IF Y$ = CHR$ (27) THEN RD$ = DA$: GOTO 
148 

IF Y$ = CHR$ (13) OR LEN (RD$) = 9 THEN 
8S 


1378 


1386 
1398 


1486 


1418 
1426 


1439 


1449 


1458 
1468 


1476 
1488 
1498 
1588 
1518 
1520 


1538 
1549 


1559 
1568 


1578 
1588 


1598 


1696 
1619 
1629 
1638 
1649 
1659 
1668 
16798 


1689 
1699 


1786 
1718 


1728 
1738 


1748 


1758 
1768 
1778 


1788 
1798 


1880 
18108 


1820 
1830 


18498 
1859 


1869 
18798 
1889 
1899 
19988 


19198 
19298 
1939 


1949 
1958 


1968 
19798 
1988 


IF Y$ = CHR$ (88) THEN PRINT D$"PR#1" 

: PRINT CHR$ (9); "8@N";: GOSUB 1059: PRINT 

: PRINT D$"PR#@": GOTO 1289 

IF Y$ = CHR$ (21) THEN RD = RD + 1: IF 
RD > REC THEN RD = 1 

IF RD = 1 AND Y$ < > "E" THEN VTAB 5: 

HTAB 24: PRINT " m 

IF Y$ = CHR$ (21) THEN VTAB 5: HTAB 2 
4: POKE 50,63: PRINT " ";: IF RD- 1>9 

THEN PRINT " ";; IF RD - 1 > 99 THEN PRINT 


IF Y$ = CHR$ (21) THEN NORMAL : PRINT 
"": GOTO 1219 

IF Y$ = CHR$ (8) THEN RD = RD - 1: IF 
RD < 1 THEN RD = REC 

IF Y$ = CHR$ (8) THEN VTAB 5: HTAB 24 

: POKE 58,63: PRINT " ";: IF RD > 9 THEN 
PRINT "";: IF RD > 99 THEN PRINT " " 

IF Y$ = CHR$ (8) THEN NORMAL : PRINT 

""": GOTO 1218 

IF Y$ < > "E" THEN 1280 

VTAB 21: HTAB 1: CALL - 958: VTAB 22: POKE 
58,63: PRINT " M";: NORMAL : PRINT " MO 
DIFY ";: POKE 58,63: PRINT " E ";: NORMAL 
: PRINT " ERASE ";: POKE 58,63: PRINT 
"RTN";: NORMAL : PRINT " ABORT ";G$;" " 

: GET Y$ 

IF Y$ = CHR$ (13) THEN HTAB 1: VTAB 2 

1: CALL - 958: GOTO 1279 

IF Y$ = "M" THEN 1649 

IF Y$ < > "E" THEN 1469 

VTAB 21: HTAB 1: CALL - 958: VTAB 22: HTAB 
8: PRINT "VERIFY ERASURE (YES/NO) ";G$;: 

INPUT " ":Y$: IF Y$ = "YES" THEN 1538 

IF Y$ = "NO" THEN VTAB 21: HTAB 1: CALL 

- 958: GOTO 1279 

PRINT G$: GOTO 1580 

FOR D = 1 TO 259: NEXT D 

VTAB 22: HTAB 1: CALL - 868: HTAB 11: FLASH 
: PRINT " ERASING RECORD ";RX;" ": NORMAL 


IF RD < > REC THEN 1599 
RX = @:REC = REC - 1: GOSUB 168: PRINT R 
EC 

PRINT D$"CLOSE ";FILE$ 

FOR D = 1 TO 588: VTAB 22: HTAB 1: CALL 

- 958;:RD$= STR$ (REC): GOTO 1140 

FOR K = 2 TO NF:P$(K) = "": FOR J = 1 TO 
TV%(K):P$(K) = P$(K) + " ": NEXT J,K:PS( 
1) = "oe": FOR J = 2 TO TV%(1):P$(1) = PS 
Gece SeINEXT J 
RD$(RD) = "": FOR K = 1 TO NF:RD$(RD) = 
RD$(RD) + P$(K): NEXT K 
RX = RD: GOSUB 158: PRINT RD$(RX) 

PRINT D$"CLOSE ";FILE$ 

FOR D = 1 TO 588: VTAB 22: HTAB 1: CALL 

- 958:RD$ = STR$ (RD): GOTO 1148 

REM e+ MODIFY/ENTER «+ 
LC = @:IN = @ 

VTAB 22: HTAB 1: CALL - 868: PRINT "EN 
TER ";: POKE 58,63: PRINT "FIELD #";: NORMAL 
: PRINT " TO CHANGE : ";G$; 

INPUT " ";Y$:Y = VAL (Y$): IF LEN (Y$ 
) = ® AND MOD = @ THEN 1899 

IF LEN (Y$) = @ AND MOD = 1 THEN 929 

IF INT (Y) < 1 OR’ INT (Y) > NF + 1 THEN 
1669 

IF MOD = @ AND INT (Y) > NF THEN 1668 

IF INT (Y) = NF + 1 THEN FOR I = 1 TO 
NF:P$(I) = "": NEXT : GOTO 889 
Hite 1.7. 

NORMAL :P$ = "":PY$ = "":HT = HT - 1: VTAB 
22: CALL - 868: HTAB 14: PRINT "ENTER N 
EW DATA"; G$ 

VTAB (6 + Y): HTAB (HT): POKE 58,63: GET 
P$: IF P$ = CHR$ (8) AND PEEK (36) = 1 
5 THEN POKE 36,15: GOTO 1729 

IF P$ = CHR$ (8) AND LEN (PY$) = 1 THEN 
1738 

IF P$ = CHR$ (8) THEN HT = HT - 1:PY$ = 

LEFT$ (PY$, LEN (PY$) - 1): GOTO 1748 

IF LEN (PY$) = TV%(Y) AND P$ < > CHR$ 
(13) THEN PRINT G$;: GOTO 1748 

PRINT P$: NORMAL :PY$ = PY$ + P$ 

IF IN = 1 AND PY$ = CHR$ (13) THEN REC 

= REC - 1: GOTO 489 

IF PY$ = CHR$ (13) AND LEN (PY$) < 2 THEN 
P$(Y) = "": GOTO 1838 

IF P$ = CHR$ (13) THEN P$(Y) = LEFTS$ 
(PY$, LEN (PY$) - 1): GOTO 1830 
HT = HT + 1: GOTO 1748 

IF LEN (P$(Y)) < TV%(Y) THEN FOR J = 
1 TO TV%(Y) - LEN (P$(Y)):P$(Y) = PS$(Y) 

+ " ": NEXT J: GOTO 18598 

IF LEN (P$(Y)) = TV%(Y) THEN 1858 

GOSUB 260:RD$(RX) = "": FOR K = 1 TO NF 
:RD$(RX) = RD$(RX) + P$(K): NEXT K:LC = 
1 

IF MOD = 1 THEN 1920 

IF, NB = 2 THEN 869 

GOTO 1668 

IF LC = @ AND Y$ = “" THEN 1939 

VTAB 22: HTAB 1: CALL - 958: HTAB 9: POKE 
58,63: PRINT “SAVING MODIFIED RECORD": NORMAL 


RX = RD: GOSUB 158: PRINT RD$(RX) 

PRINT D$"CLOSE ";FILE$ 

HTAB 1: VTAB 28: CALL - 958: VTAB 5: HTAB 
17: POKE 58,63: PRINT "RECORD": NORMAL : 
GOTO 12798 

REM es KISS' FIND es 
Al$ = CHR$ (91):A2$ = CHR$ (93):Y$ = " 
NF":MODEM = 1 
RX = @: IF PEEK (8) = 1 THEN GOSUB 199 
PRINT D$"CLOSE ";FILE$ 

IF REC = 8 THEN 7198 


continued on next page 
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System (ARC) (Cont.) 


1998 POKE 34,0: HOME : VTAB 3: HTAB (21 - LEN 
(FILE$) / 2): POKE 58,63: PRINT FILES: POKE 
34,4: NORMAL 
HOME : PRINT : PRINT " THE FOLLOWING FI 
ELDS ARE AVAILABLE ": HTAB 9: PRINT "FOR 
THE FIND FUNCTION :": PRINT 


2018 T$(NF + 1) = H$ + H$ + HS + BS 


2689 


2028 FOR K = 1 TO NF STEP 2 

2038 IF K > 9 THEN 2878 

2049 IF K = 9 THEN PRINT “ Sek". MTS (K) 
; TAB( 21);K #1;". ";TS(K + 1): GOTO 208 
88 

2058 PRINT " SK OS TS(K) a TABE 22)GK + 
Pot SSC 2) 

2868 GOTO 2988 

2076 PRINT “ ":K;". ";T$(K); TAB( 21);K +1 
nee 2) 

2088 NEXT :K = NF 

2999 IF K /2< > INT (K / 2) THEN VTAB_ PEEK 
(37): HTAB 21: CALL - 958 

2198 POKE - 16368,9 

2119 VTAB 21: HTAB 18: GOSUB 178: PRINT : VTAB 
17: CALL - 868: HTAB 2: PRINT “ENTER "; 
: POKE 58,63: PRINT " FIELD # “;: NORMAL 
: PRINT " TO BE SEARCHED : “;G$;: INPUT 
" "jTV$ 

2128 IF LEN (TV$) = 8 THEN 489 

2138 TV = INT ( VAL (TV$)): IF TV < 1 OR TV > 
NF THEN 2118 

2149 IF LEN (TV$) > 1 AND TV < 18 A ( LEN ( 


TV$) - 1) THEN 2119 
POKE 34,6: HOME : VTAB 1: HTAB 11: 
59,63: PRINT "FIND RULES": 


POKE 
NORMAL 


2158 


2168 
2178 


PRINT 

HTAB 4: PRINT “THE FIND FUNCTION WILL S 
EARCH FOR" 

HTAB 3: PRINT "AND DISPLAY ALL RECORD N 
UMBERS WHOSE": PRINT 

HTAB (21 - LEN (T$(TV)) / 2): POKE 58, 
63: PRINT T$(TV): NORMAL : PRINT 

HTAB 3: PRINT "FIELD 'MATCHES' YOUR KEY 
WORD. ..";A1$;" K ";A2$ 

PRINT : HTAB 5: POKE 58,63: PRINT "KEYW 
ORD";: HTAB 24: PRINT “FIELD MATCH": NORMAL 


2186 
2198 
2288 
2216 


2228 HTAB 3: PRINT “----------- ".: HTAB 28: PRINT 


HTAB 5: PRINT “«";A1$;" K ";A2$;: HTAB 
21: PRINT "BEGINS WITH ";A1$;" K “;A2$ 
HTAB 6: PRINT Al$;" K ";A2$;: HTAB 21: 
"CONTAINS ";A1$;" K ";A2$: PRINT : PRINT 


22398 


2248 PRINT 


2258 PRINT : POKE 59,63: PRINT "NOTE"; : NORMAL 
: PRINT ": ";A1$;" K ";A2$;" CAN BE ANY 
COMBINATION OF" 

HTAB 7: PRINT "LETTERS, NUMBERS, AND SY 
MBOLS.": PRINT 
2278 POKE 35,24 
2288 L = 8: PRINT : HTAB 2: POKE 58,63: PRINT 
"ENTER KEYWORD";: NORMAL : PRINT “: ";G$ 
;: INPUT ” “; KEYS 

IF KEY$ = "" THEN 19598 

IF LEFT$ (KEY$,1) = "." THENL = 1 

IF LEN (KEY$) > TV&(TV) + L THEN VTAB 
21: HTAB 16: CALL - 958: HTAB 18: POKE 
58,63: PRINT " KEYWORD > FIELD ";G$;G$ 
;: FOR D = 1 TO 1808: NEXT D: HTAB 16: CALL 
- 868: VTAB 28: NORMAL : GOTO 2289 

IF KEY$ = CHR$ (42) THEN VTAB 28: HTAB 
18: CALL - 958: GOTO 2289 
2338 AS = KEYS 
2348 FOR D = 1 TO 188: NEXT D 
2358 IF Y$ = "F" THEN 2398 
2368 HOME : VTAB 3: HTAB (21 - LEN (FILE$) / 
2): POKE 58,63: PRINT FILE$: NORMAL : VTAB 
6: POKE 34,4: HOME 

HTAB (17 - LEN (A$) / 2): PRINT Al$;" 
K ";A2$;" = ";A$: POKE 34,7: PRINT 

VTAB 22: HTAB (21 - LEN (T$(TV)) / 2) 
POKE 59,63: PRINT T$(TV): NORMAL : VTAB 
7: HTAB 1 

IF LEFT$ (KEY$,1) < > 
DUM = 2: GOTO 2419 


2268 


2298 
2388 
2318 


2328 


2378 


23868 


2398 CHR$ (42) THEN 


2498 KEY$ = RIGHT$ (KEY$, LEN (KEY$) - 1):DU 
M=1 

2418 CC = @ 

2428 +IF TV = 1 THEN FL = 1: GOTO 2449 


2436 FL = @: FOR JK = 1 TO TV - 1:FL = FL +T 
V%(JK): NEXT JK:FL = FL +1 

2449 LO = 1: IF Y$ = "F" THEN LO = RD + 1: IF 
RD + 1 > REC THEN LO = 1 


2458 FOR K = LO TO REC 
2468 IF Y$ = "F" THEN 2489 
2478 VTAB 5: HTAB 7: POKE 58,63: PRINT K;; NORMAL 
2488 IF DUM = 2 THEN 2539 
2498 DUM$ = LEFT$ ( MID$ (RD$(K) ,FL,TV%(TV)) 
, LEN (KEY$)) 
2508 & DUMS,KEY$ 
2518 IF PEEK (26) = @ THEN 2619 
2528 GOTO 2578 
2538 DUM$ = MID$ (RD$(K),FL,TV%(TV)) 
2548 & DUM$, KEYS 
2558 CK = @ 
2568 IF PEEK (26) = 8 THEN 2619 
2576 IF CC > 11 THEN CC = CC + 1:CK = 1:: GOTO 
2618 
2588 IF Y$ = "F" THEN Y$ = CHR$ (21):RD = K 
- 1: GOTO 1388 


2598 CC = CC + 1:CK = 1:ALPHA = K 
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2688 


2619 
26208 


2638 
2649 


26508 


2660 


26798 


2688 
2698 
2788 
2718 
2720 
27308 


2740 
27508 
2768 


2778 
2788 
2798 
28008 
2818 
2828 
28308 
2848 
2858 
2868 
2878 
2888 


2898 


2989 


29198 


2928 
29308 
29408 
2958 
2968 
2978 
2988 
2998 


3608 


3618 


3920 
3038 


3048 
3050 
39608 


3078 
3080 


38908 
31808 
3118 
3128 
3138 
3148 
3158 
3168 


3178 


3189 


3198 
3208 
3218 


3220 
32308 


3248 
3258 


6 + CC: HTAB 3: POKE 58,63: PRINT 
“RECORD ".: HTAB (18 + (K < 108) + (K < 
10)): PRINT K;: NORMAL : PRINT “ ....-- 
"; MID$ (RD$(K) ,FL,TV%(TV)) 

Yes "E" THEN VTAB (6 + TV): HTAB 5 
: PRINT T$(TV): GOTO 1288 
IF CC = @ THEN VTAB 13: HTAB 7: PRINT 


. UCCESSFUL CORRELATION" 
iF oc > 13 THEN CC = CC - 12: VTAB 29: HTAB 
3: PRINT "+ ";CC;" ADDITIONAL RECORDS" 
VTAB 24: HTAB 7: PRINT “HIT “;: POKE 58 
,63: PRINT " F ";: NORMAL : PRINT " FOR 
HER SEARCH ";G$; 
wP ot = 1 THEN VTAB 22: HTAB 9: PRINT 
"HIT ";: FLASH : PRINT " D ";: NORMAL 
" TO DIAL NUMBER": VTAB 22: HTAB 14 


PRINT 


GET Z$: IF Z$ = CHR$ (78) THEN GOTO 1 
ts] 

TF Z$ = CHR$ (68) AND CC = 1 THEN 2728 
IF Z$ = CHR$ (13) THEN 488 

GOTO 2658 

REM -> D.C. HAYES MODEM <- 

HOME : VTAB 18:DIAL$ = CHR$ (17) 

FOR I = 1 TO 12: IF LEFTS$ (TS(I),5) = 


"PHONE" OR LEFT$ (T$(1I),4) = "TELE" THEN 
27598 

NEXT I: GOTO 2768 

IF MODEM = 1 THEN 2788 

VTAB 14: HTAB 6: POKE 58,63: PRINT “ NO 
PHONE NUMBERS IN RECORDS ": NORMAL 

HTAB 6: POKE 58,63: PRINT OR NO MO 
DEM CONNECTION ":G$;G$: NORMAL : FOR D 
= 1 TO 2500: NEXT D: GOTO 1988 

PRINT 
FL = @: FOR IK =1 TOI - 1:FL = FL + TV 
®(IK): NEXT IK:FL = FL +1 
NUMBER$ = MID$ (RD$(ALPHA) ,FL,TV%(I)) 
PRINT D$"PR#2" 
NUMBERS = NUMBER$ + CHR$ (198) 

VTAB 11: PRINT DIAL$; NUMBERS 

FOR D = 1 TO 2088: NEXT D 


VTAB 17: HTAB 8: FLASH : PRINT " 


HTAB 8: FLASH : PRINT " PLEASE PICK U 

P THE ‘ 

HTAB 8: FLASH : PRINT " 

HTAB 8: FLASH : PRINT “ THE TELEPHONE-R 
ECEIVER " 

HTAB 8: FLASH : PRINT " 

": NORMAL : FOR D = 1 TO 5888: NEXT 

D 
ALPHA = @: VTAB 13: HTAB 1: CALL - 958: 
VTAB 13: HTAB 18:GB$ = CHR$ (26): PRINT 


GBS 

PRINT D$"PR#8": FOR D = 1 TO 1588: NEXT 
D: POKE 34,8: HOME : FOR D = 1 TO 5@@: NEXT 
D: GOTO 1999 

REM «e SORT/PRINT oe 
LABEL = @ 
RX = @: IF PEEK (8) = 1 THEN GOSUB 198 
PRINT D$"CLOSE ";FILES$ 

IF REC = @ THEN 718 

REM USER SETS TOP OF FORM 
B1$ = "LABEL": INDENT = 25 

POKE 34,8: HOME : VTAB 3: HTAB (21 - LEN 
(FILE$) / 2): POKE 58,63: PRINT FILE$: POKE 
34,4: NORMAL 
TS(NF + 1) = H$ + H$ + H$ + B$: FOR K = 

1 TO NF: TX$(K) = CHR$ (13): NEXT K 

HOME :L = @: PRINT : PRINT “ THE FOLLOW 
ING FIELDS ARE AVAILABLE ": HTAB 12: PRINT 
"FOR THE ";B1$;":": PRINT 

FOR K = 1 TO NF STEP 2 

PRINT? "5 TABG 4 = (Ko SD RKS*. PETS 
(KY P°TAB( 22 « CK #1) > 9))IK 4 13". * 
i;TS(K + 1) 


NEXT :K = NF 

IF K / 2 < > INT (K / 2) THEN VTAB PEEK 
(37): HTAB 21: CALL - 958 
Lew Lee f 

IF L > NF THEN 3158 

VTAB 21: HTAB 18: GOSUB 178: PRINT : VTAB 
17: CALL - 868: PRINT “ENTER FIELD # FO 


R "|: POKE 58,63; PRINT "LINE “;L;G$;: NORMAL 
INPUT " "Tvs 
IF L = 1 AND LEN (TV$) = @ THEN 486 
IF LEN (TV$) = ® THEN 3158 
IF TV$ = CHR$ (21) OR TV$ = CHR$ (32) 
THEN 4898 


IF TV$ = “@" THEN L = NF + 1:TV = NF: FOR 
I = 1 TO NF: TWK(I) = I: NEXT : GOTO 3158 
TV = INT ( VAL (TV$)): IF TV < 1 OR TV > 
NF THEN 3088 
TWS(L) = TV: GOTO 3968 

HOME :LINES = L - 1: PRINT : HTAB 8:: 
“YOUR ";B1$;" WILL CONSIST OF :*: HTAB 
2 \PRINT “enn s .ocdunnsennmntanecasccnn - 

FOR K = 1 TO LINES: HTAB (14 - (K > 9)) 
‘ PRINT Ki". "; T$(TWR(K)): NEXT K 


PRINT 


POKE 34,28: VTAB 22: HTAB 18: PRINT “IS 

THIS CORRECT (Y/N) ";G$;: GET Y$: IF Y 
$ = "N" THEN POKE 34,4: GOTO 3919 
fsa Y$ = CHR$ (21) OR Y$ = CHR$ (32) THEN 
IF Y$ < > "Y" THEN 3170 
LC = @ 

VTAB 21: CALL - 868: VTAB 22: HTAB 6: PRINT 


"MERGE TWO OR MORE LINES (Y/N) ":G$: 
YS: IF Y$="N" THEN 342g OS 
IF Y$ < > "Y" THEN 3219 


: GET 


ee K = 1 TO NF:TX$(K) = CHR$ (13): NEXT 
GOTO 3266 
VTAB 21: HTAB 16: CALL 


- 958: HTAB 16: 


PRINT "TO FIELD # ": VTAB 23: HTAB 18: GOSUB 


178: GOTO 3399 


3268 


3276 
3288 


3298 
3388 
3318 


3328 
3338 
3348 
33598 
33608 
3378 


3389 
3398 


34898 
34198 


~ 3426 


34308 
3448 
3458 
3468 
3478 
3486 


3498 
3588 


35198 


3528 
3538 


3548 


3558 
3568 
3578 
3588 
3598 
3608 
3618 
3628 
3638 
3648 
36598 
3669 
3678 
3689 


3698 


37088 


3718 
3728 
3738 


3748 
3758 


3768 


3778 
3788 
3798 
3888 


3818 
3820 


3838 


- 958: POKE 59,6 
PRINT “ FIELD 


CALL 
NORMAL : 


HTAB 1: VTAB 21: 
3: PRINT “JOIN";: 


#°:G$;: INPUT " ";LX$: IF LEN (LX$) = 
@ THEN 3428 

VTAB 21: HTAB 16: CALL - 958:LX = VAL 
(LX$) 


IF LX < 1 OR LX > LINES - 1 THEN POKE 
50,63: HTAB 14: PRINT “INVALID”; : NORMAL 
: PRINT G$;G$: FOR D = 1 TO 588: NEXT D: 

VTAB 21: HTAB 1: GOTO 3268 


LC = LC - 1: GOTO 3258 

VTAB 21: HTAB 27: PRINT LX + 1;":" 

VTAB 21: HTAB 32: PRINT “ENTER “;: FLASH 

: PRINT " 7? ";G$;: VTAB 21:: HTAB 39: NORMAL 
:TX$(LX) = “" 

GET T1$: IF T1$ = CHR$ (13) THEN TX$(L 
X) = CHR$ (13): GOTO 3428 

IF T1$ < > “ " THEN 3358 


TX$(LX) = TX$(LX) + T1$: GOTO 3368 


TX$(LX) = TX$(LX) + " “ + T1S + 

ZZ$ = TS(TWR(LX)) + TIS + TS(TWR(LX + 1) 
) 

Z2Z = LEN (ZZ$) + 2:ZZ = (48 - ZZ) / 2 - 
1 

VTAB 23: HTAB 1: CALL - 958 

HTAB ZZ: POKE 58,63: PRINT T$(TW%(LX)); 
: NORMAL : PRINT " ";: POKE 58,63: PRINT 
TX$(LX);: NORMAL : PRINT " “;: POKE 58,6 


3: PRINT TS(TWS(LX + 1)): NORMAL 

FOR D = 1 TO 588: NEXT D 

GOTO 3268 

POKE 34,4: POKE 35,23: HOME : PRINT : HTAB 
6: PRINT “THE ";B1$;" WILL LOOK LIKE THI 


FOR K = 1 TO LINES: PRINT T$(TW%(K)) | TX 
$(K);: NEXT K 
VTAB 22: HTAB 14: PRINT “CORRECT (Y/N) 
":G$;: GET Y$: IF Y$ = "N" THEN 39198 

IF Y$ < > “Y" THEN 3459 
HOME : VTAB 12: HTAB 8: PRINT "WANT SOR 
TED ";B1$;" (Y/N) ? ";G$;: GET Y1$: PRINT 
Y1$: IF Y1$ < > “Y" THEN 3748 

HOME : PRINT : PRINT “THE FOLLOWING LIN 
ES ARE AVAILABLE FOR" 

PRINT “THE SORT FIELD :": PRINT 

FOR K = 1 TO NF STEP 2: HTAB (4 - (K > 
9)): PRINT K;". ";T$(K); TAB( 22 - (K > 
8));K + 1;". ";TS(K + 1): NEXT K: IF NF / 
2 < > INT (NF / 2) THEN VTAB PEEK (3 
7): HTAB 21: CALL - 958: PRINT 

PRINT : PRINT “SORT ON WHICH FIELD (BY 
NUMBER): ";G$;: INPUT " “;SF$:SF = VAL 
(SF$): IF SF < 1 OR SF > NF THEN 34898 

POKE 34,8: POKE 35,24: HOME 

VTAB 18: HTAB (13 - LEN (TS(SF)) / 2): 

PRINT “ees ";: POKE 58,63: PRINT “SORT 
ON *;TS(SF);: NORMAL : PRINT " eee” 

PRINT : PRINT : POKE 58,63: PRINT “ASCE 
NDING";: NORMAL : PRINT “ OR “;: POKE 59 
,63: PRINT “DESCENDING";: NORMAL : PRINT 
“ SORT (A/D) ";G$;: GET S$: PRINT S$;: 
Sl = (S$ = “A") 

IF S$ < > “A* AND S$ < > “D" THEN VTAB 
( PEEK (37) - 1): GOTO 3548 
SS$ = "ASCENDING": IF S$ = 
"DESCEND ING™ 

VTAB 12: CALL - 958: VTAB 17: HTAB 14: 

PRINT "SORT IN G* 

VTAB 7: HTAB 16: POKE 58,63: PRINT SS$; 
: NORMAL 

FOR K = 1 TO REC 
SO%(K) = K 

IF SF = 1 THEN FL = 1; GOTO 3638 
FL = @: FOR I = 1 TO SF - 1:FL = FL + TV 
$(1): NEXT I:FL = FL +1 


"D" THEN SS$ = 


SRT$(K) = MIDS (RDS$(K) ,FL,TVS(SF)) 
NEXT K 

Me=1 

M=3.M +41: IF M < REC THEN 3668 


M= (M - 1) / 3: IF M < 1 THEN 3728 

FOR J = M+ 1 TO REC:LL = J - M:SS$ =S 
RT$(J):S = SO&(J) 

VTAB 28: HTAB 19: POKE 58,63: PRINT * 

";: HTAB (19 + (J < 108) + (J < 18)): 
J: NORMAL 

IF Sl = (SRT$(LL) > SS$) THEN SRTS(LL + 
M) = SRT$(LL):SOS(LL + M) = SOB(LL):LL = 
LL - M: IF LL > 8 THEN 3788 
SRT$(LL + M) = SS$:SO%(LL + M) = S: NEXT 
J: GOTO 3678 

REM SHELL SORT LIST DONE 

FOR D = 1 TO 1988: NEXT D 


PRINT 


IF LABEL > @ THEN 3788 
HOME : VTAB 9: PRINT “HOW MANY “;; POKE 
58,63: PRINT “CARRIAGE RETURNS"; : NORMAL 


: PRINT “ FROM END OF": PRINT : HTAB 11: 
PRINT “ONE ";B81$;" TO NEXT 7? ";G$;; INPUT 


;CR 
VTAB 15: HTAB 13: POKE 58,63: PRINT "V“ 


;: NORMAL : PRINT "IEW OR ";: POKE 58,63 
: PRINT "P";: NORMAL : PRINT “RINT 7 ";G 
$;: GET VP$: IF VP$ < > "V" AND VP$ < > 


"P" THEN 3768 
P bio: VP$: FOR D = 1 TO 5@@: NEXT D:XX = 


GOTO 38198 

HOME 
a Kl = 1 TO REC:RX = SO%(K1): GOTO 39 
POKE 35,24: HOME 

VTAB 23: POKE 58,63: PRINT "PADDLE #1"; 

: NORMAL : PRINT “ CONTROLS SCROLL/PRINT 
SPEED !": POKE 35,21: VTAB 6: FOR D = 1 
TO 758: NEXT D 

IF VP$ = "P" THEN PRINT D$"PRH¥1": PRINT 
CHR$ (9); "8ON"; 


3848 
38508 
3869 
3878 


3889 


3898 
3988 
3919 


3920 


3938 
39498 


3959 
3968 


3978 


3988 
3998 
40808 


4019 
46208 


40308 
4848 


4059 
40608 
4079 


4980 
4999 
4188 
4119 
4129 
41398 
4149 
4159 
4168 
4178 


4186 
4199 


4200 
42198 
4228 
4238 


4246 


4258 


4268 
4276 


4288 


4296 
4308 
4318 
4328 
4338 
4349 


4358 


4368 
4378 
4380 
4398 
4408 


44198 
4428 
4438 
4446 
4459 
4460 
4478 
4489 
4498 
4500 


4518 
4520 
45308 


4549 
4550 


IF Y1$ = "Y" THEN 37998 
RX = RX + 1: IF RX < 1 THEN RX = 1 

IF RX < = REC THEN 3960 

PRINT D$"PR#@": PRINT : SPEED= 255: HTAB 
15: POKE 58,63: PRINT " END OF FILE ": NORMAL 
: FOR D = 1 TO 1888: NEXT D 

IF VP$ = "P" THEN PRINT D$"PRH1": PRINT 
CHR$ (12): PRINT D$"PR#9" 

POKE 35,24: HOME : VTAB 9 

PRINT : PRINT : PRINT : POKE - 16368, 
HTAB 5: PRINT "PRESS ";: POKE 58,63: PRINT 
"RETURN"; : NORMAL : PRINT " TO RE-FORMAT 
COPY": PRINT 

HTAB 7: PRINT "PRESS ";: POKE 58,63: PRINT 
"CC ";: NORMAL : PRINT “ FOR ANOTHER COP 
Y ";G$;: GET Y$: PRINT 

IF Y$ = CHR$ (67) THEN HOME :LABEL 
1:RX = XR: GOTO 3758 

IF Y$ = CHR$ (13) THEN LABEL = @:RX 
XR: GOTO 2998 

VTAB 14: GOTO 3928 

IF VP$ = "P" THEN HTAB (INDENT): IF (X 
X + LINES + LC) > 6@ THEN PRINT CHR$ ( 
12):XX = 6: HTAB (INDENT) 

FL = @: FOR K = 1 TO NF:P$(K) = MID$ (R 
D$(RX) ,FL + 1, TV%(K)):FL = FL + TV%(K): NEXT 


w 


IF VP$ = "P" THEN HTAB (INDENT) 
FOR K = 1 TO LINES 


L = LEN (P$(TWR(K))): IF L < 2 THEN L = 
1: GOTO 4049 

FOR J=1TOL- 1 

IF MID$ (P$(TW%(K)),L,1) < > " “ THEN 
4949 


L =L - 1: NEXT 

PRINT LEFT$ (P$(TW%(K)),L);TX$(K);: IF 
TX$(K) = CHR$ (13) THEN XX = XX + 1: IF 
VP$ = "P" THEN HTAB (INDENT) 

SPEED= PDL (1): NEXT K 

ON CR + 1 GOTO 4189, 49998 

FOR D = 1 TO CR: PRINT :XX = XX + 1: NEXT 
19) 

GOTO 4199 

PRINT :XX = XX + 1 

IF Y1$ < > “Y" THEN 38598 

NEXT K1: PRINT D$"PR#B": GOTO 38798 

REM ee PURGE/PACK ses 
B1$ = CHR$ (91):B2$ = CHR$ (93) 
RX = @: IF PEEK (8) = 1 THEN GOSUB 199 
PRINT D$"CLOSE "; FILES 

IF REC = @ THEN 7198 

POKE 34,0: HOME : VTAB 2: HTAB (21 - LEN 
(FILE$) / 2): POKE 58,63: PRINT FILE$: POKE 
34,4: NORMAL 
NP = @:L=1 

VTAB 5: HTAB 1: POKE 59,63: PRINT “ALL" 
;: NORMAL ; PRINT " ERASED/BLANK RECORDS 
WILL BE PURGED": PRINT 

PRINT “FROM YOUR FILE AND THE REMAINING 
RECORDS” 

PRINT "WILL BE REPACKED. FOR EXAMPLE :" 

: PRINT : PRINT 
HTAB 4: PRINT “1 2 3 4 5 6 


8 

HTAB 3: PRINT “--- --- --- --- --- --- 
PRINT : HTAB 3: PRINT B1$;"A";B2$;" ";B 
1$7"B";829;" “;818;" ";826." *:B1S;"D";8 
257" BIS SE"; B2S7" 938157 %"B2S;" 58 
13:"G":B2e;" ~;818;"H°-B28;.° ~;81$;" 5*7B 
2$ 

PRINT : HTAB 3: PRINT B1$;"A";B2$;" ";B 
1$;°8"; B25;" *;B1S;"1°;82$;° ";BLS;"D";B 
2$.° “sR19;"E"2826;" *: O18; “4,628; " "538 
1$;"G" ;B2$ 

PRINT : HTAB 3: PRINT "--- --- --- --- 
VTAB 21: HTAB 19: PRINT "HIT ";: POKE 5 
9,63: PRINT " P ";: NORMAL : PRINT " TO 
PURGE FILES" 

VTAB 23: HTAB 13: PRINT "HIT ";: POKE 5 
@,63: PRINT "RTN";: NORMAL : PRINT " FOR 
MENU ";G$;: GET A$ 

IF A$ = "P" THEN 4328 

IF A$ = CHR$ (13) THEN 480 

GOTO 4289 

FOR D = 1 TO 188: NEXT D 

VTAB 12: HTAB 1: CALL - 868 

FOR D = 15 TO 17: VTAB (D): HTAB 1: CALL 
- 868: NEXT D 

VTAB 16: HTAB 11: PRINT "“«» ";: POKE 58 
,63: PRINT "PURGING FILES";: NORMAL : PRINT 


* 

VTAB 21: HTAB 1: CALL - 958 

FOR D = 1 TO 15@@: NEXT D 
cC = 9 

FOR K = 1 TO REC 

IF LEFT$ (RD$(K),1) = "*#" THEN CC = CC 
+ 1:C%(CC) = K 

NEXT K 

IF L > 1 THEN 4448 
NP = CC 

IF CC = @ THEN 4580 

FOR K = 1 TO CC 
RD$(C%(K)) = RD$(REC) 
REC = REC - 1 

NEXT K 
L=L +1: GOTO 4388 

HOME : VTAB 18: HTAB 14: PRINT "PURGE C 
OMPLETED" 

VTAB 12: HTAB 13: POKE 58,63: PRINT NP; 
: NORMAL : PRINT "“ RECORDS DELETED" 

GOTO 4679 

VTAB 14: HTAB 11: PRINT "HIT ";: POKE 5 
@,63: PRINT "RTN";: NORMAL : PRINT " TO 
SAVE FILES ";G$;: GET A$: PRINT " " 

IF A$ < > CHR$ (13) THEN 4538 

PRINT D$"OPEN ";FILE$",L";RL 


4560 
4570 
4589 
4599 
4609 
4619 
4620 
4630 
4640 
4659 
4660 
4676 


4689 
4699 


4708 
4718 
4720 
4730 


PRINT D$"DELETE ";FILE$ 

PRINT D$"OPEN ";FILE$",L";RL 

FOR R = 1 TO REC 

PRINT D$"WRITE ";FILE$",R";R 

PRINT RD$(R) 

NEXT 

PRINT D$"WRITE ";FILE$",R" | 

PRINT REC 

PRINT D$"CLOSE" 

FOR D = 1 TO 19068: NEXT D 

GOTO 489 

VTAB 18: HTAB 9: PRINT "'HOUSECLEANING' 
- STANDBY ";G$:F = FRE (@): FOR D = 1 TO 


502: NEXT D: VTAB 18: HTAB 1: CALL - 86 
8; HTAB 12: PRINT "FREE MEMORY = ";F 


IF NP < > @ THEN 4539 
VTAB 22: HTAB 13: PRINT "HIT ";: POKE 5 


@,63; PRINT "RTN";: NORMAL : PRINT " FOR 


MENU ";G$;: GET A$ 

IF A$ < > CHR$ (13) THEN 4698 
GOTO 488 

PRINT D$"RUN MERGE FILES" 

END 





REM ‘seeeReeareeaesesaesess 
REM MERGE FILES 

REM & BY CHUCK KISS 
REM %& COPYRIGHT (C) 1982 
REM & BY MICRO-SPARC INC 
REM %& LINCOLN, MA. 81773 
REM &eeuaeeaeeaseasereeess 

PRINT CHRS (4); "NOMON C,1I,0” 

PRINT CHR (4); "MAXFILES 1” 

D$ = CHRS (4) 

DIM T#(13) , TV%(32) ,PS(12) , TX$ (24) , TWH (24) 

POKE 768,6: POKE 769,1: SPEED= 255: TEXT : HOME :FIN = 
@: GOTO 259 

HTAB 5S: PRINT " PRESS “;: INVERSE : PRINT "RETURN 
“3: NORMAL : PRINT “ TO QUIT “3: POKE 35,22: RETURN 


VTAB. 3: HTAB (29 — LEN (AAS) / 2): INVERSE : PRINT A 
A$: NORMAL : POKE 34,4: RETURN 

PRINT D$"OPEN ";FILE$",L";RL 

PRINT D$"READ ";FILES",R"3;RX: INPUT REC: IF REC = @ THEN 
PRINT D$"CLOSE": GOTO 469 

FOR R = 1 TO REC: PRINT D$"READ ";FILE$",R";R: INPUT 
RD$(IJ + R): NEXT R: PRINT D$"CLOSE": RETURN 

VTAB 15: HTAB 2: FOR K = 1 TO 36: PRINT "8"3: NEXT K: 
PRINT : VTAB 1: HTAB 2: FOR K = 1 TO 36: PRINT "8": 
NEXT K: PRINT 

FOR K = 2 TO 14: PRINT “&"53: HTAB 38: PRINT "#": NEXT 
K: RETURN 

PRINT D$"OPEN “;FILES + BCS 

PRINT D$"READ ";FILES + BCS 

INPUT NF: INPUT RL: INPUT NR 

FOR K = 1 TO NF: INPUT T$(K): INPUT TV%(K): NEXT K 
PRINT D$"CLOSE": RETURN 

REM &4&8 MENU sat 

REM 

V1 = 7:BS = " ” 

BCS = CHR® (2):G$ = CHRS (7):HS = CHRS (8):Vi$S = CHRS 
(91):V2% = CHRS (93) 

TEXT : HOME : GOSUB 18d 

AAs = "MERGE FILES “: GOSUB 149: RESTORE 
VTAB 5: HTAB 3: PRINT "THIS SUBROUTINE WILL MERGE TWO 
(2)" 

HTAB 4: PRINT "FILES AND ALLOW THE USER TO SORT" 

HTAB 3: PRINT "& PRINT DATA FROM THE NEWLY MERGED" 
HTAB 4: PRINT “FILE. NOTE THAT THIS MERGED FILE” 

HTAB 3: PRINT "IS NOT RESIDENT WITHIN THE SYSTEM.” 
HTAB 5: PRINT "ALSO NOTE THAT ONLY COMPATIBLE” 

HTAB 5: PRINT “FILES CAN BE MERGED: THEY "3: INVERSE 
: PRINT "MUST": NORMAL 

HTAB 3: PRINT "HAVE THE SAME # OF FIELDS AND ALSO" 
HTAB 4: PRINT “THE SAME OVERALL RECORD LENGTH.” 

VTAB 29: HTAB 1@: PRINT "HIT "3: INVERSE : PRINT “ C 
“3: NORMAL : PRINT " FOR CATALOG ";G$ 

PRINT : HTAB 11: PRINT "OR “3: INVERSE : PRINT “RTN"3 
: NORMAL : PRINT " FOR EXIT "; 

POKE - 16368,9 

GET Y$: PRINT "": IF Y$ < > CHR® (13) AND Y$ << > ” 
C" THEN 490 

IF Y$ = CHR (13) THEN PRINT D®"RUN A.R.C." 

PRINT "": GOTO 498 

POKE 34,0: HOME : VTAB 5: HTAB 15: INVERSE : PRINT " 
NOTICE “s NORMAL 

VTAB 19: HTAB (21 — LEN (FILE$) / 2): PRINT FILES: VTAB 
12: HTAB 8: PRINT "HAS ONLY BEEN INITIALIZED": PRINT 
: HTAB 9: PRINT “AND CONTAINS NO RECORDS";G$%: HTAB 22 
: PRINT "-—": FOR D = 1 TO 250@: NEXT D 

PRINT D$"CLOSE": RUN 

POKE 34,@: HOME 

PRINT D$"CATALOG": PRINT 

PRINT “ENTER “3: INVERSE : PRINT “1-ST"3: NORMAL : PRINT 
” FILE TO MERGE :";G$;: INPUT ” ";F1%: PRINT 

FOR D = 1 TO 25@: NEXT D 

HTAB 7: INVERSE : PRINT "2-ND"s;: NORMAL : PRINT “ FIL 
— TO MERGE :";G$;: INPUT “ ";F2%: PRINT 

IF Fi$ = F2$ THEN VTAB ( PEEK (37) - 1): GOTO 530 
VTAB 23: HTAB 14: INVERSE : PRINT "S T AN D B Y": NORMAL 


PRINT D$"OPEN ";F1% + BCS 
PRINT D$"READ ";Fis + BCS 
INPUT Ni: INPUT Ris INPUT X1 
PRINT D$"CLOSE” 

PRINT D$"OPEN ";F2% + BCS 
PRINT D$"READ “;F2% + BCS 
INPUT N2: INPUT R2: INPUT X2 
PRINT D$"CLOSE” 
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Applesoft Record Command 
System (ARC) (Cont.) 


649 IF Ni < > N2ORRI<¢ > R2 THEN HOME : VTAB 11: HTAB 
5: INVERSE : PRINT "ERROR";: NORMAL : PRINT " — FILES 
ARE INCOMPATIBLE ";G%;G$: HTAB @: PRINT "HIT ANY KEY 
TO CONTINUE "3: GET A$S:: PRINT "": GOTO 490 

658 PRINT D$"OPEN ";F1% 

469 PRINT D$"READ ";F1$",R@": INPUT Rt 

679 PRINT D$"CLOSE” 

688 PRINT D$"OPEN ";F2$ 

499 PRINT D$"READ ";F2$",R@": INPUT R2 

798 PRINT D$"CLOSE" 

719 DIM RDS$(Ri + R2),SRTS(R1I + R2),S0%(Ri + R2) 

72@ FILES = F1$: GOSUB 29@:RX = 9:1J = OB: GOSUB 15@:RT = R 
EC 

739 PRINT D$"CLOSE” 

749 FILES = F2%:RX = @:IJ = REC: GOSUB 15@0:RT = RT + REC 

75@ PRINT D$”"CLOSE” 

76 REM *& SORT/PRINT 88% 

779 LABEL = 9:REC = RT 

789 VTAB 23: HTAB 12: PRINT “HIT “3: INVERSE = PRINT “RTN 
“3: NORMAL : PRINT " FOR MENU" 

796 Bis = "LABEL": INDENT = 25 

899 TEXT : HOME =:RX = @ 

819 POKE 34,9: VTAB 3: CALL —- 868: FOR D = 1 TO 5@@: NEXT 
D: VTAB 3: HTAB 15: INVERSE : PRINT "MERGE FILES": POKE 
34,4: NORMAL 

829 VTAB 3: INVERSE : PRINT F1$;: HTAB (4@ — LEN (F2%))s 
PRINT F2%: NORMAL 

830 TS(NF + 1) = HS + HS + HS + BS: FOR K = 1 TO NF: TX#(K) 
= CHRS (13): NEXT K 

849 HOME :L = @: PRINT : PRINT " THE FOLLOWING FIELDS AR 
E AVAILABLE “": HTAB 6: PRINT “FOR THE MERGED FILES «A 
Bi$;": “: PRINT 

858 FOR K = 1 TO NF STEP 2 

869 PRINT " "3; TAB(C 4 — (K > 9))5KR"- "3;TS(K); TABC wo 
((K + 1) > 93K + 1s". "ZSTSC(K + 1) 

878 NEXT K 

ee@ L=L+ti 

899 IF L > NF THEN 978 

969 VTAB 21: HTAB 19: GOSUB 138: PRINT : VTAB 173 cALL - 
868: PRINT "ENTER FIELD # FOR “3: INVERSE : PRINT “L 
INE ";L;6$;: NORMAL : INPUT “ : “;TVs 

916 IF L = 1 AND LEN (TVS) = @ THEN 259 

926 IF LEN (TV$) = @ THEN 979 

938 IF TV$ = CHRS (21) OR TV$ = CHRS (32) THEN 258 

946 IF TV® = “a” THEN L = NF + 1:TV = NF: FOR I = 1 TO NF 
:TW%(I) = I: NEXT : BOTO 979 

956 TV = INT ¢ VAL (TV$)): IF TV < 1 OR TV > NF THEN 996 

969 TWX(L) = TV: GOTO 889 

979 HOME :LINES = L —- 1: PRINT =: HTAB 8&:: PRINT "YOUR "3B 
1$;" WILL CONSIST OF :“: HTAB 7: CRN 





989 FOR K = 1 TO LINES: HTAB (14 — (K > 9))> PRINT K5". ™ 
3 TS(TWH(K)): NEXT K 

999 POKE 34,26: VTAB 22: HTAB 18: PRINT “IS THIS CORRECT 
(Y/N) "“3G$%;: GET Y$: IF Y$ = “N" THEN POKE 34,4: GOTO 
849 

19669 IF Y$ = CHRS (21) OR YS = CHRS (32) THEN 476 

1919 IF YS < > “Y" THEN 999 

1926 LC = @ 

1936 VTAB 21: CALL - 8468: VTAB 22: HTAB 6: PRINT "MERGE 
TwO OR MORE LINES (Y/N) “;G$%;: GET Y$: IF YS = "N" THEN 
1256 

19496 IF Y$ < > “Y" THEN 1636 

1950 FOR K = 1 TO NF: TX$(K) = CHRS (13): NEXT K 

1969 GOTO 1989 

1978 VTAB 21: HTAB 16: CALL - 958: HTAB 16: PRINT "TO FI 
ELD # “: VTAB 23: HTAB 19: GOSUB 138: GOTO 1129 

1980 HTAB 1: VTAB 21: CALL —- 958: INVERSE =: PRINT “JOIN" 


3: NORMAL : PRINT “ FIELD #";G$;: INPUT " ";LX$: IF LEN 


(LX$) = @ THEN 1250 

1999 VTAB 21: HTAB 16: CALL - 958:LX = VAL (LX$) 

1196 IF LX < 1 OR LX > LINES — 1 THEN INVERSE : HTAB 14: 
PRINT “INVALID";: NORMAL : PRINT G$;G$: FOR D = 1 TO 
599: NEXT D: VTAB 21: HTAB 1: GOTO 1989 

1119 LC = LC — 1: GOTO 1979 

112@ VTAB 21: HTAB 27: PRINT LX + 13":" 

1130 VTAB 21: HTAB 32: PRINT “ENTER ";: FLASH : PRINT " 7 
";G%;: VTAB 21:: HTAB 39: NORMAL :TX$(LX) = "” 

1149 GET T1$: IF T1$ = CHRS (13) THEN TX$(LX) = CHRS (1 
3): GOTO 1256 

1159 IF Tif < >” “ THEN 1178 

1169 TX$(LX) = TX$(LX) + T1%: GOTO 1180 

1170 TXS$(LX) = TXS(LX) +" "+ TI19 4+" " 

1180 ZZ$ = TS(TWK(LX)) + T1® + TS(TWHILX + 1)) 

1199 ZZ = LEN (ZZ$) + 2:ZZ = (49 - 22) / 2-1 

1296 VTAB 23: HTAB 1: CALL - 958 

121@ HTAB ZZ: INVERSE : PRINT T$(TW%(LX));: NORMAL : PRINT 
“ "3: INVERSE : PRINT TX$(LX);: NORMAL 

1226 PRINT ” “;: INVERSE : PRINT TS(TWZ(LX + 1)): NORMAL 


1236 FOR D = 1 TO 5@@: NEXT D 

1249 GOTO 1986 

1259 POKE 34,4: POKE 35,23: HOME : PRINT : HTAB 6: PRINT 
“THE ";B1i$;" WILL LOOK LIKE THIS :" 

1268 HTAB 6: PRINT “*--—-------—--—---~--~~----_____ " 

127@ FOR K = 1 TO LINES: PRINT T$(TW%(K))3TX$(K)32 NEXT K 


1286 VTAB 22: HTAB 14: PRINT "CORRECT (Y/N) "3;6%;: GET YS 
: IF YS = "N" THEN 849 

1290 IF Y$ < > "Y" THEN 1289 

1399 HOME : VTAB 12: HTAB 8: PRINT "WANT SORTED ";Bis;" ( 
i, 2? "3;G$;: GET Y1$: PRINT Y1%: IF Y1i® < > “Y™" THEN 

1319 HOME =: PRINT =: PRINT "THE FOLLOWING 
ae eee LINES ARE AVAILA 

1320 PRINT “THE SORT FIELD ¢": PRINT 

1330 FOR K = 1 TO NF STEP 2: HTAB (4 — (K > 9)): PRINT K; 


"2 “sTS(K)5 TAB( 22 — (K > B))3K + 15". “ST@(K + 1): NEXT 


K: PRINT 
1346 PRINT = PRINT "SORT ON WHICH FIELD (BY NUMBER): "369 
32 INPUT “ “;SF$:SF = VAL (SF$): IF SF < 1 OR 
F THEN 1316 = ta 
1350 POKE 34,9: POKE 35,24: HOME 
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1369 


1378 


1389 
1399 
1400 


1416 
1428 
1430 
1449 
1450 


1468 
1476 
1488 
1498 
1506 
1516 


1528 


1538 


1548 


1558 
1568 
1570 


1586 


1596 


1669 
1616 
1628 
1636 
1646 
165¢ 


1668 


1679 
16898 
1698 
1796 


1718 


1728 
1736 
1749 
1745 


1756 
1766 


1776 
1788 
1798 


1890 


1816 
1826 
1830 


1849 
1858 
1868 
1870 


188@ 
1898 
1968 
1918 
1926 
1939 
1940 
1959 


VTAB 18: HTAB (13 — LEN (T$(SF)) / 2): PRINT "#88 “ 
3: INVERSE : PRINT "SORT ON "3 T$(SF)5: NORMAL : PRINT © 
» ee" 

PRINT “ASCENDING";: NORMAL 
PRINT "“DESCENDING";: NORMAL 


PRINT " OR “3: INVERSE 
$;: GET S$: PRINT S$;:S1 = 


: PRINT “ SORT (A/D) = "3 
(ss = "“A") 
IF S$ < > "A" AND S$ < > “D" THEN VTAB ( PEEK (37 


) — 1): GOTO 1378 
SS$ = "ASCENDING": IF S$ = “D” THEN SS$ = “DESCENDING 


VTAB 12: CALL —- 958: VTAB 17: HTAB 14: PRINT "SOR 


T rw Ss 

VTAB 7: HTAB 16: INVERSE =: PRINT SS$;: NORMAL 

FOR K = 1 TO REC 

SOz(K) = K 

IF SF = 1 THEN FL = 1: GOTO 1468 

FL = @: FOR I = 1 TO SF — i:FL = FL + TVACI): NEXT I: 
Fu = FL + 2 

SRT$(K) = MIDS (RDS(K),FL,TV%Z(SF)) 

NEXT K 

M=1 

M=3 8M + i: IF M < REC THEN 1496 

M = (M -— 1) / 3: IF M < 1 THEN 15508 

FOR J = M + 1 TO REC:LL = J — M:SS% = SRT$(J)3S = so 
%(0) 

VTAB 26: HTAB 19: INVERSE : PRINT " "3: HTAB (19 + 
(J < 100) + (J < 18)): PRINT J: NORMAL 

IF Si = (SRT$(LL) > SS$) THEN SRTS$(LL + M) = SRTS(LL 
):SOZ%(LL + M) = SO%(LL):LL = LL — Mz: IF LL > @ THEN 1 
538 

SRT$(LL + M) = SS$:SOZ(LL + M) = S: NEXT J: GOTO 1508 


REM SHELL SORT LIST DONE 
FOR D = 1 TO 16060: NEXT D 
IF LABEL > @ THEN 1619 
HOME : VTAB 9: PRINT “HOW MANY “3: INVERSE : PRINT bas 
CARRIAGE RETURNS";: NORMAL : PRINT " FROM END OF": PRINT 
: HTAB 11: PRINT “ONE ";B1%;" TO NEXT ? "3695: INPUT 
" "SCR 
; 
VTAB 15: HTAB 13: INVERSE : PRINT "V"3: NORMAL = PRINT 
“IEW OR ";: INVERSE : PRINT “P";: NORMAL : PRINT "RIN 
T 2? ";G%;: GET VPS: IF VP® < > “V" AND VPS < > "Pp" THE 
1598 
PRINT VP$: FOR D = 1 TO S@@: NEXT DeXX = 6 
GOTO 1448 
HOME 
FOR Ki = 1 TO REC:RX = SOZ(K1): GOTO 1798 
POKE 35,24: HOME 
VTAB 23: INVERSE : PRINT “PADDLE #1";: NORMAL : PRINT 
“ CONTROLS SCROLL/PRINT SPEED '": POKE 35,21: VTAB 6: 
FOR D = 1 TO 75@: NEXT D 
IF VPS = "P™ THEN PRINT DS"PR#1": PRINT CHRS (9);" 
8ON"; 
IF Yis = “Y" THEN 1628 
RX = RX + 1: IF RX < 1 THEN RX = 1 
IF RX < = REC THEN 1798 
PRINT D$"PR#9”": PRINT : SPEED= 255: HTAB iS: INVERSE 
: PRINT “ END OF FILE “: NORMAL : FOR D = 1 TO 1669: NEX 
D 
IF VPS = "P" THEN PRINT DS"“PR#1": PRINT CHR® (12)5 
PRINT D$"PR#S”" 
POKE 35,24: HOME : VTAB 7 
PRINT : PRINT : PRINT : POKE -— 16368,0 
HTAB 5: PRINT “PRESS “;: INVERSE 
PRINT “RETURN";: NORMAL : PRINT “ TO RE-FORMAT COPY" 
= PRINT 
HTAB 7: PRINT "PRESS "3: INVERSE : PRINT “" C “3: NORMAL 
: PRINT “ FOR ANOTHER COPY ";G6$;: GET Y$: PRINT 
IF YS = CHRS (47) THEN HOME :LABEL = 1:RX = XR: GOTO 
1588 
IF YS = CHRS (13) THEN LABEL = @:RX = XR: GOTO 8808 
VTAB 14: GOTO 1758 
IF VPS = "P" THEN HTAB (INDENT): IF (XX + LINES + L 
C) > 6@ THEN PRINT CHRS (12):XX = 6: HTAB (INDENT) 
FL = @: FOR K = 1 TO NF:PS(K) = MIDS (RDS(RX),FL + 1 
»TVZC(K))sFL = FL + TVZCK): NEXT 
IF VPS = “P" THEN HTAB (INDENT) 
FOR K = 1 TO LINES 
L = LEN (PS(TWK(K))): IF L < 2 THEN L = 1: GOTO 1878 


FOR J=1TOL-1 

IF MIDS (PSC(TWAC(K)),L,1) < > " “ THEN 1878 

Leak = fe NERe 

PRINT LEFTS (PS(TWH(K)),L);TXS(K) gy: IF TX8(K) = CHRS 
(13) THEN XX = XX + 1: IF VP$ = "“P" THEN HTAB (INDEN 
Tt) 

SPEED= PDL (1): NEXT K 

ON CR + 1 GOTO 1938,1928 

FOR D = 1 TO CR: PRINT :XX = XX + 1: NEXT D 

GOTO 1938 

PRINT :XX = XX + 1 

IF Yi® < > "Y" THEN 1688 

NEXT Kis PRINT D&"PR#O": GOTO 1766 

END 
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APPLE ART GALLERY 








The Apple Art Gallery 


by Edgar J. Young 
64 Hillside Drive 
Beacon Falls, CT 06403 


This delightful program is (quite literally) a 
work of art. It creates a fascinating show by 
building geometric shapes, occasionally 
accompanied by sound. It is semi-passive in 
nature. You mostly sit back and enjoy it. The 
instructions are simple, and are an integral 
part of the program. This program indeed 
demonstrates that computers have many uses. 


THE ORIGIN 

| was intrigued by the computer generated 
geometric shapes that appear in magazines 
and on TV. So | decided to recreate some of 
these shapes using the high resolution graph- 
ics feature of the Apple Il Plus computer. 
Soon |had an assortment of shape-generating 
programs. These were fun to watch, but view- 
ers got bored waiting for me to load and run 
the programs. Hence, the idea for this pro- 
gram was born. 

This program had to be fast so that people 
wouldn't lose interest. For the same reason it 
had to be rich in variety. Because art appeals 
to people of all ages, and because a lot of 
people are not computer or mathematically 
oriented, the instructions had to be simple 
and goof-proof. | believe the Art Gallery has 
succeeded in reaching these aims. 

The people who have viewed this show are 
usually delighted. It seems to hold the fasci- 
nating lure of a camp fire. It’s almost as much 
fun to watch the people watching it as it is to 
watch the screen. The viewers invariably tilt 
their heads to get different perspectives. 


HOW IT WORKS 
The program has two major parts. The first 
partis the set-up and control function. It is the 
framework in which the pictures are shown. 
The second part is a group of subroutines 
which are the mathematical shape generators. 


SET-UP AND CONTROL 
The set-up and control section is structured 
as follows: 


* Display the Copyright (lines 40-60) 


This is a reminder to keep honest people 
honest. 


* The Instructions (lines 100-310) 


The instructions are single keystroke entries 
that can be made at any time when the pro- 
gram is running. The response time for the 
instructions is minimized to maintain viewer 
interest. 

The instructions are: 


i — _ will cause the program to stop 
and display the instructions. 


will cause the program to pause 
with whatever it is doing until 
‘H’ is pressed again. This fea- 
ture allows you to halt a shape 
generation in progress so you 
can see how it is being done. It 
also allows a longer apprecia- 
tion time if you want to view a 
finished shape longer than the 
normally allowed time. 


H — 


will cause the program to stop 
and ask for an art form number. 
The program will then show 
sequentially numbered art 
forms beginning at the selected 
number. 


will cause the program to stop 
and ask for an art form number. 
The program will then show 
that art form until it receives a 
different command. Each of the 
forms is generated using the 
RND(X) function. So there are 
variations within a selected art 
form. The ‘R’ command allows 
you to explore these variations. 
Some of the art forms vary 
more than others. 


will change the status of the 
numbering feature, turning it 
off if it was on, and on if it was 
off. This control performs the 
status change immediately, but 
the change is not apparent until 
the next ‘slide’ is viewed. 


SPACE — pressing the space bar causes 
the program to stop what it is 
doing and start generating 
‘slides’ in a random order. This 
is agood command for parties 
because you Can just leave the 
program running and not show 
the same thing twice. 


ESC — will immediately clear the 
screen and put your Apple back 


into Applesoft BASIC. 


The array P(4,150,2) is one of the secrets to 
the speed of this program. It is the point loca- 
tion array for the shapes. The appreciation 
time at the end of each geometric construc- 
tion is being used by your Apple to generate 
the next shape and load it into this array. Itis 
far faster to HPLOT to elements in an array 
than to mathematically generate and plot 
each point at the time of viewing. 


* GOSUB 500 — The Control Center 
(lines 490-660) 


This interesting subroutine is what makes 
the control so fast. The shape generating rou- 
tines are laced with GOSUB 500’s. Each time 
this routine is called, it checks to see if a key 
has been pressed. If not, control is given back 
to the shape generator. If a key has been 
pressed, the validity of the key is checked. Ifa 
valid command is issued then control is trans- 
ferred. If the command demands a totally new 
program direction, then a CALL 54915 is exe- 
cuted. This handy CALL zeroes the GOSUB 
stack without affecting anything else. So you 
can break in the middle of nested subroutines 
without having to POP off the GOSUB stack. 
This is vital because GOSUB 500 is being 
called from a large number of places within 
the program. And many of the places are at 
different levels of GOSUB nesting. 


* Art Form Selection (lines 670-790) 
This is where the art form is selected, and 


where execution moves out to the shape gen- 
erating routines. 


* Art Form Number Input (lines 800-940) 


This subroutine accepts answers to the 
‘which art form’ questions asked by the‘S’ and 
‘R’ commands. It refuses to accept improper 
or impossible inputs. 


* Art Form Numbering (lines 950-990) 


This subroutine displays the art form number 
on the screen when the numbering feature is 
activated. 


* Choose Screen Color (lines 1000-1020) 


This is one of the added variety features of 
the program. The graphing screen is ran- 
domly black with white lines or white with 
black lines. 


THE ART FORM GENERATORS 

The art forms are mathematically defined 
shapes. The RND(X) function is used for 
defining parameter values for the shape gen- 
erating equations. Therefore, each of the 33 
different art forms is actually a family of art 
forms in itself. There is so much variation 
within some of the art forms that no two of 
them are alike. 

Itis difficult to describe most of the shapes, 
so | won't. I'll let you be surprised. When 
debugging this program, you will probably 
only be able to eliminate syntax (typing) 
errors. Programming errors will be difficult 
because you won’t know exactly what you are 
aiming for. But don’t worry, your mistakes 
may lead to new art forms that are more beau- 
tiful than the original. If your results are pleas- 
ing to the eye then you aren't too far off. 


CONTROLLING YOUR OWN ART 
To use the control part of this program as a 
vehicle for displaying your own art, arrange 
your shape generating subroutines in the fol- 
lowing order: 


1. Use the RND(X) function to generate the 
parameters that define the shape of your 
art. This will add variety to the viewing. 


2. Generate the points of the art form and 
load them into P(4,150,2). Be sure to 
GOSUB 500 in the innermost loop to main- 
tain rapid program control. 


3. GOSUB 950 to number the art form and/or 
clear and select the background screen for 
the next slide. 


4. HPLOT the array P(4,150,2). Remember to 
include GOSUB 500 in the innermost loop 
or where appropriate to maintain program 
control during plotting. 


5. RETURN 


continued on next page 
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EQUIPMENT NEEDED 
Apple || Plus with 48K RAM 


Applesoft in ROM 
1 Disk Drive 


Monitor (preferably a color monitor or 
color TV) 


SUMMARY 

This program is great to show to non- 
computer users. It gets them asking ques- 
tions about the computer. It is also a great 
conversation piece at a party. It can be used 
for attracting attention at a display booth, or 
for some other form of advertising. A friend 
used it to help get ideas for designing a new 
company logo. ENJOY!! 


VARIABLE LIST FOR APPLE ART GALLERY 


A Answer to questions 
A$ Answer to questions 
Al ASC (I) 

A2 ASC(H) 

A3 ASC(S) 

A4 ASC(R) 

A5 ASC(N) 


A6 ASC(SPACE) 
A7 ASC(ESC) 


Cc Input to # Art Form question 
C$ Input to # Art Form question 
C1$ Input to # Art Form question 


CG _ Color of graph lines 
CS Color of screen 


CX Center of screen in X direction 
CY Center of screen in Y direction 


DE Delay (FOR DE = 1 TO 100: NEXT) 


FL Flag to denote art form numbering 

FR Flag to denote running an art form 
continuously 

FS Flag to denote sequencing art forms 


1X Starting cursor position for screen 
answer 


NF =Total number of art forms 
NN Number of art form currently showing 


Pl 3.14159... 
PK -16384: Peek to check for keystroke 


RM Maximum permissible radius 
RP 1/2 maximum radius 


x Position of cursor on screen 


The remainder of the variables are used in 
the form definition and plotting routines. 
Remember: if you use other variable names, 
they have to be initialized before graphing to 
avoid shifting the HGR2 screen. 





The Apple Art Gallery (Cont.) 


ILIST 

2 REM HSERTTAERATARER RETAKE EEE EES 
3 REM # APPLE ART GALLERY * 
4 REM & BY EDGAR J. YOUNG * 
S REM # COPYRIGHT (C) 1982 * 
6& REM & BY MICRO-SPARC INC * 
7 REM & LINCOLN, MA. 81773 * 
8 REM & ALL RIGHTS RESERVED * 
F REM SSSA TARTRATE TES 
3S LOMEM: 24576 

49 WHGR2 : TEXT = HOME : VTAB 7: HTAB 9: PRINT "APPLE 


ART GALLERY": PRINT : PRINT 


5@ HTAB 9: PRINT "COPYRIGHT (C) 1982": PRINT : PRINT 
6@ HTAB 9: PRINT "BY MICRO-SPARC, INC.” 

8@ GOSUB 326: REM VARIABLE INITIALIZATION 

96 TAB 23: HTAB 6: PRINT “PRESS SPACE BAR TO CONTINU 


Esau. 

92 POKE -—- 16368,9 

94 A = RND (1): IF PEEK ( — 16384) < 128 GOTO 94: REM 
RANDOMIZES RND(I) 

196 REM INSTRUCTIONS 

119 TEXT : HOME : PRINT 

128 PRINT “" THIS PROGRAM RANDOMLY DISPLAYS A" 

139 PRINT “VARIETY OF GRAPHIC ART FORMS. TO" 

149 PRINT “CONTROL IT, USE THE FOLLOWING SINGLE" 

159 PRINT “KEY INSTRUCTIONS AT ANY TIME:” 

168 PRINT : PRINT "I — DISPLAY THESE ” INSTRUCTIONS 


178 PRINT : PRINT " H — *HOLD’ THIS PICTURE UNTIL < 
H>" 

188 HTAB 8: PRINT “IS PRESSED AGAIN" 

196 PRINT : PRINT ” S — *SEQUENTIALLY’? RUN ALL ART 


266 PRINT : PRINT " R — *RUN’ ONE ART FORM CONTINUO 


219 HTAB 8: PRINT “UNTIL THE SPACE BAR IS PRESSED” 
226 PRINT : PRINT ” N — START OR STOP ’ NUMBERING’ ”" 
238 HTAB 8: PRINT “THE ART FORMS” 

246 PRINT : PRINT “ SPACE BAR — CONTINUE. RANDOM DIS 


258 PRINT : PRINT ” Esc — ESCAPE THIS PROGRAM” 

266 CALL 62458: REM CLEAR HGR2 SCREEN 

265 POKE —- 16368,9 

279 PRINT : HTAB 26: PRINT “YOUR COMMAND? ";: GET AS: 
A = ASC (AS) 

286 IF A = Al OR A = A2 GOTO 1869 

296 IF A = AS THEN FL = 1: GOTO 679 

368 GOSUB 529 

316 GOTO 196 

328 REM CONSTANTS AND DIMENSIONS 

496 PI = 3.141592654:CX = 149:CY = 95:RM = 96:RP = 45 

419 Al = 73:A2 = 72:A3 = 83:A4 = B2:A5 = 78:A6 = 32:A7 
= 27 

429 FL = @:FS = @:FR = @:P = @ 

436 CS = @:CG6 = @ 

449 PK = —- 16384 

450 NF = 33 

469 C$ = “":C1$ = "" 

479 DIM P(4,159,2): REM 

480 RETURN 

490 REM PROGRAM CONTROL 

500 IF PEEK (PK) < 128 THEN RETURN 

510 GET AS:A = ASC (AS) 

520 IF A< > Ai ANDA< > AZ ANDA< > AS ANDAX OA 
4 AND A< > AS AND A< > AS AND A < > AZ THEN RETURN 


530 IF A = Ai THEN CALL 54915:FS = O:FR = O: GOTO 100 

540 REM CALL 54915 RESETS THE GOSUB STACK TO ZERO WITHOU 
T AFFECTING ANYTHING ELSE 

550 IF A = AZ THEN GET AS: RETURN 

560 IF A = AS GOTO 640 


570 IF A = A4 GOTO 610 

580 IF A = AS THEN FL = ABS (FL — 1): RETURN 

590 IF A = AS THEN CALL 54915:FS = O:FR = 0: GOTO 670 
600 TEXT =: HOME : END 

610 CALL 54915 


620 FS = 0 

630 FR = 1: TEXT : HOME =: VTAB 10: PRINT " SELECT THE ART 
FORM (1 TO ";NF;") THAT YOUWANT TO RUN CONTINUOUSLY. 
": GOTO 800 

640 CALL 54915 

650 FR = 0 

660 FS = 1: TEXT : HOME : VTAB 10: PRINT " SELECT THE ART 
FORM (1 TO "3NF;") THAT YOUWANT TO START THE SEQUENC 
€ FROM.": GOTO 800 

670 REM ART FORM SELECTION 

680 IF FR = 1 GOTO 710 

690 IF FS = 1 THEN NN = NN + it IF NN = NF + 1 THEN NN = 
1 

7OO IF FS < > 1 THEN NN = INT (¢ RND (1) & NF + 1) 

710 ON INT (NN / 10 + 1) GOTO 720,740,760, 780 

720 ON NN GOSUB 4990, 3320, 2950, 1070, 1290, 1700, 3850, 4040, 3 
320 

730 GOTO 670 

740 ON NN — 9 GOSUB 1060, 1300, 1400, 2600, 3330, 4320, 1980, 16 
90, 1080, 3340 

750 GOTO 4670 

760 ON NN — 19 GOSUB 2320, 3800, 1280, 3340, 1500, 1050, 1710,35 
330, 1970, 1300 

770 GOTO 670 


780 
790 
800 
810 


ON NN — 29 GOSUB 3400, 1040, 3760, 3450 

GOTO 670 

REM ART FORM NUMBER INPUT 

PRINT =: PRINT " PRESS <RETURN> WHEN YOU HAVE TYPED I 
N YOUR ENTRY..."5 


820 IX = POS (0) + 1 


830 


GET A$:C = ASC (AS): IF C < 49 OR C > 57 THEN HTAB 
IX: GOTO 830 


840 C1i$ = A$:C$ = AS: PRINT AS3=X = POS (0) + 1 


850 
860 


870 


GET A$:C = ASC (A$): IF C = 13 GOTO 920 

IF C = 8 THEN X = POS (0): HTAB X: PRINT “ "5: HTAB 
X: GOTO 830 

IF C < 48 OR C > 57 THEN HTAB X: GOTO 850 


680 C$ = Ci$ + A$: PRINT AS;=X = POS (0) + 1 


890 
9700 


F910 


GET A$:C = ASC (A$): IF C = 13 GOTO 920 


IF C = 8 THEN X = POS (0): HTAB X: PRINT " "3: HTAB 
X:C# = Ci$: GOTO 850 
GOTO 890 


920 NN = VAL (C%): IF NN < 1 OR NF < NN THEN HTAB IX: PRINT 


930 
935 
940 
950 
960 
979 
980 


9990 
1000 


1010 
1020 


1030 
1040 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 


1130 
1140 
1150 
11460 


1170 
1180 
1190 


1200 
1210 
1220 
1230 
1240 


1250 


1260 


1270 
1280 
1290 


1300 
1310 
1320 
1330 
1340 


1350 
1360 
1370 


1380 


1390 
1400 
1410 
1420 


1430 
1440 
1450 
1460 
1470 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 


1580 
1590 
1600 
1610 


“ "3: HTAB IX: GOTO 830 

IF FS = 1 THEN NN = NN - 1 

HOME : VTAB 10: HTAB 14: PRINT "I’M THINKING” 

GOTO 670 

REM ART FORM NUMBERING SUBROUTINE 

IF FL = 1 GOTO 980 

GOTO 1010 

TEXT : HOME =: VTAB 10: HTAB 13: PRINT "ART FORM # "3N 


N 
CALL 62450: FOR DE = 1 TO 100: GOSUB 500: NEXT DE 
REM CHOOSE SCREEN COLOR — WHITE ON BLACK OR BLACK O 
N WHITE 
IF RND (1) — .5 > © THEN HGR2 : HCOLOR= 7:CS = 4: RETURN 
HCOLOR= 7: HGR2 : HPLOT CX,CY: CALL 62454: HCOLOR= 4 
:CS = 7: RETURN 
REM ART FORMS 31,25,10,4,18 
FOR DE = 1 TO 200: GOSUB 500: NEXT DE:P = INT ( RND 
(1) ® 11 + 10): GOTO 1100 
P = INT ( RND (1) # 21 + 90): GOTO 1100 
P = INT ( RND (1) & 51 + 20): GOTO 1100 
P = INT (( RND (1) ® 21 + 20) / 2) & 2: GOTO 1100 
P = INT ( RND (1) ® 61 + 20) 
REM DEFINE POINTS AROUND A CIRCLE 
I = 1:AN = 28 PI/P 


P(1,1,1) = CX:P(1,1,2) = CY - RM:K = P 

FOR J = 2 TO INT (P / 2 + 1)sPX = RM & SIN ((J - 1 
) ® AN):P(1,J,1) = CX + PX:P(I,K,1) = CX - PX3:P(I,J,2 
) = CY — RM # COS ((J — 1) & AN)?P(I,K,2) = P(I,J,2) 
:K = K — 1: GOSUB 500: NEXT J 

GOSUB 950 

REM GRAPH ROUTINE 

IF NN < > 31 GOTO 1180 

FOR J = 1 TO P - 1: FOR K = J + 1 TO P: GOSUB 1260: NEXT 
K,J 

RETURN 

J = 1: IF NN = 18 THEN J = INT ( RND (1) & P + 1) 
FOR K = 1 TO P: GOSUB 1260: NEXT K: IF NN = 25 THEN 
RETURN 

IF NN = 4 OR NN = 18 GOTO 1230 

J = 2: FOR K = 3 TO P: GOSUB 1260: NEXT K 

J = P: FOR K = 1 TO P: GOSUB 1260: NEXT K: RETURN 

IF NN = 18 GOTO 1250 

J =P / 2+ 1: FOR K = 1 TO P: GOSUB 1260: NEXT K: RETURN 
J = INT ( RND (1) & P + 1): FOR K = 1 TO P: GOSUB 12 
60: NEXT K: RETURN 

HPLOT P(I,J,1),P(I,3,2) TO P(I,K,1),P(I,K,2): GOSUB 
500: RETURN 

REM ART FORMS 22,5, 11 

P = INT ( RND (1) # 8 + 5):C = P: GOTO 1330 

P = INT ( RND (1) & 9 + 3):C = INT ( RND (1) ® 21 + 
30): GOTO 1330 

P = 33 

IF NN = 11 THEN C = INT ( RND (1) & 8 + 5) 

IF NN = 29 THEN C = INT ( RND (1) # 11 + 20) 

FOR DE = 1 TO 200: GOSUB S00: NEXT DE 

AN = 2 * PI / P: FOR I = 1 TO P:P(1,I,1) = RP # SIN 
(AN & I):P(1,1,2) = RP & COS (AN & I): GOSUB 500: NEXT 
I 

GOSUB 950 

REM GRAPH ROUTINE 

FOR I = 1 TO C:PY = CY — RP & COS (I # 2 # PI / C)s 
PX = CX + RP & SIN (I & 2 & PI / C): HPLOT PX,PY —R 
P 

FOR A = 1 TO P: HPLOT TO PX + P(1,A,1),PY — P(1,A,2 
): NEXT A: GOSUB 500: NEXT I: RETURN 

REM ART FORM 12 

R= INT ( RND (1) & 25 + 6) 


FOR DE = 1 TO 200: GOSUB S500: NEXT 

IX = 130 / PrI¥ = 90 / P:X = 140:Y = 95:PX = 130:PY = 
° 

GOSUB 950 

REM GRAPH ROUTINE 

6c = 2 


FOR I= 1T0P +1 
HPLOT X,Y + PY TO X + PX,Y TO X,Y — PY TO X — PX,Y TO 
X,Y + PY: GOSUB 500 

PX = PX — IX:PY = PY + IY: NEXT I: RETURN 

REM ART FORM 24 

FOR DE = 1 TO 300: GOSUB 500: NEXT DE 

X = INT ( RND (1) & 180):Y = INT ¢ RND (1) & 192) 
GOSUB 2740: GOSUB 950 

REM GRAPH ROUTINE 

HPLOT X,Y 

FOR I = 1 TO 300 

L = INT ( RND (1) & RM — RP) 

IX = O:IY = 0: IF SGN ( RND (1) — .5) > O THEN IX = 
L: GOTO 1590 

IY=L 

X =X + IX:¥ = Y + IY 

IF X > 279 THEN X = X — 10: GOTO 1600 

IF X < O THEN X = X + 10: GOTO 1610 
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1620 
1630 
1640 
1650 


1660 
1670 
14680 
1690 


1700 


1710 
1720 


1730 
1740 
1750 
1760 


1770 
1780 
1790 


1800 
1810 


1820 
1830 


1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


2300 
2310 
2320 
2330 
2340 
2350 
2360 


2370 
2380 
2390 
2400 


2410 
2420 


2430 
2440 


2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 


2540 


2550 P(I,M,1) =X +R 
2560 P(I,M,2) =Y+R 


191 THEN Y = Y — 10: GOTO 1620 


IF Y > 
IF Y < 0 THEN Y = Y + 10: GOTO 1650 
HPLOT TO X,Y 


POKE 6, INT ((X + Y) / 2): POKE 7, INT ( RND (1) ® 4 
+ 1): CALL 768 

GOSUB SOO 

NEXT I: RETURN 

REM ART FORM 17,6,26 


P = INT ( RND (1) & 91 + 10):PR = 
1 # 10):N = 


INT ( RND (1) #5 
INT ( RND (1) & 4 + 3): GOTO 1730 


P = INT ( RND (1) & 121 + 30)2PR = 100:N = 1: GOTO i 


730 

N = INT ( RND (1) & 5 + 2):R = 130 

P = INT ( RND (1) & 91 + 10):PR = INT ( RND (1) #5 
1 + 10): GOTO 1740 

R = 130 

IF PR = 100 THEN S = INT (P / 2): GOTO 1770 

A = 1 —- PR / 100 

S = INT (( — ATN (A / SOR (-A#® A+ 1)) + 1.5708 
wseP sy PI + .5) 

IeissJ =1 

¥= i # isd = 2 + S: IF J > P THEN = I =P 

IF I < P AND J = 1 AND P < 150 THEN P = P + 1: GOTO 
1750 


GOSUB 500: IF I < P GOTO 1780 
AN = 2 & PI / PzIR = CY / CX # R2K = PrP(1,1,1) = CX: 


P(1,1,2 


» = CY — IR 


FOR I = 2 TO INT (P / 2 + 1) 


A = (I — 1) 8 ANsPX = RSE 


:P(1,K, 
a ees ee 


SIN (A)rP(1,1,1) = CX + PX 
1) = CX -— PX:P(1,1,2) = CY —- IR & COS (A) PCL 


P(1,1,2):K =K—- 1 


GOSUB 500: NEXT I 


IF R= 


130 THEN GOSUB 950 


REM GRAPH ROUTINE 
J = 1: HPLOT P(1,J,1),P(1,J,2) 
FOR I = 1 TOP 


J=d+ 
HPLOT 


S: IF J > P THENJ = J - P 
TO P(i,J,1),P(1,3,2) 


GOSUB 500: NEXT I 


R=RE* 
N=N- 


fos (2 8 PI¢ P= Ss 
1: IF N = 0 THEN RETURN 


IF NN = 26 GOTO 1720 

GOTO 1810 

REM ART FORMS 28 & 16 

PR = 1: GOTO 1990 

PR = - i: FOR DE = 1 TO 200: GOSUB 500: NEXT 
P = INT (¢ RND (1) # 12 + 4):PR = PR # ( RND (1) 8 .4 
S + .25) 

R = 90:PR = R & PR 

A = O:SA = 0O:CA = 0:3 = O 

FOR I= i102 % P 

ti, 1,40 = C2 +R & SIN (C1 — 1) ¢ PB PY) 
PCL, i,2) = CY —R * €OS (CI - 1) 4 P 8 PDD 
tte! Gee oi: S 

Pti,2,1) = EX + PR & “SIN (ti =— 1) / P * PY) 
Piaget. = EY —O PR & (COR ((I =.1) 7 P 2. PI 
NEXT I 

GOSUB 950 


REM GRAPH ROUTINE 
FOR IT =1T028P 
HPLOT CX,CY TO P(1,1,1),P¢(1,1,2) 


NEXT I 


HPLOT P(1,1,1),P(1,1,2) 
FOR I =17T02%P 


HPLOT TO P(1,1,1),P(1,1,2) 

GOSUB 500 

NEXT I 

HPLOT TO P(1,1,1),P(1,1,2) 

IF PR < O GOTO 2300 

FOR IT =1T028P 

hoe. Bs 2 

A= {1 - 1) / P & PI:SA = SIN (A):CA = COS (A) 
FOR J = 1 TO PR 

HPLOT P(i,I -— 1,1),P(1,I1 — 1,2) TO CX + J & SA,CY - 
Js Ca 

GOSUB 500 

NEXT J 

NEXT I 

RETURN 


REM ART FORM 20 
INT ( RND (1) # 6&6 + 4) 


RND (1) 


L= 
C = INT (¢ RND (1) # 11 + 5) 
N = 
I= 


1: GOSUB 2460 

FOR J = 1 TOL: FOR K = 1 TO 2:P(3,J,K) = P(1,J,K)2 NEXT 
K,J 

FOR DE = 1 TO 300:. GOSUB 500: NEXT DE: GOSUB 950 

REM GRAPH ROUTINE 

FORN=2T0C 

FOR J = 1 TOL: FOR K = 1 TO 2:P(2,J,K) = P(3,J3,K): NEXT 
Kad 

I = 3: GOSUB 2460 

FOR M = 1 TO L: HPLOT P(2,M,1),P(2,M,2) TO P(3,M,1), 
P(3,M,2): NEXT M 

GOSUB 500: NEXT N 

FOR M = 1 TO L: HPLOT P(3,M,1),P(3,M,2) TO P(1,M,1), 
P(1,M,2): NEXT M 


RETURN 


REM POINT LOCATION 


X = 20 + RND (N) # 239:Y = 20 + 
A = RND (N) & 2 8 PI:CA = 


RND (N) ® 151 
COS (A):SA = SIN (A) 


R = RND (N) # 90 


IX = Xx 
EY = 'y’ 


+R CA 
+R SA 


GOSUB 500 

IF IX < O OR IX > 279 OR IY < O OR IY > 191 THEN R = 
R - 1: GOTO 2500 

FOR M= 1 TOL 


sM/tL#8 CA 
*M/tL#8 SA 
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NEXT M 
RETURN 


REM 
FOR 


ART FORM 13 
DE = 1 TO 300: GOSUB 500: NEXT DE 


GOSUB 2740 
GOSUB 950 


REM 
Y = 1 


GRAPH ROUTINE 
91 & RND (1):X = 0 


HPLOT X,Y 


I= 
yY=i1 


RND (1) & 4 + 1s:X = X + Is IF X > 279 GOTO 2720 
91 # RND (X) 


HPLOT TO X,Y 

POKE 6, INT (Y): POKE 7, INT (I)3 CALL 768 
GOSUB SOO 

GOTO 24660 

RETURN 


REM 


*BOOP”’ SOUND ROUTINE, POKE 6 AND 7 TO VARY PITC 


H AND DURATION 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


768,173 
769,48 
770,192 
771,136 
772, 208 
773,4 
774,198 
775,7 
776, 240 
777,8 
778, 202 
779, 208 
780, 246 
781,166 
782,6 
783,76 
784,0 
785,3 
786,96 


RETURN 


REM 


ART FORM 19 


FOR DE = 1 TO 300: GOSUB 500: NEXT DE: GOSUB 950 
REM GRAPH ROUTINE 

IX = 279:1¥Y = 191:A = 100:R = 1:3 = 1 

GOSUB 3090 


N = 50 - 20 8 


ged 
FOR 

Ys 
POKE 

c= 


RND (1) 

+ i: IF J > 6&6 THEN RETURN 
I = 1 TO N:P(1,1,1) = IX 8 
RND (R): NEXT 

783, INT ( RND (R) & 90 + A) 

INT (¢( RND (R) & 8): HCOLOR= C: IF (CS = 7 AND (C 


RND (R):P(i,1,2) = I 


= 7 OR C = 3)) OR (CS = 4 AND (C = O OR C = 4)) GOTO 


3030 


X = RND (R) & IX:¥ = 


FOR 


RND (R) 8 IY 
I = 1 TO N: HPLOT X,Y TO P(1,1,1),P(1,1,2): CALL 
NEXT 


LAZER SOUND ROUTINE, POKE 783 FOR TONE, POKE 76 
MULTIPLE TONES 

768, 160 

769,1 


POKE 770, 162 
POKE 771,0 


POKE 


SERARRR SAE 


772, 138 
773,24 
774, 233 
775,1 

776, 208 
777, 252 
778, 141 
779,48 
780,192 
781,232 
782,224 
784, 208 


RETURN 


REM 


RS = O:EL = 1:81 = 


SL = RND (1) 8 .4 + .4:El = Si:RS = RND (1) & (.8 — 
SL): GOTO 3350 

SL = RND (1):EL = RND (1):RS = (1 —- SL? & RND (1) 8 
-8: IF ABS (EL — SL) < .3 GOTO 3340 

NS = INT ¢ RND (1) &® 8 + 5) 

OV = INT ( RND (1) & 2 + 1) 

NA = INT (( RND (1) 8 41 + 120) / NS) 

NR = OV & NA / (¢ INT (NA / OV) ® OV + 1) & NS) 
GOTO 3540 

RS = RND (1) © .5:St = RND (1) & .36 + .O4:EL = SL 
NS = INT ( RND (1) # 6 + 3) 

NR = (1 - El - RS) / (NS 8 (SL + 4 / RM)) 

NA = INT (NR ® ( RND (1) ® 41 + 100)) 

GOTO 3540 

IF RND (1) — .5 > O THEN RS = O: GOTO 3470 

RS = RND (1) & .2 + .1 

SL = RND (1) & .04 + .06 

IF RND (1) - .5S > 0 THEN EL = SL: GOTO 3500 

EL = RND (1) & Si & .5 

NR = RND (1) # 31 + 20 

NA = INT ( RND (1) & 31 + 40) 

NS = INT (500 / NA) 

IF ABS (NR / NS - INT (NR / NS)) < .1 GOTO 3500 
FOR DE = 1 TO 200: GOSUB 500: NEXT DE: GOSUB 950 
REM GRAPH ROUTINE 

DI = SGN ( RND (1) - .5) 

IA = 2 8 PI & NR / NA 8B DI 

FOR I = 0 TO NS - 1 

ISR = RM & (1 —- EL — RS) / NA 

ILR = RM 8 (1 —- RS - SL) / NA 

IF NN = 9 OR NN = 27 OR NN = 19 THEN ISR = ISR & 2:3! 
LR = ILR & 2 

LR = RM & (RS + SL):SR = RM & RS 


ART FORMS 20-22 
RND (1) & .5: GOTO 3350 


Apple Art Gallery (Cont.) 


3630 
3640 


3650 
3660 
3670 


3680 
3490 


AN = I 8 2% PI / NS # DI 


IF NN = 9 OR NN = 27 OR NN = 19 THEN AN = AN —- PI & 


DI / NS 
FOR J = 0 TO NA 
CA = COS (AN):SA = SIN (AN) 


HPLOT CX + SR & SA,CY - SR & CA TO CX + LR & SA,CY —- 


LR & CA 


AN = AN + IA:LR = LR + ILR:SR = SR + ISR 

IF LR > RM + ILR / 4 AND NA — INT (NA / 2) & 

ILR = - ILR:LR = LR + 2 £ ILR: ISR = —- ISR:SR = SR + 
2 8% ISR 

IF LR > RM + ILR / 4 THEN ILR = —- ILRsLR = LR + ILR 
:ISR = - ISR:SR = SR + ISR 

GOSUB S0O 

NEXT J 

NEXT I 

RETURN 


REM ART FORMS 32,21,7 


IF RND (1) - .5 > O THEN C = RND (1) 8 41 + 30: GOTO 
3780 

Cc = 100 

NS = INT ( RND (1) & C / 6 + 4) 

P= INT ( RND (1) & 11 + 5): GOTO 3830 

Cc = 200 

NS = INT (( RND (1) &C / 8+ 4) / 2) & 2 

P= INT (¢ RND (1) ®@ 11 + 2) /2) *®2+1 

PR = RND (1) 8 .6 + .2 


0 3890 

RND (1) 8 20 + 40 
INT (¢( RND (1) & 3 + 3) 
INT ( RND (1) #5 + 5) 


a 
og 


27378 

a 
2 
=z 
all 
De 
1 
v 
os 
~s“ 
v 


I 
F NS = 1 THEN IR = Or GOTO 3920 
C @.R/ (NS - 1) / 100 
FOR DE = 1 TO 200: GOSUB 500: NEXT DE 


REM GRAPH ROUTINE 

FOR I = 1 TO NS 

IF I = NS AND NN = 32 GOTO 4040 
HPLOT CxX,CY -— R 

AN = OrRR = R & PR 


FOR J = 1 TOP 

AN = AN + IA: HPLOT TO CX + RR & SIN (AN),CY — RR & 
Cos (AN) 

AN = AN + TA: HPLOT TO CX + R * SIN (AN),CY -R # COS 
(AN) 

GOSUB 500: NEXT J 

R=R- IR 

NEXT I 

RETURN 


REM ART FORM 8 

N = INT ( RND (1) & 2 + 2) 
HO = RND (1) & .8 + .2 
HI = RND (i) #* HO + 1 — HO 


IF RND (1) — .5 > O THEN RO = OrRI = O: GOTO 4140 


RO = RND (1) @ PI #3 / 18 


IF N = 2 THEN RI = O: IF RND (1) - .S > O THEN RI = 


RO 

IF N = 3 THEN RI = RO / 2 

P = INT (¢ RND (1) &# 18 + 12) 

S = INT (P ® ( RND (1) 8 .5 + .25)) 
C = INT ( RND (1) & 2 + 1) 

GOSUB 4670 

GOSUB 4770 

GOSUB 4880 

GOSUB 950 

REM GRAPH ROUTINE 

HPLOT P(1,1,1),P(1,1,2) 

I= 1i3L = i:3 = 1 

Form K = 2 To P+ 2 

i= Feiss JF 1 > N + IHN Ce = trite 7 = 
J=J3+S: IF J >P THENIJ=J -P 


HPLOT TO P(I,J,1),P(1I,3,2) 
GOSUB 500 

IF I ¢ > 1 GOTO 4250 

L = 1: NEXT K 

RETURN 

REM ART FORM 15 

N#1 

HO = RND (1) # .5 + -5 

HI = RND (1) # (1 — HO) + HO 

RO = RND (i) # PI # 1 / 9:RI = RO 
P = INT (¢( RND (1) # 18 + 13) 

S = INT (P # ¢( RND (1) &@ .25 + .25)) 
C = INT ¢( RND (1) # 2 + 1) 
GOSUB 4670 

GOSUB 4770 


Pi = P:S1=S 

P = Pi + 25 

S = INT (S1 / Pi *® P) 

GOSUB 4470 

GOSUB 4880 

GOSUB 950 

REM GRAPH ROUTINE 

j=1 

HPLOT P(1,1,1),P(1,1,2) 

FOR K = 1 TO Pi +1 

J=J+ Si: IF J > Pi THENJ = J - Pl 
HPLOT TO P(2,J,1),P(2,d,2) 

J= J+ Si: IF J > Pi THEN J = J - Pl 
HPLOT TO P(1,J,1),P(1,J,2) 

NEXT K 
J = 1: HCOLOR= INT ( RND (1) *® 2 + 5) 
HPLOT P(3,1,1),P(3,1,2) 

FORK =1TO0P+1 
J=J +S: IF J >P THENJ =J -P 
HPLOT TO P(4,J,1),P(4,J,2) 
J=J +S: IF J>P THENJ=J -P 
HPLOT TO P(3,J,1),P(3,d,2) 

NEXT K 

RETURN 

REM INSURE THAT NO LINE DUPLICATION OCCURS 


2 = 0 THEN 


P= isd et 

et + ft 

FOR K=1TO28N 

J= 39+ 8S: IF J >P THEN IJ = 3-P 

NEXT K 

IF I < P AND J = 1 THEN P = P + 1: GOTO 4670 
GOSUB S500 

IF I < P GOTO 4680 

RETURN 


REM DEFINE OUTSIDE HOOPS 
IF C = 1 THEN IX = 90:I1Y = 274:J = 1:K = 2:Y 


= CY 


IF C = 2 THEN IX = 130:1Y = 186:J = 2:K = 1:¥ = CX 
HO = HO * IX:RO = HO # SIN (RO)2IX = 5S + ROZI¥ = IY — 


RO 

Lom Ne TEA 2 8) PTS PP 

FOR I = 1 TO P:AN = I & IA:SA = SIN (AN):CA 
(AN) 


= cos 


P(1,1,3) = IX + RO * CA:P(1,1,K) = Y + HO & SA 


P(L,I,J) = IY + RO # CA:P(L,I,K) = P(1,1,K) 
GOSUB 500 

NEXT I 

RETURN 

REM DEFINE INSIDE HOOP (S) 

PX = IY - IX:IA = 2 8 PI / P 


IF C = 1 THEN IX = 90:1Y = CX:J = 1:K = 2:¥ = CY 


IF C = 2 THEN IX = 130:I1Y = CY:J = 2:K = 1:¥ 
HI = HI & IX:RI = HI & SIN (RIP 


= Cx 


IF N = 1 THEN PX = RND (1) & PX / & + PX / 6:IX =I 


Y -— PX: IV = IY + PX:L = 32M = 4 
IF N = 2 THEN IX = IY:L = 2:34 = 4 


IF N = 3 THEN PX = ( RND (1) ®& .8 — .4) # PX:IX = IY 


— PX:I¥ = IY + PX:L = 2:34 = 3 
FOR I = 1 TO P:AN = I # IA:SA = SIN (AN):CA 
(AN) 


= cos 


P(L,I,J) = IX + RI & CA:P(L,I,K) = Y + HI # SA 


P(M,I,J) = IY + RI # CA:P(M,I,K) = P(L,I,K) 
GOSUB 500: NEXT I: RETURN 

REM ART FORM 1 

N = INT ( RND (1) 8 4 + 3) 

N= PI / N 

= ( RND (1) & .2 + .3) # RM:RR = 100 

= INT ( RND (1) & 30 / N + 10) 
Iy=R/4 

IX = (RR - R) & TAN (AN) / M 

REM DEFINE BASIC CURVE 


Al 
R 
mM 


FOR I = O TO MsP(0,1,1) = O:P(0,1,2) = I & IY: NEXT 


I 


P(2,0,1) = 0:P(2,0,2) = O:P(2,1,1) = O:P(2,1,2) = IY 


FOR I = 2 TO M + 10 


Bi = (I — 1) # IY 


B2 =I # IY 

Mi = (RR — B1) / ((I - 1) ® IX) 
M2 = (RR - B2) / (I ® IX) 
P(2,I,1) = (B2 — Bi) / (M1 — M2) 
P(2,1,2) = P(2,1,1) * Mi + Bi 


NEXT I 

REM ROTATE AND TRANSLATE BASIC CURVE 
CA = COS (AN — PI):SA = SIN (AN - PI) 
FOR I = 0 TOM + 10 

X = P(2,1I,1) * CA — P(2,1,2) * SA 

Y = P(2,I,1) * SA + P(2,1,2) * CA + RM 
P(2,I,1) = X:P(2,1,2) = Y 

GOSUB 500 

NEXT I 

REM CALCULATE END POINTS 

P(1,0,1) = 0:P(1,0,2) = RM 

FOR I = 1 TOM 

Bi = I * IY:Mi = (RR — B1) / (I ¥ IX) 
FOR J = 1 TOM + 10 


IF P(2,J3,1) = P(2,J - 1,1) THEN M2 = 9999: GOTO 5330 


M2 = (P(2,3,2) — Pt2,3.— 1,2)), # (Pt2,053) — Pt2,d = 


1,1)) 
X = (P(2,J - 1,2) — P(2,d - 1,1) # M2 - Bi) / 
2) 


ths) — 


IF X < P(2,J3 - 1,1) OR X > = P(2,J,1) GOTO S380 


P(i,I,1) =X 
P(i,I,2) = M1 ® X + BI 
GOTO 5390 

NEXT J 

GOSUB 500 

NEXT I 

GOSUB 950 

REM GRAPH ROUTINE 
FOR I =O TON - 1 

CA = COS (2 # I & AN):SA = SIN (2 & I ® AN) 
X = O:¥ = 0 

GOSUB 5550 

NEXT I 

FOR I =O TON- 1 


CA = COS (2 8 I * AN + AN + PI):SA = SIN (28 188A 


N + AN + PI) 


X = -— RM & SIN (2 & I ® AN + AN): Y = RM & COS (2 8 


I * AN + AN) 
GOSUB S550 
MEXT I 
RETURN 


REM LINE ROTATE, TRANSLATE, AND PLOT ROUTINE 
HPLOT CX + X + P(1,0,1) ® CA — P(1,0,2) * SA,CY - Y 


P(1,0,1) * SA — P(1,0,2) * CA 

HPLOT TO CX + X + P(0,0,1) ® CA — P(0,0,2) 
Y - P(0,0,1) &* SA — P(0,0,2) * CA 

FOR J = 1 TOM 


2 SA,CY 


HPLOT CX + X + P(1,J,1) * CA —- P(1,J,2) & SA,CY —- Y 


P(1,J,1) ® SA - P(1,J,2) * CA 

HPLOT TO CX + X + P(0,J,1) & CA — P(0,J,2) 
Y - P(O,J,1) ® SA — P(0,J,2) # CA 

HPLOT TO CX + X — P(i,J,1) ® CA - P(1,J,2) 
Y + P(i,J,1) * SA — P(i,J,2) # CA 

GOSUB 500 

NEXT J 

RETURN 


% SA,CY 


& SA,CY 


@ 
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Apple Game |/O Experiments 


by Gary B. Little 
#214-131 Water Street 
Vancouver, B.C. 

V6B 4M3 


The Game I/O Connector on the Apple II is 
the socket into which the game paddles are 
plugged. It is located near the right-rear 
corner of the motherboard as you look at it 
from the keyboard end. Although itis referred 
to.asa ‘game’ connector it can also be usd for 
several other applications that do not involve 
simply monitoring the game paddle input 
value. 

The pinout for the Game I/O Connector 
can be found on page 100 of the Apple |! 
Reference Manual and is reproduced here: 





+5v NC 
PBO ANO 
PB1 AN1 
PB2 AN2 
STROBE AN3 
GCOo GC3 
GC2 GCi1 
Gnd NC 
Where: PB = push button input 
GC = game paddle input 
AN = annunciator output 
NC = noconnection 
Gnd = electrical ground 
+5v = +5 volt power supply 


Note that pin 1 is located at the right 
front of the Game I/O Connector as 
viewed from the keyboard end of the 
Apple Il. 


When the game paddles are connected to 
the socket, only the GCO, GC1, PBO, and PB1 
pins are used (apart from +5v and Gnd of 
course). This leaves several pins which are 
unused, including another push button in- 
put, two more game controller inputs, and 
four one-bit output ports called ‘annunciator’ 
outputs. 

The purpose of this article is to describe 
how you can use the four annunciator out- 
puts to drive external devices which are inter- 
faced to the Apple I! through the Game 1/O 
Connector. 

The original purpose of providing the an- 
nunciator outputs on the Apple II was appar- 
ently to allow a user to drive a series of control 
lamps. However, the annunciator output sig- 
nals are standard 74LS series TTL outputs, so 
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they can also be used to drive relays, speak- 
ers and several other devices. But let's stick to 
what was originally intended and develop a 
circuit to drive lamps. In particular, let's use 
the annunciator outputs to turn the segments 
of a 7-segment LED (which are arrangedina 
figure-eight on the chip) on and offin specific 
patterns so that we can display and recognize 
the digits from 0 to 9. 


MATERIALS 

To conduct this experiment you will need 
a few parts and materials. The parts that 
are required are a DL707 common-anode 7- 
segment LED, a 7447 BCD to 7-segment 
decoder-driver, and seven 330-ohm resistors. 
You will also require a proto-board, a few 
wires, and a 16-pin DIP jumper cable. The 
jumper cable is used to extend the Game I/O 
Connector from beneath the cover of the 
Apple II up to the proto-board so that you 
have room to wire the circuit. The materials 
can be purchased from Radio Shack with the 


R = 330 ohms 


following part numbers: 

1. LED 276-053 $2.29 

2. 7447 276-1805 $1.19 

3. Resistor 271-017 $ .19 pack of 2 
4. Jumper 276-1976 $3.99 

5. Board 276-1395 $1.39 


Once you have obtained all the parts, insert 
one end of the jumper cable into the Game 
1/O Connector and the other end into the 
proto-board so that the longitudinal center- 
line of the proto-board is straddled by the two 
8-pin halves of the DIP connector. The next 
step is to check the orientation of the DIP 
connector so that you can tell which pin on 
the DIP connector on the proto-board cor- 
responds to which pin on the Game 1/O Con- 
nector. After you have done this, connect the 
components on the proto-board in accord- 
ance with the circuit diagram in figure 1. 





ANO is Pin 15 on the Game I/O Connector 
AN1 is Pin 14 on the Game I/O Connector 
AN2 is Pin 13 on the Game I/O Connector 
AN3 is Pin 12 on the Game I/O Connector 
+5v is Pin 1 on the Game I/O Connector 
Gnd is Pin 8 on the Game I/O Connector 


Figure 1 


Apple Game 1/0 
Experiments (Cont.) 


HOW IT WORKS 

The decoder-driver is a device which can 
take 4 TTL inputs and manipulate them to 
generate 7 on/off outputs, one of which is 
required for each of the segments on the 
DL707. The pattern of 7 on/off outputs de- 
pends on the pattern of the 4 TTL inputs and 
since there can be 16 different combinations 
of input, up to 16 different combinations of 
Output can be generated which is more than 
enough to handle the display of 10 different 
digits. In our case, the 4 TTL inputs for the 
decoder-driver are provided by the annuncia- 
tor outputs from the Game |/O Connector. 
The 330-ohm resistors are used to limit the 
current through the LED segments so that 
they will not burn out when the circuit is 
connected. 


CONTROLLING THE OUTPUT 

Before we try to turn the segments of the 
DL707 on and off let’s look at how you can 
turn the annunciator outputs on and off in an 
Applesoft, Integer BASIC, or machine lan- 
guage program. 

The four annunciator outputs on the Apple 
ll are numbered from 0 and 3 and each is 
associated with a pair of memory locationsin 
the 64K address space. These memory loca- 
tions can be described as ‘soft switches’ 
because a reference to the first location in the 
pair will turn the annunciator off and a refer- 
ence to the second location in the pair will 
turn the annunciator on. When an annuncia- 
toris in the ‘off’ state, the voltage onits pin on 
the Game I/O Connector goes low (to near 0 
volts) and when it is in the ‘on’ state, the volt- 
age goes high (to near +5 volts). 

The memory locations needed to set the 
states of each of the annunciators are found 
in Table 9 on page 24 of the Apple II Refer- 


ence Manual. Portions of that Table are re- 
produced here: 





In general terms, to put AN#N (N=0,1,2,3) 
into the ‘off’ state from Applesoft or Integer 
BASIC, use the command POKE -16296+ 
2*N,0. To put AN#N into the ‘on’ state, use the 
command POKE -16295, 2*N,0. To simplify 
things even further, you can adda flag to your 
program, say F, where F=1 if you want the ‘on’ 
state and F=0 if you want the ‘off’ state, so that 
the command POKE -16296+2*N+F,0 will set 
the desired state on the desired annunciator. 


MACHINE LANGUAGE CONTROL 

If you want to accomplish the same thing 
from 6502 machine language, use the follow- 
ing source code in your editor/assembler: 





THE LOGIC TABLE 

Although we now know how to turn the 
annunciator outputs ‘on’ and ‘off’, we still 
need to know what pattern of ‘ons’ and ‘offs’ 
are required to display the digits from 0 to 9 
on the DL707. To obtain this information we 
need what is called a ‘logic table’. For the 








particular wiring configuration found in the 
circuit diagram, the following logic table 
applies: P 


sears 





In this table a ‘0’ indicates that AN is ‘off’ 
and a‘1’ indicates that AN is ‘on’. Youcan see 
that in this configuration the states of the four 
annunciators for a given digit follow the 
binary bit pattern of the digit. For example, 
the digit ‘7’ in binary is 0111 and the corres- 
ponding annunciator sequence is exactly the 


same. 
AN EXAMPLE 


To display the digit ‘4’, refer to the previous 
table to find that you must clear AN3, AN1, 
and ANO and set AN2. The relevant POKEs to 
do this are as follows: 










The demo programs that are LISTed below 
are further examples of the programming 
techniques required to display particular dig- 
its. The first program repeatedly causes a 
random digit to be displayed on the DL707. 
The second program can be used to display 
any digit that is specified. 

| hope you have as much fun experimenting 
with the Game I/O Connector as | have had. If 
you know of any other simple experiments for 
the Connector please let me know and I'll try 
to incorporate them into future articles. @ 








500 REM FIXED DIGIT DISPLAY 

100 REM RANDOM DIGIT DISPLAY 510 TEXT ; HOME : PRINT "COMMON-A 
110 TEXT : HOME : PRINT "COMMON-A NODE LED DIGIT DISPLAY" 

NODE LED DIGIT DISPLAY" 520 VTAB 5: CALL - 958: INPUT "E 
120 VTAB 5: CALL — 958 NTER A NUMBER (0-9): ";¥: PRINT 
130 Y = INT (9 *.RND (1)) : IF Y < 0 ORY > 9 THEN 520 
140 PRINT "DIGIT = ";Y: PRINT 
150 FORI=3 10 SIrp -1 530 FOR I=3 TO 0 STEP -1:F = 
160 F = mv ( / (2 I}) INT (Y / (2 * I)): POKE -1 
170 POKE - 16296 +2 * I + F,0 6296 +2* I+ F,0:Y=Y- 
180 PRINT "ANNUNCIATOR #";1;": "3 (2cne beak 

: IF F = 1 THEN PRINT "SET": 540 PRINT "ANNUNCIATOR #";I;3": "3 

GOTO 200 : IF F = 1 THEN PRINT "SET": 
190 PRINT "CLEAR" GOTO 560 
200 Y=y-(2°1)*F 550 PRINT "CLEAR" 
210 NEXT I 560 NEXT I 
220 FOR I = 1 T 300: NEXT I 570 PRINT : PRINT "PRESS ANY KEY 
230 GOTO 120 : "2: GET AS: PRINT AS: GOTO 
240 END 520 
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HI-RES DUMP 2X 


by Robert M. Delaney 
248D Glandore Dr. 
Manchester, MO 63011 


This program produces a double size dump 
of the Apple Hi-Res screen to an Epson 
MX-80 printer equipped with GRAFTRAX. 
Because of its width, the picture is turned 90 
degrees for the printout. 

The method used is to replace every doton 
the Hi-Res screen by a pattern of four dots 
printed in a square. The area of the picture is 
increased by a factor of four, but the relative 
intensities remain the same. 

Since a BASIC program would be too slow, 
a machine language program, HIRES DUMP 
2X, does most of the work. An Assembly Lan- 
guage listing of the program accompanies 
this article. The settings of the dip switches 
on your Epson may require the program to 
give a Line Feed (LF) following a Carriage 
Return (CR). This is the default on the listed 
program. If you do not require the Line Feed, 
change address location $6001 to $00 when 
entering the program. 

| use the machine language program by 
calling it from the following BASIC program, 
which does some necessary initializations. 


10 REM HIRES DUMP 2X.BASIC 

15 D$=CHR$(4):I$=CHR$(9):REM 
CONTROL-D AND CONTROL-! 

20 PRINT D$;“BLOAD HIRES DUMP 2x”: 
REM A$6000,L$10E 

25 HOME:VTAB 12:INPUT “TURN ON 
MX-80 AND PRESS RETURN”;A$ 

30 HOME:VTAB 12:HR=32:INPUT “HIRES 
PAGE 1 OR 22”;A$:IF A$="2” THEN 
HR=64 

35 HOME:VTAB 12:NI=255:INPUT 
“NORMAL (N) OR INVERSE (I)?”;A$:IF 
A$=“I" THEN NI=0 

40 HOME:VTAB 12:TB=8:INPUT “TAB 
9) = ? (DEFAULT=8 - CENTERED)”; 
A 

45 IF A$< >“ ” THEN TB=VAL(AS):IF 
TB<1 OR TB>15 THEN 40 

50 POKE 27,NI:POKE 23,HR 

55 PRINT D$;“PR#1” 

60 PRINT I$;“80N” 

65 PRINT CHR$(27)CHR$(61);:REM 
CLEAR MOST SIG BIT 

70 PRINT CHR$(27) CHR$(68) CHRS$(TB) 
CHR$(0);:REM SET TAB 

75 PRINT CHR$(27) CHR$(65) CHRS(7);: 
REM SET 7/72 INCH LINE SPACING 

80 CALL 24576:REM CALL THE MACHINE 
LANGUAGE PROGRAM AT $6000 

85 PRINT CHR$(27) CHR$(64):REM RESET 
PRINTER TO DEFAULT SETTINGS 

90 PRINT 1$;“O” 

95 PRINT D$;“PR#0” 

96 END 


See the letters column for information on 
loading and saving the machine language 
program HIRES DUMP 2x. 

The essential feature of the machine lan- 
guage program is its translation of a Hi-Res 
Screen Byte into 4 Hi-Res Printer Bytes. To 
understand this, you should know how a 
Screen Byte maps to the video screen and 
how a Printer Byte maps to the needles in the 
Epson print head. 
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SOURCE FILE: HIRES 


DUMP 2X 


0000: 1 PHMAAAAA AAA AA TATA TTS 

0000: 2 8 se 

0000: 3 a8 HIRES DUMP 2X ss 

0000: 4 a8 BY ROBERT M. DELANEY a8 

0000: 5 #8 bd 

0000: & COPYRIGHT (C) 1982 BY an 

0000: 7 4% MICRO-SPARC, INC. at 

0000: 8 s8 APPLE TOOLKIT ASSEMBLER at 

0000: 9 a8 a 

0000: 10 SERTKAKAAAAAAAAT AAA ATTA S TSS 

-_——- NEXT OBJECT FILE NAME IS HIRES DUMP 2X 

6000: 11 ORG $6000 

90000: 12 ADDLO EQU $00 HIRES ADDRESS LO 

0001 13 ADDHI Eau $01 HIRES ADDRESS HI 

0016: 14 COUNT EQU $16 COUNTER FOR BYTES IN SCREEN LINE 

0017: iS PAGE EQU $17 HIRES PAGE 1 OR 2 

0018: 16 HI1 EQU $18 PRINTER BYTE 1 

0019: 17 HI2 EQU $19 PRINTER BYTE 2 

OO1A: 18 LINE EQU $1A LINE 0-191 ON SCREEN 

001B: 19 NORINV EQU $1B NORMAL (=$FF) OR INVERSE (=$00) BYTE 

oo1c: 20 DOLF EQu) $1C CONTROLS LINE FEED $FF=YES $00=NO 

co90: 21 OUT EQuU $CO090 OUT TO PRINTER 

Cici: 22 TAKEN —eu scici PLUS WHEN DATA TAKEN 

6000: 235 % 

6000: 24 * MAIN PROGRAM 

6000: 25 8 

6000: A? FF 26 LDA #$FF #$FF-LINE FEED #$00-NO LINE FEED 

6002:85 1C 27 STA DOLF 

6004: A? 00 28 LDA #%00 

6006:85 16 29 STA COUNT INITIALIZE COUNTER 

6008: 20 FO 60 30 AGAIN JSR BITIMAG SET UP BIT IMAGE GRAPHICS 

600B:20 A7 60 31 ODD JSR APLINE CONVERT SCREEN LINE # TO APPLE FORMAT 

S00E:A4 16 32 LDY COUNT OFFSET TO NEXT BYTE IN SCREEN LINE 

6010: 33 8% 

6010: 34 & ROUTINE TO CONVERT SCREEN BYTE TO PRINTER BYTE 

6010: 35 8 

6010:Bi 00 36 LDA (ADDLO),Y GET SCREEN BYTE 

6012:85 18 EF STA HIt1L 

6014:6A 38 ROR A 

6015:26 19 39 ROL HI2 

6017:66 18 40 ROR HI1 

6019:26 19 41 ROL HI2 

601B: 6A 42 ROR A 

601C:26 19 43 ROL HI2 

601E:66 18 44 ROR HI1 

6020:26 19 45 ROL HI2 

6022: 6A 46 ROR A 

6023:26 19 47 ROL HI2 

6025:66 18 48 ROR HI1i 

6027:26 19 49 ROL HI2 

6029: 6A so ROR A 

602A: 26 19 Si ROL HI2 

602C:AS 19 52 LDA HI2 

602E:45 1B S53 EOR NORINV ADJUST FOR NORMAL OR INVERSE GRAPHICS 

6030:29 7F 54 AND #$7F MAKE SURE MSBIT IS ZERO 

6032:85 18 55 STA HI1 

6034:20 D8 60 56 JSR COUT PRINT 7 VERTICAL DOTS 

6037:AS 1A 57 LDA LINE 

6039:FO O05 58 BEQ NEXT NEXT PRINT LINE IF SCREEN LINE ZERO 

603B:AS 18 s9 LDA HIti 

603D:20 DS 60 60 JSR COUT PRINT DUPLICATE 7 VERTICAL DOTS 

6040:A5 1A 61 NEXT LDA LINE 

6042:38 62 SEC 

6043:E9 O1 63 SBC #$01 

6045:85 1A 64 STA LINE DEC LINE 

6047:BO C2 65 BcS ODD 

6049:20 E1 60 66 JSR CRLF CR WITH OPTIONAL LF 

604C:20 FO 60 67 JSR BITIMAG SET UP BIT IMAGE GRAPHICS 

604F:20 A7 60 68 EVEN JSR APLINE 

6052:A4 16 69 LDY COUNT 

6054: 7o £ 

6054: 71 * 2ND ROUTINE TO CONVERT SCREEN BYTE TO PRINTER BYTE 

6054: 72% 

6054:B1 OO 73 LDA (ADDLO),Y GET SCREEN BYTE 

6056:85 18 74 STA HIt1 

6058: 6A 75 ROR A 

6059:66 18 76 ROR HIt 

605B: 6A vr ROR A 

605C:66 18 78 ROR HIt1 

605E: 6A 79 ROR A 

605F:66 18 80 ROR HI1 

6061: 6A 81 ROR A 

6062:66 18 82 ROR HI1 

6064:26 19 83 ROL HI2 

6066: 6A 84 ROR A 

6067:26 19 85s ROL HI2 

6069:66 18 86 ROR HIt 

606B:26 19 87 ROL HI2 

606D: 6A 88 ROR A 

606E:26 19 89 ROL HI2 

6070:66 18 90 ROR HIt 

6072:26 19 91 ROL HI2 

6074:6A 92 ROR A 

6075:26 19 93 ROL HI2 

6077:66 18 94 ROR HIt 

6079:26 19 95 ROL HI2 

607B:AS 19 9b LDA HI2 

pecthdeen oa rf EOR NORINV ADJUST FOR NORMAL OR INVERSE GRAPHICS 
6 32 98 AND #$7F MAKE SURE MSBIT IS ZERO 

6081:85 18 99 STA HII 

6083:20 DS 60 100 JSR COUT 

6086:A5 1A 101 LDA LINE 

6088:FO O05 102 BEQ NEXT1 

60BA:AS 18 103 LDA HIi 

6908C:20 DB 60 104 JSR couT 

6O0BF:AS 1A 105 NEXT1 LDA LINE 

6091:38 106 SEC 

6092:E9 O1 107 SBC #$01 

6094:85 1A 108 STA LINE 

6096:BO B7 109 BCS EVEN 

6098:20 E1 60 110 JSR CRLF CR WITH OPTIONAL LF 

609B:E6 16 111 INC COUNT 

609D:AS 16 112 LDA COUNT 

609F:C9 2 113 CMP #$28 HAVE DEC 40 SCREEN BYTES BEEN USED? 


60A1:FO O35 


BE@ RETURN ' 60D7: 60 150 RTS 
60A3:4C 08 60 115 JMP AGAIN IF NOT, DO AGAIN 60D8: iS51 * 
60A6: 60 116 RETURN RTS RETURN TO CALLING PROGRAM 60D8: 152 * SUB TO OUTPUT TO PRINTER 
60A7: 117 & 60D8: 153 8 
60A7: 118 * SUB TO CONVERT SCREEN LINE NO. TO APPLE FORMAT 60D8:8D 90 CO 154 COUT STA OUT 
—60A7: 119 8 6ODB:AD C1 C1 155 UNTIL LDA TAKEN 
-60A7:AS 1A 120 APLINE LDA LINE 60DE:30 FB 156 BMI UNTIL 
~-60A9:85 O01 w2t STA ADDHI 60E0: 60 157 RTS 
-60AB: 2A 122 ROL A 60E1: 158 * 
GOAT: 26 00 123 ROL . ADDLO 60E1: 159 * SUB FOR CR WITH OPTIONAL LF 
60AE: 2A 124 ROL A 60E1: 160 & 
~60AF:26 00 125 ROL ADDLO 60E1:A9 OD 161 CRLF LDA #$0D 
~60B1:2A 126 ROL A 60E3:20 D8 60 162 JSR COUT CARRIAGE RETURN 
60B2:26 O1 127 ROL ADDHI 60E6:A5 1C 1463 LDA DOLF 
60B4:26 00 128 ROL ADDLO 60E8:FO O05 164 BE@ NOLF NO LINE FEED 
60B6: 2A 129 ROL A 60EA: AI OA 165 LDA #$0A 
60B7:26 O1 130 ROL ADDHI 60EC:20 DB 60 1646 JSR COUT LINE FEED 
60B9:26 00 131 ROL ADDLO SOEF: 460 167 NOLF RTS 
S6OBB: 2A 132 ROL A 60F 0: 168 * 
60BC: 26 O1 133 ROL ADDHI S0FO; 169 * SUB TO SET UP BIT IMAGE GRAPHICS 
60BE:AS O01 134 LDA ADDHI 60FO: 170 & 
60C0:29 3F 135 AND #$3F 60FO0:A9 OF 171 BITIMAG LDA #$09 
60C2:85 oO1 136 STA ADDHI 60F2:20 DB 60 172 JSR COUT TAB 
60C4:A5 00 1s? LDA ADDLO 60F5:A9 1B 173 LDA #$1B 
60C6: 0A 138 ASL A 60F7:20 DB 60 174 JSR COUT ESCAPE 
60C7:0A 139 ASL A SOFA: AP 4B 175 LDA #$4B 
60C8: OA 140 ASL A 60FC:20 D8 60 176 JSR COUT 
60C9: 0A 141 ASL A SOFF:A9 7F 177 LDA #$7F 
60CA: 18 142 CLC 6101:20 D8 60 178 JSR COUT 
60CB:66 O1 143 ROR ADDHI 6104:A9 O1 179 LDA #$01 
60CD: 6A 144 ROR A 6106:20 D8 60 180 JSR COUT SET UP FOR 383 COLUMNS OF DOTS 
60CE:85 00 145 STA ADDLO 6109:A9 BF 181 LDA #$BF 
60D0:AS O1 146 LDA ADDHI 610B:85 1A 182 STA LINE INITIALIZE SCREEN LINE TO DECIMAL 191 
60D2:18 147 ELE 610D:60 183 RTS 
60D3:65 17 148 ADC PAGE ADJUST FOR HIRES PAGE 1 OR 2 be 
60D5:85 O1 149 STA ADDHI %&& SUCCESSFUL ASSEMBLY: NO ERRORS @ 





A Hi-Res Screen Byte expressed in normal 
order appears as: 


Siete Oo 5 4) eS 2 4 0 
x ag fierce, bdec b 


Bit 7, which controls the Hi-Res color, is for 
Our purposes a “don’t care”. Any of the other 
bits when set to 1 give a bright dot, and when 
set to 0 give a dark dot. The bits map to the 
screen in reverse order as: 


BIT Oates ed A SeG 
aanD>sc .d ~e fi. g 
SCREEN BIT MAP 

The Epson print head consists of nine nee- 
dies arranged in a vertical column. Only the 
middle seven needles can be controlled by 
the Apple. In the Bit Image Graphics mode, 
bit 0 of a byte sent to the Epson will affect the 
bottom needle of the seven, bit 1 the next 
needle, and so on, with bit 6 affecting the top 


needle of the seven. Bit 7 is a “don’t care”. 
Thus we have the mapping: 


Hi-Res Printer Byte Print Head Needles 
BIT 

© (top - not used) 
° 

° 

° 

° 

° 


o- Db WO fF HT DW 


¢ (bottom - not used) 


If a bit is 1 it “fires” the corresponding needle, 
and a dot is printed. If a bit is 0 no dot results. 

Now. think of rotating the SCREEN BIT 
MAP. one-quarter turn clockwise. so it is 
vertical: 


~~ 0 20 fF Dw 


Next, map each bit into four identical bits 
forming a square: 


Hi-Res Printer 





Byte 
BIT 
6 ala 
5 ala 
4 bi} b 
3 b |b ODD PRINT LINE 
2 ¢ ire 
1 ¢ ile 
0 did 
6 did 
5 eje 
4 ele 
3 f f EVEN PRINT LINE 
2 f f 
1 9/9 
0 g9|9 


We see that every Hi-Res Screen Byte maps 
into 4 Hi-Res Printer Bytes. However, be- 
cause of the horizontal duplication, there are 
just 2 distinct types. If we number our print 
lines 1,2,..., we can designate these types as 
odd or even. Inthe assembly language listing, 
the “ROUTINE TO CONVERT SCREEN BYTE 
TO PRINTER BYTE” converts the odd line 
bytes. The “2ND ROUTINE TO CONVERT 
SCREEN BYTE TO PRINTER BYTE” converts 
the even line bytes. 


That's really most of the story. When the 
machine language program is called by the 
BASIC program it performs necessary initial- 
izations, then sets up Bit lmage Graphics for 
the first print line. The first byte of screen line 
191 is converted by the “odd” routine to a 
Hi-Res Printer Byte, which is then printed 
twice. The same is done for the first byte of 
line 190 and so on to line 0. 

After a CR, the first byte of screen line 191 is 
converted by the “even” routine to a Hi-Res 
Printer Byte, which is then printed twice. This 
is repeated for the rest of the lines through 
line 0. 

Then the second bytes of all the lines are 
treated exactly the same way as the first bytes 
were, and so on for all 40 bytes which are 
involved with each line of the Hi-Res Screen. 

Since APPLE I! will not pass the bytes $09 
or $0C to the printer correctly, these bytes 
must be transmitted directly. For the interface 
card in Slot 1, the memory location which 
transmits to the printer is $C090, and the loca- 
tion that tells when the data is taken is $C1C1. 
Thus | created my own COUT routine, using 
these addresses, for passing all bytes to the 
printer. 

lf an interface card is in another slot, or if it 
uses different memory locations than $CO90 
or $C1C1 in Slot 1, then it will not work with 
my program unless the variables OUT and 
TAKEN in the Assembly Language Program 
are redefined. 

There is one flaw in the program. Since the 
Apple Hi-Res screen has 192 lines, there 
should be 2 x 192 = 384 dots in a line on the 
printout. Because the Apple only sends seven 
bits to the printer, a maximum of 383 dots can 
be printed at one time in Epson's Bit Image 
Graphics. Thus every line on the Hi-Res 
screen is doubled in the printout except for 
the topmost line, which is printed only once. 
Since there is usually little information in the 
top line, | have found this to be no problem. 
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Super Numeric Keypad 


by Alan B. Cohen 
14 Candlelight Dr. 
Danbury CT 06810 


This program enables the user to redefine a 
section of the Apple I! or II Plus keyboard to 
function as a numeric keypad. The keypad 
can be turned on and off under software con- 
trol. Either RAM or ROM Applesoft and Integer 
Basic can be used, as well as machine lan- 
guage. Both regular monitor and autostart 
monitor can be used. It should also work with 
any Disk Operating System that latches into 
the input and output routines so long as no 
disk I/O is attempted while the keypad is 
active. | have no information about compati- 
bility with Pascal, Fortran, or other languages. 


USING THE KEYPAD 

The keypad is turned on by “CALL 768” 
from either Basic or “JSR $300” from an 
assembler. It is turned off by “CALL 785” or 
“JSR $311”. While active, the program will 
accept input from designated keys only; other 
keystrokes will be answered by a beep from 
the speaker. Left and right arrows, (RETURN), 
(REPEAT), and (RESET) are the only other 
keys that will function normally. (See figure 1 
for keypad layout.) The input characters can 
be assigned to any type of variable; integer, 
real, or string. 

The changes in the host program are gen- 
erally minimal. For example, if a line was orig- 
inally coded as: 


300 INPUT “ENTER THE ZIP CODE”;Z 
as modified, it would read: 


300 CALL 768: INPUT “ENTER THE ZIP 
CODE”;Z:CALL 785 


HOW IT WORKS 
The listing for the program is divided into 
five sections: 


1-9 Header, Label assignments, and brief 
instructions 


22-43 Routines to turn the keypad on and 
off 


45-62 Keypad Routine 
64-70 Input Keystroke table 
71-76 Output Character table 


The first section has no executable code 
and exists only to label the listing, assign 
labels to the five zero page locations used, 
assign labels to the entry points for the two 
monitor routines used, and note to the turn on 
and off commands for the keypad. The second 
section, lines 22 through 43, contains the “on” 
and “off” routines; Lines 22 through 27 store 
the previous input routine hooks, and reinsert 
them at KSWL and KSWL+1. 

The third section, lines 45 through 62, is 
the heart of the program. It accepts key- 
strokes, determines if they are valid for the 
keypad, and outputs the appropriate charac- 
ter for valid keystrokes. Line 47 uses a moni- 
tor routine to access the keyboard and get the 
next keystroke. This routine leaves the ASCII 
value of the keystroke in the accumulator; line 
48 stores the keystroke in “TEMP” for later 
use. Lines 49 through 50 store the Y register 
in“YSAV” and set the Y register equal to zero. 
The Y register is used as a counter. Line 51 
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Figure 1. Keypad Layout 





NOTE: CHARACTER IN UPPER RIGHT CORNER IS RETURNED 


| OPNOUNBWNH=OCO- 


t 





WHEN KEY IS PRESSED UNSHIFTED. 


Figure 2. Program Logic 





gets the next value of the input table and 
stores it in the accumulator. Line 52 tests if 
the value from the INPUT table (now in the 
accumulator) is equal to the key pressed (now 
in TEMP). If they are not equal, the routine 
skips to Line 57. Lines 54-56 get the replace- 
ment value from the output table, restore the 
old Y register, and return to the normal input 
routines in the Monitor. Lines 57-59 are 
accessed only if a match has not yet been 
found. Line 57 increments the Y register and 
line 58 checks to see if the end of the input 
table has been reached. As written, the input 
table is 16 bytes ($10) long, begins at location 
$343, and ends at $352. When the Y register 
value reaches $10, the program would be 
looking for the input character at location 
$353 ($343 + $10), which is beyond the end of 
the table. As long as the Y register does not 
equal $10, the program tries the next item in 
the table. If the end of the table has been 
reached, lines 60-62 are executed. These 
lines beep the speaker and return to line 47 to 
get another keystroke. The input and output 
tables at lines 66-76 contain the valid key- 
strokes and the corresponding replacement 
characters. See figure 2 for a flowchart of 
program logic. 


SAVING AND LOADING THE PROGRAM 
The program, including data tables, can be 
saved on cassettte by the following procedure: 


— enter the monitor by either “CALL-151” or 
pressing the (RESET) key (on non-Autostart- 
equipped Apples). 


— type “300.362W” 


— Start recording and press the (RETURN) 
key. 


Once saved, the program can be loaded 
from tape by: 


— enter the monitor (as above). 
— type “300.362R” 
— Start playing and press the (RETURN) key. 


To save the program on disk, type BSAVE 
NUMPAD, A$300, L$63. 


LIMITATIONS 
The program has one “bug” which, while 
not interfering with the functioning of the 
program, should be noted: after the second 
sequential invalid keystroke, the key pressed 
will appear in the first print position of the 
current line. 


POTENTIAL APPLICATIONS. 

The keypad can be used to enter long lists 
of numbers as encountered in calculation of 
Statistical measures such as mean and stan- 
dard deviation. Or, expanded to include addi- 
tional keys, the keypad can be used to sup- 
porta calculator program. Expansion is easily 
accomplished by three steps: 


1. Add hex ASCII value of input keystroke to 
the input table. 


2. Add hex ASCII value of output character 
to the output table. 


3. Change the “CPY” value on line 610 to the 
hex length of the input table. 


| would appreciate hearing from anyone 
who makes use of the keypad concept in a 
common (or uncommon) application. The 
assembly listing was produced using the 
Apple DOS Toolkit Assembler. 





1 REM XXXKXKXKRKKRK KKK KK KKK KKK KKK RK KK O30A: 28 
2 pee : SUPER NUMERIC KEYPAD x O30A: 29 
x 03083 30 
4 REM x BY ALAN B. COHEN x OB0ATA9 20 31 
S REM x COPYRIGHT (C) 1982 x 030C:85 38 32 
6 REM x BY MICRO-SPARC INC «x O3Z0EIA9 03 33 
7 REM x LINCOLN, MA. 01773 x 0310:85 39 34 
8 REM x ALL RIGHTS RESERVED x 0312340 51 48 35 
9 REM 20K 0K 00K KKK OK OK 
10 REM NUMPAD DEMO 0315¢ 36 
15 REM IN APPLESOFT 03152 37 
20 TEXT *: HOME 0315! 38 
25 PRINT CHR$ (4)3;"BLOAD NUMPAD" 0315105 06 39 
30 PRINT "PLEASE ENTER THO NUMBERS, SEPARATED": PRINT 0317:85 38 40 
"BY A <CR>. THE KEYPAD IS ON." 0319%A5 07 41 
40 CALL 768: INPUT N1i$! INPUT N2$! CALL 789 031B:85 39 42 
50 Ni = VAL (N1$)3N2 = VAL (NZ$) 031D!4C 51 AB 43 
65 PRINT "KEYPAD OFF" 0320! Py 
70 VTAB 10% PRINT "THANK YOU. THE NUMBERS YOU ENTERE 03203 he 
D"$ PRINT "ARE: 0320! 46 
80 PRINT "AS STRINGS "$N1$}" AND "$NZ$ 0320!20 1B FD 47 
90 PRINT “AS NUMBERS "$N1$" AND "3NZ 0323395 08 4a 
100 aS Mn SUM OF THESE TWO NUMBERS IS "t PRINT N 0325:84 34 AG 
tA0 00 50 
110 ass "THE TWO STRINGS APPENDED ARE "! PRINT N16 + reales 4303. 51 
: 52 
120 PRINT “YOU DON’T HAVE TO INPUT AS STRINGS,"! PRINT Ngee tne ae 
"THIS WAS JUST TO SHOW YOU IT COULD": PRINT “BE D 032E!D0 06 53 
ONE. BYE." 0330:B9 53 03 54 
130 END 0333!A4 34 55 
0335160 56 
0336:3C8 57 
Sa SS SS SS SET aE a ES ee 0337:C0 10 58 
0339:D0 EE 59 
033B!20 3A FF 40 
SOURCE FILE: NUMPAD SOURCE 2.1 a be as ee 
0000: 1 JORORCIOIORIOOOOIOIOIOIOIOIOIOIOIOKOIOKOI ICICI K 343% & 63 
0000: 2 } SUPER NUMERIC KEYPAD onan rf 
0000: 3 3 BY ALAN B. COHEN aahat ae 
0000: 4 } COPYRIGHT (C) 1982 eRnteR AG ART ae 
00003 5 } BY MICRO-SPARC, INC. ha toot cn 
0000 6 } LINCOLN, MA 01773 HST OR cone 
00003 7 $ ALL RIGHTS RESERVED pete ds 
- 4 : 
aeeet c Sa ee awancan e8 cn 
----- NEXT OBJECT FILE NAME IS NUMPAD SOURCE 2.1.0BU0 0350:88 95 
03003 10 ORG $300 0352:3AD 69 
0006: 11 KLSAV EQU $06 } INSTRUCTIONS; vou 70 
0007: 12 KHSAV EQU $07 $TO TURN ON? 0353% 71 
0008: 13 TEMP EQU $08 3JSR $300 / CALL 768 0353: ; 72 
00343 14 YSAV = EQU. «$34 $TO TURN OFF? NESS TEDEAES BO) 79 
0038: 15 KSWL EQU $38 $USR $315 / CALL 789 0356180 64 : 
FD1B; 16 KEYIN EQU $FD1B $WORKS WITH BOTH Att et ie ee 
FF3A3 17 BELL EQU $FF3A SAPPLESOFT & INTEGER Siecies cae sui 
Ags13 18 DOS EQU $A851 Hae 
AAs! 4g DOSKL EGU $AASS ahae ee 
’ , ’ 
03003 21 $ Atal on 
0300: 22 $ STORE INITIAL HOOKS eh oe 
0300: Zot 
0300:AD 55 AA 24 LDA DOSKL 4K SUCCESSFUL 
0303385 06 25 STA KLSAV 
O305tAD 56 AA 26 LDA DOSKL+1 
0308:85 07 27 STA KHSAV 


; 
} SET HOOKS TO KEYPAD START 
; 
LDA #>START 
STA KSHL 
LDA #<START 
STA KSHL+1 
UMP DOS 3SAVE DOS LATCHES 
; 
} RESET HOOKS TO SHUT OFF KEYPAD 
; 
LDA KLSAV 
STA KSHL 
LDA KHSAV 
STA KSWL+1 
JMP DOS 
; 
} MAIN KEYPAD ROUTINE 
$ 
START JSR KEYIN ;GET KEY 
STA TEMP 3STORE KEY 
STY YSAV 3STORE YREGISTER 
LDY #00 ;ZERO COUNTER 
LOOP LDA INPUT,Y  $LOAD YTH ITEM 
CMP TEMP }SAME? 
BNE NEXT 3NO, NEXT ITEM 
LDA OUTPUT,Y $YES,GET REPLACEMENT 
LDY YSAV ;RESTORE YREGISTER 
RTS $CONTINUE INPUT RTNE 
NEXT —INY ;INCREMENT COUNTER 
CRY #$10 3END OF TEST LIST? 
BNE LOOP ;NO,TEST NEXT ITEM 
JSR BELL ;YES,BEEP!! 
LDY YSAV ;RESTORE YREGISTER 
JMP START ;TRY AGAIN 
; 
+ VALID INFUT KEYSTROKES 
$ 
INPUT DFE $8D,$AE,$AC,$CD,$CA 
DFE $CB,$CC,$D5,$C9,$CF 
DFE $87,$B8,$E9,$88,$95 
DFR $AD 
; 
} OUTPUT KEYCODE TABLE 
; 
OUTPUT DFB $8D,$AE,$E0,$B0,$B1 
DFR $82,$83,$84,$B5,$B6 
DFB $87, $88,$E9,$88,$95 
DFR $AD 
: 
, 
$ THE END 
; 


ASSEMBLY? NO ERRORS 
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DISK COMMANDER 








Disk COMMANDER 


by Preston R. Black, M.D. 
16 Durham St. 
Boston, MA 02115 


Recently, while organizing my diskettes, | 
noticed that many of the files | use most often 
seem to have names like MY FASTEST SORT- 
ING ROUTINE or SUPER-DUPER DISK- 
ETTE UTILITY. | also realized that | was just 
taking advantage of the ability of the Apple Il 
Disk Operating System (DOS) to handle file 
names up to thirty characters long. With this 
inherent flexibility, | frequently try to givemy 
programs descriptive names which hopefully 
will give anyone using the program an idea of 
what the program was written to do. Unfor- 
tunately, long names can be cumbersome to 
use and for those of us who are not expert 
typists, typing file names that are thirty char- 
acters long can become very frustrating. 

Most Apple II users soon discover that one 
way to circumvent their lack of typing skills is 
to perform a CATALOG and use the Apple’s 
screen editing capabilities, i.e. the right arrow 
(—), the left arrow (—), and the REPeaT key, to 
enter the file name. But more often than not 
the list of files, at least on my most frequently 
used diskettes, exceeds the capacity of the 
text screen, causing half of the Diskette 
Directory to scroll off the screen during the 
Catalog. As luck would have it, the file we are 
interested in is usually among those scrolling 
off the text screen. Moreover, very few key 
strokes are saved using this technique. 

Obviously what we need is a program 
which will allow us to use descriptive (i.e. 
long) file names while also giving us the abil- 
ity to use functional (i.e. short) representa- 
tions of the files to access them. 

The diskette utility DISK COMMANDER 
is just what the doctor ordered. First, DISK 
COMMANDER sequentially numbers the files 
in the Diskette Directory. Then by using the 
number assigned to a given file, the various 
DOS functions can be performed on that file. 
To reduce typing even further, only the first 
three characters of any DOS command are 
required for proper function. DISK COM- 
MANDER also supports four commands used 
only by the utility. 


“C” — Print the numbered DISK 
COMMANDER catalog 

“Dx” — Change the disk drive number to x 

“Sx” — Change the slot number to x 

“Q” — Quit DISK COMMANDER 


With these features DISK COMMANDER 
makes accessing files with names of any 
length quick and efficient. 


HOW DISK COMMANDER WORKS 
DISK COMMANDER is divided into four 
parts: 
. The Initializer (lines 76-93) 
. The Command Processor (lines 98-447) 
. The Directory Reader (lines 454-526) 
The Catalog Printer (lines 531-638) 


Pon = 


These four modules can be thought of as four 
independent programs which are linked to- 
gether to perform a unified task. 


INITIALIZER 

The Initializer performs four tasks. First, it 
resets HIMEM to hide DISK COMMANDER 
and thereby prevent the utility from being 
overwritten. Secondly, this module resets the 
input hooks at KSWL ($38) and KSWH ($39) 
to point to the short routine at EASE?. This 
routine is responsible for the third function of 
the Initializer, namely to scan the keyboard 
for acontrol-F, the character used to initialize 
DISK COMMANDER. If any other key is 
entered, the normal monitor input and output 
routines are used. However, when acontrol-F 
is detected the program jumps to EASE where 
the fourth and final function is performed. 
EASE reads the Diskette Directory into RAM, 
outputs a percent sign, a new prompt signal- 
ling that DISK COMMANDER is in operation, 
and then falls into the Command Processor. 


COMMAND PROCESSOR 

The heart of DISK COMMANDER is the 
Command Processor. This module handles 
the input and interpretation of the legal com- 
mands as well as checking for errors. The 
monitor routine GETLN1 ($FD6F) is used for 
entering commands. This routine stores all 
characters entered from the keyboard into.a 
buffer beginning at $200. Since a RETURN 
delimits the string being entered, on exit from 
GETLN1 the X-register holds the length of the 
character string plus one. DISK COM- 
MANDER is designed to recognize short 
commands and therefore the space for com- 
mand storage has been limited. If acommand 
is overly long, an error message is printed 

The routine initially looks at the first char- 
acter of the input string searching for the spe- 
cial DISK COMMANDER commands. If any 
of these commands is detected, the specific 
operation is performed. In addition, asearch 
is made for the BSAVE and RENAME com- 
mands because they need special attention. 
BSAVE and RENAME are the only two DOS 
commands which require information in addi- 
tion to the command and the file name to 
function properly. Consequently provision 
must be made to provide this information. For 
example, BSAVE needs the starting address 
and the length of the binary file to be saved. 
RENAME requires the name to which the file 
is being changed. When DISK COMMANDER 
detects that either of these commands is 
being issued, it jumps to the proper routine 
where a string containing the required infor- 
mation is constructed. 

DISK COMMANDER now begins to pro- 
cess the command that the user has entered. 
All DISK COMMANDER commands are di- 
vided into two fields: the command field and 
the number field. These two fields must be 
separated by a space. This character is used 
by DISK COMMANDER to define and dem- 
arcate the two fields. The processor now 
places the two fields into separate buffers in 
preparation for interpretation. Before the 
number field is placed into its buffer, a check 
is made to make certain that all the entries are 
indeed numeric. 


COMMAND FIELD 
The command field is processed first. A 
table of the legal three letter commands used 
by DISK COMMANDER is stored at CMDLST. 
The string in the command buffer is com- 
pared to the entries in the command list to see 


if a match can be made. If there is no match, 
an error message is printed. If a match is 
found, a pointer to the full length command 
(found in another table) is stored for later use. 


NUMBER FIELD 

The interpretation of the number field be- 
gins by converting each character in that field 
from its ASCII representation into its hexade- 
cimal equivalent. This number is used in con- 
junction with the table of addresses pointing 
to the files in the diskette directory to indicate 
the file we wish to use. This address is also 
stored for later use. 


CONSTRUCTING COMMANDS 

The Command Processor then constructs 
the command string which will then be used 
to issue the command. The command string 
begins with aRETURN ($8D) to make certain 
that the command is issued on a new line. 
Following this is a control-D ($84) indicating 
that a DOS command is about to follow. The 
RETURN is needed because the control-D 
must be the first character on the line to func- 
tion properly. The processor now uses the 
previously stored pointer to locate the full 
DOS command which is then placed into the 
command string. The name of the file is sim- 
ilarly added to the command string. 

If BSAVE or RENAME is the command, 
then the string holding the necessary addi- 
tional information is also added to the com- 
mand string. 

Finally, another RETURN and the end of 
string delimiter ($00) is added to complete 
the command string. The entire string is then 
output using the monitor output routine at 
COUT ($FDED), thereby passing the com- 
mand to DOS to be performed. 


DIRECTORY READER 

The Directory Reader uses the RWTS sub- 
routine to read the Diskette Directory and 
stores itina RAM buffer. In addition a tableis 
constructed which contains the addresses of 
the start of each file entry in the buffer. 
Access to and manipulation of each file is 
thereby made much easier. 


CATALOG PRINTER 

The Catalog Printer is used to print the 
special DISK COMMANDER catalog. Before 
each file is printed, it is assigned a special 
number which is then used to access each 
file. This number replaces the number used 
by the DOS CATALOG to indicate how many 
sectors are needed to save the file. The file 
type, whether the file is locked or unlocked, 
and the file name follows. 


HOW TO USE DISK COMMANDER 

DISK COMMANDER is about 3.5K long 
including space reserved for storage. Ina 48K 
system it should be assembled starting at 
$8200 (Hex). For smaller systems appropriate 
adjustments should be made. See the instruc- 
tions for entering machine language pro- 
grams into memory in the letters section of 
this issue. When the program has been com- 
pletely entered, you can save it to disk with 
the command: 


BSAVE DISK COMMANDER, A$8200,L$4AC 
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Disk COMMANDER (Cont.) 


Once the program has been BSAVEd, BRUN- 
ning DISK COMMANDER will reset HIMEM 
to protect the program and reset the monitor 
hooks to make the program operative. There- 
after entering control-F will put the user 
into DISK COMMANDER indicated by the 
new prompt, the percent sign (%). Now all the 
special DISK COMMANDER commands are 
operational. 


SOME RULES 

Several rules must be observed when using 
DISK COMMANDER. You can press ‘Q’ to 
quit and return to BASIC. The “C” command 
will cause the special catalog to be printed. 
Like the DOS CATALOG commana, the list- 
ing will pause after a proscribed number of 
files have been listed. Pressing the space bar 
will continue the listing of both catalogs. But 
unlike the DOS CATALOG, the DISK COM- 
MANDER catalog will stop if any key other 
than the space bar is pressed. The special 
DISK COMMANDER commands “D” and “S” 
require that there be no space between the 
command and the number of the new drive or 
slot number. For example, D2 and S6 are legal 
commands whereas D 1 and S 5 are not. 


OTHER FORMATS 

Entering other commands also requires 
special formats. As noted before only the first 
three letters of DOS commands are needed. 
The full command will of course be accepted. 
Furthermore, the command field MUST be 
separated from the number field by at least 
one space. Otherwise an error message will 





TABLE | 
A COMPARISON OF DOS AND DISK COMMANDER COMMANDS 


DOS COMMAND 


BSAVE A,A$800,L$FF 
BLOAD A 
RENAME A,B 
LOAD A 
SAVE A 
EXECA 
RUNA 
BRUNA 
DELETE A 
LOCKA 
UNLOCK A 


DISK COMMANDER COMMAND 


BSA 1,800,FF 
BLO 1 
REN 1,B 
LOA 1 
SAV 1 
EXE 1 
RUN 1 
BRU 1 
DEL 1 
LOC 1 
UNL 1 


—_—— Ee 


TABLE Il 
LEGAL COMMANDS ILLEGAL COMMANDS 
RUN 14 RUN14 
BLO 10 BLO10 
LOAD 5 LOADS 
REN 14,NEW NAME REN 14 NEW NAME 
BSA 11,800, FF BSA 11,$800,$FF 
SAV 13 SAV PROGRAM 


[Se RSS SS es SS eS ES SS SSS RSS 


be printed. However, only numbers will be 
accepted in the number field. 

Three of the commands require special 
attention. First of all the SAVE command can 
only be used with a program which has been 
previously SAVEd since only numbers will be 
accepted in the number field. 


9299 1 seeeeereneeereseeeeeeeeeeeeeenes 
9B80: 2 seeeeeeererereseseseeeeeneenenen 
9995 3 « 

BOBS 4 + DISK COMMANDER * 
9905 5 « * 
GBOB 6 + * 
GB85 7 *« BY PRESTON R BLACK MD * 
9206 8 « ” 
98995 9 « COPYRIGHT (C) 1982 BY . 
BBB: 18 *« MICROSPARC, INC. « 
DOOD : 11 *« LINCOLN, MA 61773 * 
BOBO: 12 »« APPLE TOOLKIT ASSEMBLER * 
BOBO: 13 « * 
GBBG: 14 « * 
9OBG: 15 seseeeserereeesesseseeueresennns 
DODD: 16 « 

9900: 17 »« EQUATES 

O2BO: 18 « 

9008: 19 BUFFS EQU $98 

8999: 28 CMMND EQU $69 

OO6B: 21 PTRI EQU $B 

9900: 22 BUFFM EQU $@D 

OOOF : 23 ERRSAV EQU $F 

9838: 24 KSWL EQU $38 

9H39: 25 KSWH EQU $39 

9973: 26 HIMEML EQU $73 

9874: 27 HIMEMH EQU $74 

DOAD: 28 SPACE EQU $Ad 

BOBAC: 29 COMMA EQU $AC 

9209 3@ BUFFER EQU $200 

9308 31 DOS EQU $3D9 

B3EA 32 DOSHOK EQU $3EA 

AA68 33 DOSDRV EQU $AA68 

AA6A 34 DOSLOT EQU $AA6A 

B7B5 35 RWTS EQU $B7B5 

FD@C 36 RDKEY EQU $FD@C 

FD1B 37 KEYIN EQU $FD1B 

FD6F : 38 GETLN1 EQU $FD6F 

FD8E: 39 CROUT EQU $FD8E 

FDED: 49 COUT EQU $FDED 

QBBD : 41 « 

----- NEXT OBJECT FILE NAME IS DISK COMMANDER 

8200: 42 ORG $8209 

QOBD: 43 OBJ $889 

8200: 44 « 

8200: 45 » CHANGE THE INPUT HOOKS TO OUR ROUTINE 
8200: 46 « AT 'EASE' AND RESET HIMEM SO OUR 
8200: 47 »* ROUTINE IS NOT OVERWRITTEN 
8200: 48 + 

8208:A9 14 49 HOOKS LDA #>EASE 
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Secondly, the RENAME command uses the 
same format as the DOS command except 
that the file number replaces the file name to 
be changed (see table for format of this 
command). 

Finally, the BSAVE command has the same 
constraints as the SAVE command and onlya 
file already present in the Diskette Directory 
can be saved. This command is simplified 
somewhat in that the “A$” and “L$” are not 
needed when using DISK COMMANDER. All 
that is required is the starting address and 
length of the file to be BSAVEd separated 
from each other and the file number by com- 
mas. The “A$” and “L$” are automatically 
included by DISK COMMANDER. Note that 
both the file’s starting address and jength 
must be in hexadecimal. 


RESET AND RESTART 

Should the reset key be hit when using 
DISK COMMANDER or the output hooks 
changed by a program in use, the hooks can 
be re-enabled to point to DISK COM- 
MANDER by typing CALL 33280 from Apple- 
soft or 8200G from the monitor. If during this 
time, DISK COMMANDER is accidentally 
overwritten by an assembly language pro- 
gram, it must be reloaded and reactivated. 
And finally, when files are added or DELETEd, 
always review the revised special catalog to 
see an update of the number of each file. This 
will prevent you from using the wrong file. 


| have found that this program has saved 
me a considerable amount of time when 
using DOS. | still can use the descriptive 
names | like and not pay the penalty for not 
taking typing lessons when | was in school. | 
hope that the reader will find it as useful as | 
have. (Disk COMMANDER was assembled 
using the Apple Toolkit Editor/Assembler). 


@ 


8282: 
8204: 
8296: 
8208: 
820A: 
828C: 
82GE: 
82198: 
8213: 


85 
AQ 
85 
AQ 
85 
AQ 
85 
28 
66 


8214: 
8214: 
8214: 


8214: 
8217: 


28 
cg 


8219: 
8219: 
8219: 
8219: 


8219: 
821B: 


FQ 
68 


821C: 
821C: 
821C: 
B21c: 
821C: 
821C: 


821C: 
821F: 
8222: 
8225: 
8228: 
822B: 
822C: 
822D: 
822E: 
822F: 
8232: 


8235: 
8235: 
8235: 


8235: 
8237: 
823A: 
823C: 


AQ 
85 


823E: 
823E: 
823E: 
823E: 


823E: 
:CA 


8241 


8242: 
:E@ 


8245 


8247: 
8249: 
824C: 
824E: 


28 
8E 


99 
4c 
A2 
BD 


8251: 
8251: 
8251: 
8251: 
8251: 
8251: 
8251: 


8251: 


8251: 


8251: 
8253: 
8255: 
8256: 
8259: 
825B: 
825D: 
8269: 
8261: 
8264: 
8266: 
8268: 
8269: 
826C: 
826E: 
8279: 
8273: 
6275: 
8278: 
827A: 
827C: 
827F: 
8281: 
8283: 
8283: 
8283: 
8283: 
8285: 
8288: 
B28A: 
B28C: 
B28E: 
B299: 
:E9 
B293: 


B291 
3293: 


BD 


cg 
BS 
38 


38 
82 
39 
88 
73 
82 
74 
EA 


1B 
86 


G1 


8E 
8E 
68 
98 
6A 


97 
2B 


AS 
ED 
ey) 
98 


6F 


8A 
36 
3 
6F 
26 
Vf) 


93 


FD 


FD 
86 


86 
84 


FD 


FD 
86 


85 
G2 


G2 


83 


G2 


G2 


83 
G2 


93 


82 


58 
51 
52 
53 
54 
55 
56 
57 
58 
59 
68 
61 
62 
63 
64 
65 
66 
67 
68 
69 
72 
71 
72 
73 
74 
75 
76 
77 
78 
79 
89 
81 
82 
83 
84 
85 
86 
87 
88 
89 
99 
91 
92 
93 
94 
95 
96 
97 
98 
99 
188 
191 
162 
193 
194 
195 
196 
1987 
188 
199 
119 
111 
112 
113 
114 
115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 
129 
138 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
158 


STA 
LDA 
STA 
LDA 
STA 


KSWL 
#<EASE 
KSWH 
#$80 
HIMEML 


LDA 
STA 
JSR 
RTS 


#$82 
HIMEMH 
DOSHOK 


* 


+ SCAN THE KEYBOARD INPUT FOR A CTRL-F 
* 
EASE JSR KEYIN 
CMP #$86 ;CTRL-F 
* 
+ IF IT IS TYPED THEN GOTO 'EASY' 
* OTHERWISE CONTINUE AS BEFORE 
* 

BEQ EASY 

RTS 
* 
* 
+ FIRST MAKE SURE WE ARE READING THE SLOT 
+ AND DRIVE WE CALLED THE ROUTINE FROM AND THEN 
+ READ THE FILE DIRECTORY INTO RAM 
. 
EASY JSR 
JSR 
LDA 


CROUT 

CROUT 

DOSDRV 
STA  IBDRVN 
LDA DOSLOT 
ASL A 


ASL 
ASL 
ASL 
STA 
JMP 
o 
* OUTPUT OUR 
. 
EASE1 LDA 
JSR 
LDA 
STA 


*« USE MONITOR ROUTINE 'GETLN1' 


A 

A 

A 
IBSLOT 
RDCAT 


PROMPT 
#'%' 
COUT 
#$99 
BUFFS 


FOR 


* INPUTTING DISK EASE COMMANDS 


* 

GETCMD JSR 
DEX 
STX 
CPX 
BCC 
JMP 
LDX 
LDA 


GETCMD1 


GETLN1 


COUNT 
#$30 
GETCMD1 
ERROR 
#$20 
BUFFER, X 


. 
* FIRST CHECK FOR SPECIAL DISK EASE 

* COMMANDS 'Q' FOR 'QUIT', 'D' FOR DRIVE, 
* 'S' FOR SLOT, 

* AND 'C' FOR SPECIAL ‘CATALOG’ 
* ALSO CHECK FOR 'RENAME' AND 
* 'BSAVE' BECAUSE THEY NEED 
* SPECIAL ATTENTION 


CMP 
BNE 
INX 
LDA 
CMP 
BNE 
JMP 
DEX 
LDA 
CMP 
BNE 
INX 
LDA 
CMP 
BNE 
JMP 
LDX 
LDA 
CMP 
BNE 
JMP 
CMP 
BNE 


#'B' 
GETCMD3 


BUFFER, X 
#'S' 
GETCMD2 
BSAVE 
GETCMD2 
BUFFER , X 
#'R' 
GETCMD4 


GETCMD3 


BUFFER, X 
eg 
GETCMD4 
RENAME 
#$0B 
BUFFER, X 
#'Q' 
GETCMD5 
DOS 

#.D) 
GETCMD6 


GETCMD4 


GETCMD5 


* 
*« MAKE SURE 


* 


CHARACTER AFTER 'D' IS 1 OR 2 
LDX 
LDA 
CMP 
BLT 
CMP 
BGE 
SEC 
SBC 


#$01 
BUFFER, X 
#$B1 
GETCMD8 
#$B3 
GETCMD8 


#$BO 
* 
* STORE NEW DRIVE NUMBER INTO DOS 


8293: 
8293: 
8296: 
8299: 
829B: 
829D: 
829D: 
829D: 
829D: 
829F: 
82A2: 
82A4: 
:c9 
82A8: 
82AA: 
82AB: 
82AD: 
82AD: 
82AD: 
82AD: 
82B9: 
82B3: 
82B5: 
82B7: 
82BA: 
82BD: 
82C0: 
82CB: 
82C9: 
82CB: 
82C0: 
82C9: 
82C2: 
82C5: 
82C8: 
82CA: 
82CC: 
82CD: 
82CF: 
82D2: 
82D4: 
82D4: 
82D4: 
82D4: 
82D4: 
82D7: 
82D9: 
82DB: 
82DB: 
82DB: 
82DB: 
82DB: 
82DD: 
82DF: 
82E2: 
82E4: 
82E6: 
82E9: 
82E9: 
82E9: 
82E9: 
82E9: 
82E9: 
82EA: 
82EC: 
82EF: 
82F9: 
82F1: 
82F3: 
82F4: 
82F4: 
82F4: 
82F4: 
82F4: 
82F7: 
82F9: 
82FB: 
82FE: 
82FE: 
82FE: 
82FE: 
82FE: 
8300: 
8393: 
8395: 
8397: 
8307: 
8307: 
8397: 
830A: 
830A: 
830A: 
830A: 
839D: 
83198: 
8312: 
8312: 
8312: 
8312: 
8313: 


82A6 


8D 
4C 
cg 
DS 


A2 
BD 
c9 
99 


Bo 
38 
E9 


8D 
4c 
c9 
Dg 
20 
28 
4c 


cg 
Bo 
4C 
c9 
98 
4c 


4c 


BD 
D9 
FO 


C8 
c8 


68 
1c 
D3 
16 


@1 
1) 
BO 
1A 
B8 
16 


Bg 


6A 
1c 
C3 
99 
8E 
8E 
A6 


BO 
97 


El 


BA 
oo 
FF 
8B 


)4) 
8B 
24 
93 


6F 


98 
BA 
95 


G2 


G2 


85 


86 


G2 


85 


85 


85 


86 


86 


86 


85 


85 
86 


VST « 

152 STA DOSDRV 

153 JMP EASY 

154 GETCMD6 CMP #'S' 

155 BNE GETCMD7 

156 « 

157 » MAKE SURE NEXT CHARACTER IS A NUMBER 
158 + BETWEEN 9 AND 7 

159 LDX #$@1 

169 LDA BUFFER,X 

161 CMP #$BO 

162 BLT GETCMD8 

163 CMP #$B8 

164 BGE GETCMD8 

165 SEC 

166 SBC #$Bd 

167 » 

168 « PLACE NEW SLOT NUMBER INTO DOS 
169 « 

1708 STA DOSLOT 

171 JMP EASY 

172 GETCMD7 CMP #'C' 

i73 BNE GETCMD8 

174 JSR CROUT 

175 JSR CROUT 

176 JMP PRTCAT 

177 » 

178 « STORE THE COMMAND IN A BUFFER 
179 »« NOTE THAT A SPACE IS USED 

188 +» AS THE DELIMITER FOR THE COMMAND 
181 « 

182 GETCMD8 LDX #$90 

183 GETCMD9 LDA BUFFER, X 

184 STA CMDBUF , X 

185 CMP #>SPACE 

186 BEQ GETCMDA 

187 INX 

188 BNE GETCMD9 

189 GETCMDA LDX COUNT 

199 LDY #$90 

191 « 

192 + NOW STORE THE NUMBER IN A BUFFER. 
193 * AGAIN A SPACE IS USED AS A DELIMITER 
194 + 

195 GETCMDB LDA BUFFER, X 

196 CMP #>SPACE 

197 BEQ GETCMDE 

198 « 

199 « IF EACH NUMBER IS NOT BETWEEN 
208 » @ AND 9 THEN PRINT ERROR MESSAGE 
201 » 

282 CMP #$BO 

283 BCS GETCMDC 

204 JMP ERROR 

205 GETCMDC CMP #$BA 

296 BCC GETCMDD 

287 JMP ERROR 

208 «+ 

289 »« CONVERT THE ASCII CODE FOR @ TO 9 
218 *« TO THE HEXIDECIMAL EQUIVALENT 
211 » BEFORE PLACING INTO THE BUFFER 
212 « 

213 GETCMDD SEC 

214 SBC #$Bd 

215 STA FILBUF,Y 

216 DEX 

217 INY 

218 BNE GETCMDB 

219 GETCMDE DEY 

228 « 

221 « STORE THE NUMBER OF PLACES IN 
222 »« OUR NUMBER IN 'COUNT' 

223 « 

224 STY COUNT 

225 LDY #$208 

226 LDA #$FF 

227 STA COUNT1 

228 »« 

229 « NOW PARSE THROUGH THE COMMAND LIST 
238 « UNTIL WE FIND THE COMMAND WE WANT 
231 + 

232 GETCMDF LDX #$90 

233 GETCMDG INC COUNT1 

234 CPY #$24 

235 BNE GETCMDH 

236 »« 

237 »« IF NO MATCH THEN PRINT ERROR 
238 « 

239 JMP ERROR 

248 « 

241 « CHECK TO SEE IF FIRST LETTERS MATCH 
242 « 

243 GETCMDH LDA CMDBUF, xX 

244 CMP CMDLST,Y 

245 BEQ GETCMDI 

246 « 

247 « IF NOT THEN GO TO NEXT COMMAND IN LIST 
248 « 

249 INY 

258 INY 
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839D:9D 9B 85 352 rile COMMND , X 
8314:C8 251 INY 83AQ:E8 353 
8315:D0 E9 252 BNE GETCMDG 83A1.88 354 DEY 
8317: 253 « x FoR 83A2:18 F6 355 BPL CMDFIL4 
8317: 254 + IF THERE IS A MATCH THEN CHEC ote ey 
See got a COMPLETE MATCH OF THE COMMA 83A4: 357 « WE COMPLETE THE COMMAND STRING 
8317: 256 « B3A4: 358 » WITH A RETURN AND THE DELIMITER 
8317:E8 257 GETCMDI INX Soha; 359 « OF THE STRING $22 
8318:C8 258 INY Saat 360 « 
8319:E@ 03 259 CPX. 8583 83A4:A9 8D 361 CMDFIL5 LDA #$8D 
831B:FO 10 260 BEQ GETCMDK 83A6:9D 9B 85 362 STA COMMND, X 
831D:BD 98 85 261 LDA CMDBUF , X San Ea = INX 
8320:D9 BA 86 262 CMP CMDLST,Y oon an ae Gea LDA ¥$00 
8323:FO F2 263 BEQ GETCMDI 83AC:85 28 365 Be sola " 
8325: 264 + 83AE:9D 9B 85 366 ' 
8325; 265 « IF THERE IS NO MATCH THEN CONTINUE ar ee eee sents toshiok 
8325: 266 + 83B4:A2 9 368 LDX #$89 
8325:ED @3 267 GETCMDJ CPX #$03 Soak: ans © 
8327:FO DS 268 =a ead 83B6: 370 « WE NOW OUTPUT THE ENTIRE COMMAND 
8329 :E8 et) ee 8386: 371 + STRING USING THE MONITOR ROUTINE 
832A: C8 nA par’: ercaksa 8386 : 372 « ‘COUT’ UNTIL WE REACH THE DELIMITER 
832B:D0 F8 271 BNE 8386; 373 » 
832D: 272 « 83B6:BD 9B 85 374 CMDFL4 LDA COMMND,X 
32D: 273 » IF THERE IS A MATCH THEN STORE paneerae ae BEQ CMDFLS 
832D: 274 » THE ADDRESS OF THE FULL COMMAND ee ne oe it eat 
832D: 275 » IN CMMND ON ZERO PAGE eeciee te sa 
832D: mans 83BF:D@ F5 378 BNE CMDFL4 
832D:@E 8B 86 277 GETCMDK ASL COUNT1 rp ee ade 379. CHOFLE aes 
8330:AE 8B 86 278 eee eee 83C3:28 88 82 380 JSR HOOKS 
2336.85 ary STA oun 8306 :4C 1¢ 82 381 JMP EASY 
: 83C9: . 
pean an ae IDA CMOPTR, x 8309: 383 + THIS ROUTINE HANDLES THE STRING 
8339:BD 26 86 262 = 8309: 384 « CONTAINING THE NEW NAME FOR THE 
833C:85 A 283 STA CMMND+1 _ Ss. Renae Ce 
833E: 284 + 
E 83C9: 386 « 
833E: 285 » NOW CONVERT THE DECIMAL NUMBERS OF THE FIL = or 
833E: 286 « NUMBER TO ITS HEXIDECIMAL EQUIVALENT eae a tae ae ia toe” cour 
833E: mae ‘BD @@ @2 389 RNAME1 LDA BUFFER,X 
833E:A9 90 288 GETFIL LDA #$00 tegen St + STA STRING Y 
8349:8D 8C 86 289 STA ALPHA eh sere He palate 
8343:AC 8A 86 298 LDY COUNT ecient a. Ben RE? 
8346:B9 97 85 291 GTFIL1 LDA FILBUF,Y ee ee — 
8349: F@ BE 292 BEQ GTFIL3 ane to rea 
eee oe Lipa 83DA:D@ F2 395 BNE RNAME1 
oe a . 83DC:CA 396 RNAME2 DEX 
834D:B9 B7 86 295 GIFIL2 LDA TIMES,Y oe eA ge gta ee aie 
8350:6D 8C 86 296 ADC ALPHA TY BUFFS 
PHA 83ED:84 28 398 S 
ee ee ee? lee 83E2:4C CB 82 399 JMP GETCMD8 
8356:CA 298 DEX peee ot 
=e i rte oe ea 83E5: 491 + THIS ROUTINE CONSTRUCTS THE 
re cried bleed et 83E5: 492 » PROPER STRING FOR THE BSAVE 
835A:10 EA 301 BPL GTFIL1 — pp Beth nd 
835C: 362 « ; 
Z 404 * 
835C: 303 « THEN MULTIPLY THAT NUMBER BY TWO 83E5: 
835C: 304 « TO GET THE POSITION OF THE FILE'S 83E5:AD 20 aon BSAVE oe el 
835C: 395 » ADDRESS IN THE ADDRESS BUFFER pes os ae ort rie crane 
835C: 306 + : 
835C:BE 8C 86 307 ASL ALPHA 83EC: 408 + 
835F:AE 8C 86 398 LDX vel ‘ et Me : PUT LENGTH IN STRING 
8362:BD AB 86 309 LDA ADDRA, 
8365-85 2B 3108 STA PTRI 83EC:BD 98 82 411 BSAVE1 LDA BUFFER,X 
8367 :E8 311 INX 83EF:C9 AC 412 CMP #>COMMA 
DA ADDRA, X 83F1:FO 97 413 BEQ BSAVE2 
8368:BD AB 86 312 L 
836B:85 BC 313 STA PTRI+1 83F3:99 DB 85 414 STA  STRING,Y 
836D:AZ 2B 314 CMDFIL LDY #$09 83F6:CA 415 DEX 
836F:A2 20 315 LDX #$99 nl ee a3 poe ~ 
8371: 316 « 
8371: 317 + NOW CONSTRUCT THE COMMAND STRING 83FA: 418 « “ees 
8371: 318 + STARTING WITH A RETURN ($8D) 83FA: 419 « ADD 'L$' TO STRING AS WELL AS COMMA 
8371: 319 » AND A CONTROL-D ($84) SFA: pn a 
8371: 320 
8371:A9 8D 321 LDA #$8D 83FB:E6 OD 422 INC BUFFM 
8373:9D0 9B 85 322 STA COMMND, X B3FD:A9 Ad 423 LDA a's) 
8376 :E8 323 INX 
8377:A9 84 324 LDA #$84 8402:C8 425 INY 
8379:9D 9B 85 325 STA COMMND, X 8403:A5 9D 426 LDA BUFFM 
837C:E8 326 INX 8405:C9 @1 427 CMP #$01 
837D: 327 « 8497:D0 OF 428 BNE BSAVE3 
837D: 328 + THEN PLACE THE FULL COMMAND INTO 8409:A9 CC 429 LDA #'L' 
837D: 329 » THE COMMAND STRING 840B:99 DB 85 430 STA STRING. 
837D: 330 + 84QE:A9 AC 431 LDA #>COMMA 
837D:B1 99 331 CMDFL1 LDA (CMMND) ,Y 8410:C8 432 INY 
837F:FO 27 332 BEQ CMDFL2 8411:99 DB 85 433 STA STRING,Y 
8381:90 9B 85 333 STA COMMND, X B414:C8 434 Ler 
8384:E8 334 INX 8415:4C EC 83 435 
8385 :C8 335 INY 8418: 436 » 
8386:D9 F5 336 BNE CMDFL1 8418: 437 « AFTER STARTING ADDRESS, ADD ‘A$’ 
8388: a7 <0 8418: 438 » TO THE STRING AND A COMMA 
8388; 338 » FINALLY PLACE THE NAME OF THE FILE 8418: 439 + 
8388: 339 » INTO THE COMMAND STRING 8418:A9 Cl 449 BSAVE3 LDA #'A' 
8388: 340 « 841A:99 DB 85 441 STA STRING,Y 
8388:AD 93 341 CMDFL2 LDY ¥#$93 841D:A9 AC 442 LDA #>COMMA 
838A:B1 @B 342 CMDFL3 LDA (PTRI),Y 841F:C8 443 INY 
838C:9D 9B 85 343 STA COMMND| X 8420:99 DB 85 444 STA STRING,Y 
838F :C8 344 INY 8423:84 28 445 STY BUFFS 
8390:E8 345 INX 8425:8E 8A 86 446 STX COUNT 
8391:CH 21 346 CPY #$21 8428:4C CB 82 447 JMP  GETCMD8 
8393:D0 F5 347 BNE CMDFL3 842B: 448 « 
8395:A5 28 348 LDA BUFFS 842B: 449 » THIS SUBROUTINE READS THE DISKETTE 
8397: F® OB 349 BEQ CMDFILS 842B: 458 » DIRECTORY INTO MEMORY AND PLACES 
8399: A8 350 TAY 842B: 451 + INTO MEMORY A DIRECTORY OF THE 
839A:B9 DB 85 351 CMDFIL4 LDA STRING,Y 842B: 452 » STARTING ADDRESS OF EACH FILE 
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7 AQ 
:8D 
:AQ 
:8D 
:A9 
:8D 
785 
AQ 
:8D 
785 


:A9 
:8D 
:A9 
:8D 


:C9 
EE 


®B 
8C 
23 
8D 
4) 
9E 
9D 
87 
OF 
GE 


11 
9A 
OF 
9B 


8E 
OF 
9B 
F5 
v7) 
9D 
8C 
AB 


GE 
AB 


8c 
9D 
34 


FF 
G2 


86 
86 
86 


86 


86 
86 


86 
86 
86 


86 


86 


86 


86 


86 


86 


86 
86 


86 
82 


86 
86 


86 


86 


85 


86 


453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
478 
471 
472 
473 
474 
475 
476 
477 
478 
479 
489 
481 
482 
483 
484 
485 
486 
487 
488 
489 
498 
491 
492 
493 
494 
495 
496 
497 
498 
499 
588 
581 
582 
593 
594 
595 
586 
587 
588 
599 
519 
511 
512 
513 
514 
515 
516 
517 
518 
519 
528 
521 
522 
523 
524 
525 
526 
527 
528 
529 
538 
531 
532 
533 
534 
535. 
536 
537 
538 
539 
548 
541 

542 
543 
544 
545 
546 
547 
548 
549 
558 
551 

552 


* 

RDCAT LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 


#$2B 
ALPHA 
#$23 
BETA 
#>BUFFP 
IBBUFP 
BUFFM 
#<BUFFP 
IBBUFP+1 
BUFFM+1 


” 


* IBTRK IS INITIALIZED WITH $11(17) 


* AND IBSECT IS INITIALIZED WITH $@F(15) 

* 

RDCAT1 LDA #$11 
STA IBTRK 
LDA #$9F ; CHANGE #$8F TO #$9C 
STA  IBSECT 


* 


+ THEN USE THE RWTS SUBROUTINE TO READ 
* EACH SECTOR OF THE DIRECTORY INTO 


*« MEMORY SEQUENTIALLY 


* 

RDCAT2 JSR 
INC 
DEC 
BNE 
LDX 
STX 
LDA 
STA 
INX 
LDA 
STA 


CONTRL 
IBBUFP+1 
IBSECT 
RDCAT2 
#$OO 
BUFFM 
ALPHA 
ADDRA, X 


BUFFM+1 
ADDRA , X 


* 


* NOW SCAN THE NEWLY READ DIRECTORY 
* AND PLACE THE ADDRESS OF THE START 
* OF EACH FILE ENTRY INTO THE ADDRESS BUFFER 


* 

RDCAT3 LDY ALPHA 

RDCAT4 LDA 
BEQ RDCAT7 


+ IGNORE DELETED FILES 


. 
CMP 
BEQ 
INX 
INX 
DEX 
TYA 
CLC 
ADC 
TAY 
CPY 
BEQ 
STA 
INX 
LDA 


#SFF 
RDCAT5 


RDCAT5 


BETA 
#$99 
RDCAT6 
ADDRA , X 


BUFFM+1 


(BUFFM) ,Y 


STA 
CPY 
BNE 


RDCAT6 LDA 


ADDRA , X 
#$2B 
RDCAT4 
#$9B 


STA 
STA 
LDA 
STA 
INX 
INC 
LDA 
STA 
BNE 
RDCAT7 JMP 


* 


ALPHA 
ADDRA , X 
#$99 
BUFFM 


BUFFM+1 
BUFFM+1 
ADDRA , X 
RDCAT3 
EASE1 


* THIS SUBROUTINE PRINTS OUR SPECIAL 
* CATALOG WITH EACH FILE NUMBERED 


* 

PRTCAT LDX 
STX 
LDA 
STA 
INX 
LDA 
STA 
INX 
STX 
LDY 
LDA 
BNE 
JMP 


#$ OO 
ALPHA 
ADDRA , X 
PTRI 


PRINT1 


ADDRA , X 
PTRI+1 


BETA 
#$0O 
(PTRI) ,Y 
PRINT2 
PRINTB 


* 
* AGAIN 


* 

PRINT2 CMP #$FF 
BEQ PRINT1 
INC ALPHA 
LDX #$89 


IGNORE DELETED FILES 


* 
« FIRST PRINT THE FILE NUMBER 


84CC: 
84CC: 
84CF: 
84D2: 
84D3: 
84D5: 
84D7: 
84DA: 
84DA: 
84DA: 
84DA: 
84DA: 
84DC: 
84DE: 
84DF: 
84E9: 
84E2: 
84E4: 
84E6: 
84E6: 
84E6: 
84E6: 
84E8: 
84E8: 
84E8: 
84E8: 
84EB: 
84EC: 
84ED: 
84EF: 
:A9 
84F3: 
84F5: 
84F7: 
84F9: 
84FB: 
84FD: 
84FF: 
:A9 
85983: 
8505: 
8597: 
850A: 
850C: 
850F: 
8519: 
8519: 
85198: 
8519: 
8512: 
8514: 
8517: 
8518: 
851A: 
851C: 
851F: 
8522: 
8525: 
8525: 
8525: 
8525: 
8525: 
8527: 
8529: 
852C: 
852C: 
852C: 
852C: 
852C: 
852E: 
8530: 
:A9 
8535: 
8538: 
853B: 
853D: 
853F: 
853F: 
853F: 
853F: 
853F: 
8542: 
8543: 
8545: 
8547: 
854A: 
854D: 
854D: 
854D: 
854D: 
854D: 
854D: 
8550: 
8553: 
6555: 
8557: 
8559: 
855C: 
855F: 
8562: 
8564: 


84F1 


8581 


8533 


BD 
28 
E8 
E@ 
Dg 
28 


AS 
Bl 
GA 
48 
Bg 
AQ 
DO 


AQ 


26 
68 
4A 
cg 
DS 


DS 
cg 
DO 
AQ 
DO 
cg 
DS 


DS 
AQ 
28 
AQ 
26 
c8 


Bl 
FO 
28 
cs 
Co 
DS 
26 
AE 
AD 


c9 
DO 
28 


c9 
Ds 
AE 


8D 
4c 
A2 
AQ 


9D 
E8 
E@ 
DS 
20 
4c 


EE 
AD 
c9 
98 
AQ 
8D 
EE 
AD 
cg 
99 


93 
ED 


04 
F5 
4D 


@2 
OB 


04 
AD 
B2 


AA 


82 
@C 


95 
@5 
BA 
17 
Bg 
95 
94 
94 
BA 
98 


86 
FD 


85 


FD 


FD 
FD 


FD 


FD 
86 
86 


FD 


86 


86 
84 


86 


FD 
82 


86 
86 


86 
86 
86 


553 
554 
555 
556 
557 
558 
559 
568 
561 
562 
563 
564 
565 
566 
567 
568 
569 
576 
571 
572 
573 
574 
575 
576 
577 
578 
579 
589 
581 
582 
583 
584 
585 
586 
587 
588 
589 
599 
591 
592 
593 
594 
595 
596 
597 
598 
599 
689 
681 
692 
693 
694 
605 
696 
687 
698 
699 
619 
611 
612 
613 
614 
615 
616 
617 
618 
619 
628 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
649 
641 
642 
643 
644 
645 
646 
647 
648 
649 
659 
651 
652 
653 


* 

PRINT3 LDA 
JSR 
INX 
CPX 
BNE 
JSR 

* 

* THEN CHECK 

* LOCKED OR 

* 
LDY 
LDA 
ASL 
PHA 
BCS 
LDA 
BNE 


* 
* PRINT '+' 


* 

PRINT4 LDA 
” 

* THEN 
* 


PRINTS 


PRINT 


JSR 
PLA 
LSR 
CMP 
BNE 
LDA 
BNE 
CMP 
BNE 
LDA 
BNE 
CMP 
BNE 
LDA 
BNE 
LDA 
JSR 
LDA 
JSR 
INY 


PRINT6 
PRINT7 


PRINT8 
PRINT9 


* 


« NOW PRINT 


* 

PRINTA LDA 
BEQ 
JSR 
INY 
CPY 
BNE 
JSR 
LDX 
LDA 


PAUSE UNTI 
TWENTY FIL 


* *# # # 


NUMB , X 
COUT 


#$24 
PRINT3 
NUMCHK 


TO SEE IF THE FILE IS 
UNLOCKED 


#$B2 
CPBRE): Y: 
A 


PRINT4 
#>SPACE 
PRINT5 


IF IT IS ELSE PRINT A SPACE 
H's! 

THE FILE TYPE 

COUT 


A 

#$94 
PRINT6 
#'B' 
PRINTS 
#$62 
PRINT7 
#'A' 
PRINT9 
#$91 
PRINTS 
Hele 
PRINT9 
#'T' 
COUT 
#>SPACE 
COUT 


THE FILE NAME 


(PTRI):¥ 
PRINTB 
COUT 


#$21 
PRINTA 
CROUT 
BETA 
ALPHA 


L KEYBOARD INPUT AFTER 
E NAMES HAVE BEEN LISTED 


CMP #$14 
BNE PRINT1 
JSR RDKEY 


ee fat ee 


CMP 
BNE 
LDX 
LDA 
STA 
JMP 
LDX 
LDA 


PRINTB 


* 
* 
* 
* 
PRINTC STA 
INX 
CPX 
BNE 
JSR 
JMP 


THIS ROUTI 


IF KEYBOARD INPUT NOT A 'SPACE' 
THEN DISCONTINUE ‘CATALOG’ 


#>SPACE 
PRINTB 
BETA 
#$00 
ALPHA 
PRINT1 
#$ OO 
#$BO 


RESTORE NUMB TO BOB@BS (B8B) 
BEFORE RETURNING TO MAIN PROGRAM 


NUMB , X 


#$03 
PRINTC 
CROUT 
EASE1 


NE IS USED TO INCREMENT 


THE BUFFER HOLDING THE ASCII CODE 


* 

* 

* 

« FOR THE FI 
* 

NUMCHK — INC 
LDA 
CMP 
BCC 
LDA 
STA 
INC 
LDA 
CMP 
BCC 
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LE NUMBERS 


NUMB+2 
NUMB+2 
#$BA 
RTURN 
#$BO 
NUMB+2 
NUMB+1 
NUMB+1 
#$BA 
RTURN 


continued on page 190 
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LOWER CASE INPUT/OUTPUT 


a 


Lower Case Input/Output 


by Ben E. Colley 
Rt. 1, Box 67B 
Hallsville, MO 65255 


People who do a great deal of software 
development soon fall into the habit of col- 
lecting subroutine modules. These modules 
aid development in numerous ways, by sav- 
ing coding time and debugging effort for new 
programs. And in some cases, machine lan- 
guage routines can perform a function much 
faster than their BASIC counterparts. This 
article shares with you two such subroutines 
that | have developed and subsequently col- 
lected for future use in developing and 
enhancing programs. 


LC INPUT 

If you have a printer that supports lower 
case printing, then this subroutine (LIST 1) 
offers you a generalized starting point for the 
entry of upper and lower case text. It uses 
(internally only) the ASCII codes for Back- 
space (8), Carriage Return (13), and Escape 
(27). The ASCII code 0 cannot be entered 
successfully into this routine. The Applesoft 
command ASC disallows this character, but 
you could add the checks to include it at the 
expense of increasing the execution time. 

LC INPUT can be used in either of two 
ways. One way is to simply include the code 
in-line, that is, not as a subroutine, but simply 
in the flow of your programs. The second way 


(which | prefer) is to add a RETURN state- 
ment at the end and then use a GOSUB 
statement whenever upper and lower case 
text is required. If you wish to use certain 
control codes as special functions, they can 
easily be handled in the routine prior to being 
concatenated to the string LC$. 

| should point out a couple of techniques in 
LC INPUT because they address some of the 
problems people face when learning to pro- 
gram. The first technique is avoiding the use 
of GOTOs. Notice that the entire loop is con- 
trolled by FOR QL=1TO2STEP 0. | try to 
structure programs as much as possible; the 
truth is, | dislike using GOTO at all, but some- 
times it is a necessary evil. Limiting GOTO 
statements in an interpretive language like 
Applesoft is a fairly easy way to enhance your 
program's speed. 

The second technique is to try to limit the 
use of built-in functions. Here the routine sets 
AC = ASC(A$) and then checks for AC=8, 
AC>31, etc. Built-in functions introduce 
overhead that can slow program execution. 


LC OUTPUT 

The complement of text inputis (obviously) 
text output. LC OUTPUT is a machine lan- 
guage subroutine (LIST 2) that displays the 
inverse/normal text that is so typical of text 
editing programs for the Apple. And it does so 
at a speed far superior to its counterpart 
written in Applesoft. In addition to inverse/ 
normal output, LC OUTPUT displays control 
codes as flashing output. Adding this routine 


to the T.O.U.G.H. processor makes the dis- 
play of text fairly fly! 

To use LC OUTPUT, key in the machine 
code at $300, then save it with: 


BSAVE LC OUTPUT,A$300,L$53 


After saving it, BLOAD it from your BASIC 
program and use CALL 768,var, where varisa 
string variable, either simple (A$) or array 
(A$(I)). If you need to use location $300 for 
another machine language program, LC 
OUTPUT is completely relocatable. BLOAD 
it anywhere in high memory and call the 
address where it was BLOADed. (Be sure to 
protect it with HIMEM if you do, otherwise it 
may get clobbered.) 

LC OUTPUT was written to display true 
ASCII character strings, that is, character 
values between 0 and 127 inclusive. If you use 
it to display a regular Applesoft string, all the 
alphabetic characters will be displayed in 
inverse (upper case) mode. 

While | have written these two routines to 
complement one another, they need not be 
supported by each other. For example, | use 
the output routine in the enhanced T.O.U.G.H. 
word processor and the input routine insome 
label producing programs. 

Try running the demonstration program 
(LIST 3) and | think you will find these two 
subroutines worthy of inclusion in your library 
of subroutines. 

NOTE: The assembly listing was produced 
using Apple’s DOS Toolkit Assembler. 


SECKETS TATA AAA AATAE TATE 
* LOWER CASE INPUT/OUTPUT * 


i 

Z 

3 REM # BY BEN E. COLLEY bs 
4 REM 8 COPYRIGHT (C) 1982 * 
S REM 8 BY MICRO-SPARC INC z 
& REM & LINCOLN, MA. 01773 e 
7 REM *& ALL RIGHTS RESERVED s 
B REM SEK eeeTAKK AAAS AR ARIE TES 
10 REM LC INPUT 

20 LC$ = "":UC = O 

30 FOR Qt = 1 TO 2 STEP O 


40 GET AS:AC = ASC (AS) 

SO IF (AC > 31 AND AC < 65) OR AC > 
90 THEN PRINT A$;:UC = O 

60 IF AC = 27 THEN UC = 1 

70 IF NOT UC AND AC > 44 AND AC < 
91 THEN AC = AC + 32: PRINT AS; 


80 IF UC AND AC > 64 AND AC < 91 THEN 


INVERSE : PRINT A%;: NORMAL :U 
c=0 

90 IF AC < > 27 AND AC < > 13 AND 
AC < > & THEN AS = CHRS (AC): 
LCS = LCS + AS 

100 QM = LEN (LC$) 

110 IF AC = & AND QM = 1 THEN IF ASC 
(LC$) > 31 THEN PRINT A$3: CALL 
— 868 

120 IF AC = 8 AND OM = 1 THEN LC$ = 

130 IF AC = 8 AND QM > 1 THEN IF asc 
( RIGHTS (LC$,1)) > 31 THEN PRINT 
A$;: CALL - 868 

140 IF AC = 8 AND QM > 1 THEN LCS = 
LEFT (LC$,QM — 1) 

150 IF AC = 13 THEN PRINT :QL = 2 

160 NEXT 


170 REM ON EXIT LC$% IS UPPER/LOWER 
CASE STRING 
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REM SUSSTSERETTATSTAK TATA 
LOWER CASE DEMO s 
BY BEN E. COLLEY x 
COPYRIGHT (C) 19862 % 
BY MICRO-SPARC INC * 
LINCOLN, MA. 01773 i 
ALL RIGHTS RESERVED x 
REM SESSA TEATS 
10 : 

20 : 

30 REM UPPER — LOWER CASE DEMONST 

RATION 


Onc UtWnre 
za 
88 
naeaenmnnm 


: 
60 TEXT £ HOME 
70 HTAB 8: PRINT 
R CASE” 


“UPPER CASE — LOWE 


80 HTAB 13: PRINT “DEMONSTRATION” 

90 PRINT CHR® (4);"BLOAD LC OUTPUT 

100 VTAB 5: HTAB 10: PRINT "ASCII C 
HARACTER SET" 

110 VTAB 7 

120 FOR I = 0 TO 127:LC®% = LCS + CHRS 
(1): NEXT 

130 CALL 748,LC$ 

140 FOR I = 1 TO 4000: NEXT 

150 HTAB 1: VTAB 5: CALL - 9598 

160 PRINT : PRINT “NOW YOU MAY TRY 
THE INPUT ROUTINE” 

170 PRINT “ESC KEY SIGNALS CAPITAL 
LETTERS" 

180 DIM IN$(5) 

190 FOR I =11T05 

200 PRINT I;") "; 

210 GOSUB 400 

220 IN®(I) = LCS 

230 NEXT 

240 REM PRINT THE MATRIX 

250 VTAB 14 


HTAB 9: PRINT 

KEYED” 

FOR I= 1705 
PRINT 437} “3 

CALL 768, INS$(I): PRINT 


“HERE IS WHAT YOU 


PRINT “THAT’S ALL!"; 

REM LC INPUT 

Lcs$ = "":UuC = O 

FOR @t = 1 TO 2 STEP O 

GET AS:AC = ASC (AS) 

440 IF (AC > 31 AND AC < 65) OR AC > 
90 THEN PRINT A$;:UC = 0 

AC = 27 THEN UC = i 

NOT UC AND AC > 64 AND AC < 

91 THEN AC = AC + 32: PRINT AS; 


470 IF UC AND AC > 64 AND AC < 91 THEN 
INVERSE : PRINT A%;: NORMAL :U 
c=0 

IF AC < > 27 AND AC < 
AC < > 8 THEN As = 
Lcs = LCS + As 

QM = LEN (LC$) 

IF AC = 8 AND QM = 1 THEN 
(LC$) 
- 868 
IF AC = 8 AND QM = 1 THEN LCS = 
IF AC = 8 AND QM > 1 THEN IF asc 
( RIGHTS (LC%,1)) > 31 THEN PRINT 
AS;: CALL - 868 

IF AC = 8 AND QM > 1 THEN LCS = 
LEFTS (LC$,QM — 1) 

IF AC = 13 THEN PRINT :QL = 2 
NEXT 

REM ON EXIT LC% IS UPPER/LOWER 
CASE STRING 

RETURN 


> 13 AND 
CHRS (AC): 


IF Asc 
> 31 THEN PRINT A$;: CALL 


570 


ower Case Input/Output eee 
03086:DO 05 46 
Cont ) O30A:AZ2 AS 47 
' LJ O30C:4C 12 D4 48 
OSOF:85 08 49 
0311:84 
2000: 2eesepeueuneues ep eceeueeses 0313:A0 o or 
2000: 38 * 0315:B1 08 32 
9000: 4 & UPPER/LOWER CASE OUTPUT s 0317:FO 39 53 
2000: S * BY BEN E. COLLEY % 0319: AA 54 
2000: & & COPYRIGHT (C) 1982 2 031A:CB S35 
2000: 7 % BY MICRO-SPARC INC s 031B:B1 08 36 
2000: 6 & THIS SUBROUTINE OUTPUTS THE & 031D:85 06 57 
2000: 9 * INVERSE/NORMAL CHARACTER % O31F:Ce8 56 
2000: 10 & STRING TYPICAL OF MOST TEXT & 0320:B1 08 59 
2000: 11 % EDITING PROGRAMS. 5 0322:85 07 60 
3000: i2 8 s 0324:86 08 61 
2000: 13 8 TO USE: s O326: 62 
2000: 148 CALL NNNN,STR 8 O326: 63 
2000: i568 % O326: 64 
000: 16 & WHERE: % 0326:A0 00 65 
2000: 17 8 NNNN = BLOAD ADDRESS 03286:B1 04 66 
2000: 18 8 STR = STRING VARIABLE & O32A:C9 20 67 
2000: 197e s O32C:BO 04 68 
2000: 20 & FOR EXAMPLE: 8 O32E:09 40 69 
2000: 21 8 CALL 768,LC® s 0330:D0 18 70 
3000: 22 8 s O332:C9 41 71 
}000: 23eeeecgcuaeeg eg ecg eeecuauaee 0334290 08 72 
0336:C9 SB 73 
0338:BO 04 74 
OAS: 25 BADTYP EQU $%A3 TYPE MISMATCH ERR CODE O33A:29 3F 75 
JEBE : 26 CHKCOM EQU S$DEBE CHECK FOR A COMMA O33C:DO OC 76 
-DF 4: 27 COUTZ EQU SFDFS VIDEO OUTPUT OS3E:C9 61 ras 
D412: 28 ERROR EQU $D412 APPLESOFT ERROR RTN 0340:90 06 78 
IFES: 29 PTRGET EQU $DFES3 GET VARIABLE ADDR 0342:C9 7B 79 
O11: 30 VALTYP EQU $11 APPLESOFT VARIABLE TYPE 0344:BO 02 80 
2000: Sif 0346:29 DF 81 
9040: 32 MFLASH EQU $40 MASK FOR FLASH OUTPUT 0348:09 80 82 
IOSF = 33 MINVRS EQU $3F MASK FOR INVERSE OUTPUT O34A:20 F6 FD 83 
2080: 34 MNORML EQU $80 MASK FOR NORMAL OUTPUT 034D:C8 84 
SODF = 35 MBIT2 EQU SDF MASK BIT 2 O34E:C4 08 8s 
9000: 36 8 0350:90 Dé 86 
006: 37 STRADR EQU $6 ADDR OF STRING 0352: 60 87 
008: 38 STRDSC EQU $8 ADDR OF STRING DESCRIPTOR 
9008: 39 STRLEN EQU $8 LENGTH OF STRING 
O353: 89 
——— NEXT OBJECT FILE NAME IS LC OUTPUT.S.OBJO O353: 90 
I300: 41 ORG $300 O353: me § 
9300: 20 BE DE 43 JSR CHKCOM GO FIND THE COMMA 
9303:20 ES DF 44 JSR PTRGET AND THEN THE STR ADDR 


a%% SUCCESSFUL ASSEMBLY: NO ERRORS 


BIT VALTYP INSURE VARIABLE IS A STRING 
BNE LCSTRT VARIABLE OK, GO BEGIN 
LDX *#*BADTYP SETUP ERROR CODE 
JmMP ERROR 
LCSTRT STA STRDSC SAVE DESCRIPTOR ADDR 
STY STRDSC+1 
LDY #0 
LDA (STRDSC),Y GET THE STRING LENGTH 
BE@ LCRTS LEN=0, GOBACK 
TAX CAN’T SAVE (YET) 
INY 
LDA (STRDSC),Y NOW GET THE ADDR 
STA STRADR 
INY 
LDA (STRDSC),Y GET THE HIGH PART TOO! 
STA STRADR+1 
STX STRLEN SAVE LENGTH 
* 
% SETUP DONE, PRINT THE STRING 
s 
LDY #0 INIT INDEX REG 
LCLOOP LDA (STRADR),Y GET CHAR TO OUTPUT 
CMP #$20 VAL < 32? 
BGE LCCHK2 NO, TRY NEXT 
ORA #MFLASH YES, SET FLASH 
BNE LCDSPL AND GO DISPLAY 
LCCHK2 CMP #$41 VAL < 65? 
BLT LCNORM YES, GO DISPLAY AS IS 
CMP #$5B VAL >= 917 
BGE LCNORM YES, DISPLAY AS IS 
AND #MINVRS NO, SET INVERBE RANGE 
BNE LCDSPL AND GO DISPLAY 
LCNORM CMP #$41 CHECK FOR 
BLT LCNRM2 PSEUDO LOWER CASE 
CMP %$7B MUST MASK THIS DATA 
BGE LCNRM2 
AND #MBIT2 CLEAR BIT (SUBTRACT 32) 
LCNRM2 ORA #MNORML SET NORMAL RANGE 
LCDSPL JSR COUTZ AND SEND TO VIDEO 
INY INCR TO NEXT CHAR 
CPY STRLEN MORE? 
BLT LCLOOP YES, GO AGAIN 
LCRTS RTS NO, GOBACK 
* 
s END 


Compare Basic Programs 


for Differences 


yy Charles Boody 
317 17th Ave North 
topkins, MN 55343 


| often use programs that are published in 
jarious journals, and almost always find they 
ack some small (and sometimes some large) 
yieces that will make them more useful for 
ne. Once! have made changes or additions, | 
ften like to pass the changes on to others in 
he form of an article or list of changes. Unfor- 
unately, it is difficult to remember what 
shanges have been made in which lines of 
what parts of which subroutines, and how 
hose changes affect other parts of the pro- 
jram. | also often find myself with more than 
yne version of a program: my own or public 
Jomain ones, that seem to have small differ- 
snces that are very hard to track down. Some- 
imes | find that | have kept several versions of 
1 program under development, but am not 
ure about the detailed differences in them. 
ther computer users often want to copy my 
nhancements, but not by hand. 


CAPTURE AND COMPARE 

To alleviate these problems, | wrote the 
,OMPARE AND CAPTURE programs. To 
ise them, you must first make a text file copy 
f the two programs you want to compare. | 
ise the COMPARE programs to do this. They 
re adaptations of program found in the 
\pple D.O.S. manual. A user should key in 
AAKE CAPTURE, save it BEFORE running; 
nd then RUN it. The program will create text 
les named CAPTURE.A and CAPTURE.| 


which can be EXECed. The command EXEC 
CAPTURE.A will add CAPTURE as line 63999 
of your Applesoft program. Similarly, the 
command EXEC CAPTURE.| will add lines 
32766 and 32767 to Integer Basic programs. If 
you have such line numbers in the program, it 
will be necessary to renumber them before 
EXECuting either version of CAPTURE. Once 
you have EXECuted CAPTURE, a RUN 63999 
command (RUN 32766 in Integer) will give 
you prompts to name the text file you are 
about to create, and then create the text file. 
Be careful NOT to give the text file the same 
name as the program, or you will have prob- 
lems and will get a FILE TYPE MISMATCH 
error, or worse, lose your program! If the pro- 
gram is very large, you will probably want to 
save the text file on a rather empty disk, for it 
will be very long. (A 65 sector program con- 
verted to a text file is 95 sectors long.) 


THE COMPARISON 

Once you have created appropriately named 
text files for the two programs you need to 
compare (I have fallen into the habit of calling 
them OLD and GNU for obvious reasons), a 
RUN COMPARE will produce a listing show- 
ing each Changed statement, each Deleted 
statement, and each Added statement. 

In the instances where a statement was 
changed, the old and new versions will both 
be printed with appropriate FROM and TO 
remarks. If you wish, it will also create a text 
file that can be EXECuted to update earlier 
versions conveniently. 


LIMITATIONS 
There are some limitations to the program 
that could cause minor difficulties for the 


user. The inclusion of some special control 
characters in a program might cause prob- 
lems for the printer. A program line contain- 
ing more than 255 characters will get broken 
into two lines. Normally this is not a problem, 
butif by chance the point of break was imme- 
diately followed by anumber greater than the 
line number currently being processed, your 
output could be quite scrambled. Neither of 
these problems has occurred in my use of the 
program. Finally, both versions of the pro- 
gram should have been similarly numbered 
(line numbers) to begin with, or the results, 
though accurate, will be rather meaningless. 


MODIFICATIONS 

Users will undoubtedly want to adapt the 
program to their own printers, and it should 
be easy to do so. The printer on/off routines 
are clearly marked and should be adjusted to 
conform to your printer. Another change you 
may want to make is clearly marked by aREM 
statement: the variable LL which controls the 
length of the printed line. 

There are many other uses for the CAP- 
TURE programs. One can enter changes toa 
program that appear in a journal, use CAP- 
TURE to turn the changes into a text file, and 
EXEC that text file to put the changes into the 
original program without the usual laborious 
searching for lines and making the changes 
one by one. 

| hope others will find these programs as 
useful as | have for keeping track of changes 
in programs. The whole procedure could also 
be programmed in Integer BASIC without 
much difficulty. Perhaps ata later date some- 


one will do so. @ 
listed on next page 
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Compare Basic Programs for 
Differences (Cont.) 


1 REM x kk RRR RR RRR RR RR RE 
2 REM «* COMPARE PROGRAM * 
3 REM * BY * 
4 REM * CHARLES G. BOODY * 
5 REM * 96/81/88 * 
6 REM « COMMERCIAL RIGHTS * 
7 REM * RESERVED * 
B REM eee keke eR KR RR RR 
19 REM 


26 REM «« LENGTH OF PROGRAM LINE TO BE 
38 REM «* PRINTED ON A SINGLE LINE IS 
49 REM »** SET BY LL IN THE STATEMENT 
59 REM »** BELOW 
68 LL = 59 

72 TEXT, SeHOME .: 
89 MAXFILES = 4 


VTAB 5 


199 REM ++ ENTER THE NAMES FILES TO BE 

119 REM «* COMPARED--MUST BE TEXT FILES 

120 REM «** CREATED BY EXEC OF CAPTURE 

130 REM «» GIVE NAME OF CHANGE FILE 

149 REM «+ IF ONE IS TO BE CREATED 

158 D$ = CHR$ (4): INPUT "OLD PROGRAM TEXT F 
ILE NAME ":O$: INPUT "NEW PROGRAM TEXT F 
ILE NAME ";N$ 

168 VTAB 12: INPUT "MAKE AN EXECUTE FILE OF 
THE CHANGES? = (1=YES, @=NO)--PRESS RET 
URN ";CK%: IF CK% < > 1 AND CK% < > 2 THEN 
PRINT CHR$ (7);: GOTO 179 

170 IF CK% = 1 THEN INPUT "NAME THE EXEC FI 
LE: ":C$: PRINT D$;"OPEN";C$: PRINT D$;" 
DELETE" ;C$: PRINT D$; "OPEN" ;C$ 

188 GOSUB 1980: REM PRINTER ON 

198 ONERR GOTO 770 

268 GOTO 458 

219 REM 

220 REM ++ GETS A STATEMENT FROM THE 

230 REM +s» "OLD" FILE 

249 REM 

250 OS$ = "": PRINT D$;"READ ";0$ 

268 GET AS: IF AS < > CHR$ (13) OR LEN (0 
S$) = @ THEN IF LEN (OS$) < 255 THEN O 
S$ = OS$ + A$: GOTO 269 

278 PRINT : RETURN 

280 REM 

299 REM ++ GETS A STATEMENT FROM THE 

300 REM +» "NEW" FILE 

318 REM 

328 NS$ = "": PRINT D$;"READ ";N$ 

330 GET A$: IF A$ < > CHR$ (13) OR LEN (N 
S$) = @ THEN IF LEN (NS$) < 255 THEN N 
S$ = NS$ + A$: GOTO 339 

349 PRINT : RETURN 

358 REM 

360 REM +* PRINTS A STATEMENT 

370 REM ++ IN LL LONG LINES 

380 REM 

399 II = @ 

492 10 = II + 1:11 = II + LL: PRINT TAB( 12) 
; MID$ (J$,I10,LL): IF II < LEN (J$) THEN 
408 

419 RETURN 

428 REM 

43 REM ++ MAIN PROGRAM LOOP 

44 REM 

458 PRINT D$;"OPEN "O$: PRINT D$;"OPEN ":N$ 

462 GOSUB 258: GOSUB 329 

47® REM 

480 REM ++ IF STATEMENT # SAME AND 

499 REM ++ CONTENTS SAME IGNORE 

500 REM 

518 OS = VAL (OS$):NS = VAL (NS$): IF VAL 
(oss) = VAL (NS$) AND OS$ = NS$ THEN 46 


528 REM 

538 REM +** IF STATEMENT #S SAME BUT 
548 REM ** CONTENTS NOT PRINT "CHANGED" 
55@ REM ** AND GET NEXT STATEMENT 

568 REM 
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5768 


IF VAL (OS$) = VAL (NS$) AND OS$ < > 
NS$ THEN PRINT "CHANGED ": PRINT TAB( 
5); VAL (OS$);:J$ = OS$: GOSUB 398: PRINT 
"TO:": PRINT TAB( 5); VAL (NS$);:J$ = N 
S$: GOSUB 398: GOSUB 878: GOTO 469 

REM 

REM ««* IF OLD LINE# < NEW THEN 

REM «** OLD LINE WAS DELETED 

REM «** PRINT FACT AND GET NEXT 


IF VAL (OS$) < VAL (NS$) THEN PRINT " 
DELETED ": PRINT TAB( 5); VAL (OS$); :J$ 
= 0S$: GOSUB 398: GOSUB 259: GOSUB 969: 
GOTO 519 

REM 

REM «*+* IF NONE OF ABOVE THEN 

REM «* NEW LINE IS ADDED. 

REM ** PRINT FACT AND GET NEXT. 

REM 

PRINT "ADDED ": PRINT TAB( 5); VAL (NS$ 
);:J$ = NS$: GOSUB 398: GOSUB 328: GOSUB 
878: GOTO 519 


REM «* WHEN A FILE IS EMPTY 
REM «** DETERMINE WHICH AND 
REM »** ALL IN REMAINING FILE 
REM +** ARE EITHER ADDED OR 
REM ++ DELETED. 


X = PEEK (218) + PEEK (219) * 256: POKE 
216,08: ONERR GOTO 19398 

IF X > 318 THEN 899 

PRINT "ADDED:": GOSUB 328:J$ = NS$: GOSUB 
398: GOSUB 878: GOTO 799 

IF VAL (OS$) < > NS THEN PRINT "DELET 
ED:":J$ = OS$: GOSUB 399 

PRINT "DELETED:": GOSUB 258:J$ = OS$: GOSUB 
398: GOSUB 968: GOTO 819 


REM »** IF CREATING EXEC FILE 
REM ** STORE CHANGED OR ADDED 
REM *»* LINE. 


IF CK% = @ THEN RETURN 

PRINT D$; "WRITE ";C$: PRINT J$ 
PRINT 

PRINT D$;"READ";C$: RETURN 

REM 

REM ** IF CREATING EXEC FILE 
REM +** AND STATEMENT IS DELETED 
REM +** STORE STATEMENT NUMBER 


IF CK% = 8 THEN RETURN 

PRINT D$;"WRITE ";C$: PRINT VAL (J$) 
PRINT D$;"READ";C$: RETURN 

REM 


REM +** END OF BOTH FILES REACHED 
REM ** SO PROGRAM ENDS 

REM 

PRINT : PRINT "END OF COMPARISONS": PRINT 
D$; "CLOSE": GOSUB 1998 

END 

REM 

REM +*+**PRINTER ON AND OFF 

REM 

PRINT D$: PRINT D$;"PR#1": RETURN 
PRINT D$: PRINT D$;"PR#8": RETURN 





REM $555 35 555555555555 8 8 | 


1 

2 REM * MAKE CAPTURE * 

3 REM * BY CHARLES BOODY st 

4 REM * COPYRIGHT (C) 1982 & 

S REM * BY MICRO-SPARC INC & 

& REM * LINCOLN, MA. 01773 8 

7 REM PERSE SSS ESSER SESS SSS 8 8 

10 D$& = CHR (4):A% = "CAPTURE.A": PRINT D$; "OPEN"; AS 


: PRINT D$"WRITE ";A$: POKE 33,30: LIST 63999: PI 
D$;"CLOSE";A$: TEXT ' Sepentts 
20 PRINT D$;"LOCK";AS 
30 D$ = CHR$ (4):A$ = "CAPTURE.I": PRINT Ds:" 
é ; "OPEN"; As 
: PRINT D$"WRITE ";A$: POKE 33,36: LIST 32766, 327 
67: PRINT D$;"CLOSE";A$: TEXT . 
4@ PRINT D$;"LOCK";A$: END 
32765 REM IN THE NEXT STATEMENT, INSERT A CONTROL- 
BETWEEN THE QUOTES IN D$ = "™ sowie 
32766 DIM A$(20):D$ = "": INPUT "TEXTFILE NAME ” 
RL ME", A$: PRINT 
32767 PRINT D$; "WRITE ";A%: POKE 33,30: LIS 
4 : T¢@ : 
PRINT D$;"CLOSE";A$: TEXT : END poise 
63999 D$ = CHR$ (4): INPUT "TEXTFILE NAME * 
; H 3A$: PRINT 
D$;"OPEN";A$: PRINT D$"WRITE ";A$: POKE 33,30; LIST 
9,63998: PRINT D$;"CLOSE";A$: TEXT : END @ 


‘Apple Binary Clock 


by Rip Toren 
401 Cherry Lane E206 
Laurel, MD 20810 


How many times have you finished work on 
a project and turned off your display, but left 
your Apple on? Not very interesting, is it? | do 
that to save wear and tear on the power 
switch, and a big repair bill. Well, one day | 
was sitting in an office, and noticed a small 
square box with blinking lights. After a few 
moments of reflection, | realized that it was a 
binary clock. The display was much more 
enjoyable to watch while | waited for my 
appointment than a wall clock. At that point, | 
decided to write a binary clock program for 
my Apple. It was going to be an interesting 
excercise in cycle counting, | thought. 


THE PROGRAM 

The program is set up to runa binary clock, 
using LO-RES graphics for the display. The 
actual timing comes from a number of delay 
loops, each with successively finer resolu- 
tion. The columns are read from left to right, 
with the first column being hours (1-12). 
Then follows tens of minutes, then minutes, 
etc. The values read top to bottom, with the 
top row being 2**0. 


BINARY CLOCK VALUES 


OMOO0O : 
UBODOOG : 
BUOSB : 
US BBO : 


ey ye tp 


Examine the values to the right in Illustra- 
tion 1 above. The bottom row lights each have 
a value of “8”. The next row has a value of 
“4”... the next is “2”... and the top rowis “1”. 

In Illustration 1, the correct time is 11:47:39 
(by reading the white — lighted — blocks). 


ENTERING THE PROGRAM 
The machine language program can be 
entered directly into your Apple’s memory 
using the instructions on the Letters page of 
this issue. Your first entries from the Monitor 


will be: 0800: 4C 23 08 47 etc. When the pro-, 


gram has been entered into memory, press 
CTRL C to reenter Applesoft and type: BSAVE 
BCLOCK, A$800, L$209 to save it to disk. You 
can then BRUN BCLOCK to run it. 


IN OPERATION 

When you BRUN the program, the screen 
will clear, and you will be asked for the initial 
setting. You enter the values for each column, 
and then press the RETURN key. The screen 
will clear, and then nothing will happen. The 
program is waiting for you to press another 
key to get it started. That is to allow it to sync 
as closely as possible to the initial values. 


CYCLE COUNTING 

As it turned out, the cycle counting was not 
as bad as! had anticipated. But let me digress 
for a moment. | have been doing 90% of my 
programming in assembly language since | 
purchased my Apple. Many times | have seen 
the claims of some package for how fast it 
runs due to the use of assembly language. 
Well, the first version of this program was 
written in Integer Basic. Unfortunately, | could 
not get it to run fast enough. It was always 
losing time. So, | was rather amazed at the 
magnitude of the delay routines that are used 
in the. assembly language version. As the 
code stands now, there is approximately 0.31 
second of delay looping. That would appear 
to give it about a 50% edge in speed. 


settings. This would involve starting the proc- 
ess, measuring the error after 10 minutes, and 
making adjustments. 


THE SETTINGS 

The current settings give good results, at 
least on my system, but | don’t believe that all 
Apples run at exactly the same number of 
microseconds per cycle. | have found values 
from 1.023 to .9799269 microseconds in dif- 
ferent sources. So you may have to adjust the 
values to suit your own machine. The diagram 
below shows the structure of the timing loop 
itself: 


loop on %X for n times (GROSS) 
call DELAY with value (DELAYO) 
end loop 

call DELAY with value (DELAY1) 
loop on %X for (DELAY2) times 


When you are adjusting your clock, you will 
probably want it to run for 12 hours or so to be 
sure that you are within acceptable limits. As 
you can see from the listing, all the values that 
you will be using are located from $803-$806, 
so if you type in the machine code, you will 
only have to change these few once it is 
entered. 

To find out how much change will take 
place when you adjust the value passed to the 
DELAY routine, the following formula is 
provided: 


CYCLE DELAY = (2.5 * %A* %A) + 
(13.5 * %A ) + 13 


As a humorous aside, we had the clock run- 
ning one evening while we had company visit- 
ing. Someone asked what time it was, and 
since | had the Apple hooked to the TV set, | 
just changed the channel, read off the time 
and went back to the show we were watching. 
Our friends became very curious as to just 
what channel it was, and what the display had 





HOURS MINUTES SECONDS ADD THE Rather than do a critical cycle analysis, | 
LIGHTED ~—used abracketing technique to find the optimal 
VALUES 
ooo f SeRnaaeeeaaseseasscens : 
jooutat BINARY CLOCK Ps OBOD- 10 
Sct: BY RIP TOREN * OB0E- oC 
toao  ® COPYRIGHT (C) 1982 & OB0F- 08 
toso x * BY MICRO-SPARC INC * OB10- 04 
1060 * 2 S-C ASSEMBLER 2 0811- 02 
iititisitiititittitity 0812- AO cB cB 
pee 0815- AO CD AD 
1080 *----- EQUATES ------------------- Saino eee ice 
0000- 1090 Z.00 .EQ $00 eae ees 
002C- 1100 H2 -EO $2C peepee A 
002E- 1110 MASK .EO $2E als ee ee 
0030- 1120 COLOR .EQ $30 
00A2- 1130 Z.A2 .EQ $A2 b 
OOFD- 1140 Z.FD .EQ $FD SAVE LOC O823- 20 58 FC 
OOFE- 1150 Z.FE  .EO $FE SAVE LOC 
OOFF- 1140 Z.FF .E0 $FF SAVE LOC 
eee 0826- AZ 00 
0200- 1180 INBUFF .E $0200 Seen ae 
coo0- 1190 KEYBD .EQ $Co00 0B2B- FO 07 
co30- 1200 SPKR  .EQ $CO30 teen a oa 
FB1C- 1210 HLIN .EQ $FB1C hehe 
F847- 1220 GRACAL .EQ $F847 Sesto an oat ees 
FB40- 1230 SETGR .EO $FB40 
FCAB- 1240 WAIT .EQ $FCAS 
FD&7- 1250 GETLNZ .EQ $FD47 bales a: 
FDED- 1260 COUT .EQ SFDED eiees Taine 
iano ; OB839- 20 BF 09 
983C-— g 
1290 * START OF PROGRAM paneccest carne 
5 x eee 0842- 20 BF 09 
wale . . 
0800- 4C 23 08 1320 IMP START pees in - ae 
Pape 0B84B- 20 GF 09 
1340 * THE FOLLOWING ARE THE DELAY cacectant eahae 
1350 x LOOP PARAMETERS te de ks 
jelae. 0854- 20 8F 09 
0803- 47 1370 GROSS .DA #$47 eae Sapte tee 
0804- 48 1380 DELAYO .DA #48 Foxe seam vee 
oB05- 01 1390 DELAY1 .DA #$01 pata os ie 
0806- o1 1400 DELAY2 .DA #01 eee Lean ee 
Lee OF 0863- 8D OC 08 
1420 * LOCATION FOR INDIVIDUAL DIGITS ripdigh gees 
0807- 00 1430 TBASE .DA #0 
~ 9808- 00 1440 HRS -DA #0 
0809- 00 1450 MIN1O. .DA #0 VISE aouae 
OB0A- 00 1460 MINOQ1 .DA #0 Beye, eae 
O80B- 00 1470 SEC1O .DA #0 
OB0C- 00 1480 SECO1 .DA #0 
1490 x 
1500 * THESE ARE THE FUDGE VALUES FOR 


1510 


* LEAVING THE CASCADE OF VALUES 


been. 
Have Fun! g 
1520 * EARLY 
1530 k 
1540 DELAYS .DA #16 
1550 DELAY4 .DA #12 
1560 DELAYS .DA #08 
1570 DELAYS .DA #04 
1580 DELAY7 .DA #02 
1590 MSG -AS -/ HH MMS S TIME™/ 
160.0 OOOO IORI OO OI OI 
1610 START JSR $FCS8 MON.HOME 
1620 *---------~—------—~—~-~---=---------- 
1630 * PRINT OUT THE TME SET MSG 
1640 
1450 LDX #0 
14660 .1 LDA MSG, X 
1470 BE@ SET.T 
1680 JSR COUT 
1690 INX 
1700 OMe od 
17140: * 
1720 * PROCESS THE TIME SET INPUT 
1730 SET.T JSR GETLNZ 
1740 LDY #$00 
1750 JSR ASD2B 
1760 LDA ASDLSB 
1770 STA HRS 
1780 JSR ASD2B 
1790 LDA ASDLSB 
1800 STA MIN10O 
1810 JSR ASD2B 
1820 LDA ASDLSB 
1830 STA MINO1L 
1840 JSR ASD2B 
1850 LDA ASDLSB 
1860 STA SEC10 
1870 JSR ASD2B 
1880 LDA ASDLSB 
1890 STA SECO1 
1900 JSR SETGR 
1910 x 
1920 x WAIT FOR KEYPRESS TO START 
1930 KPRESS BIT KEYBD 
1940 BPL KPRESS 
1950 * 
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Apple Binary Clock (Cont.) 0940- A6 FF =: 3120 LDX Z.FF 


0942- 60 3130 RTS 
3140 8 
1960 * INCREMENT SECONDS UNITS aie eet Calor 
OB6E- 8D 30 CO 1970 SECO STA SPKR sane uk. NE SiGe ROR VALUE 
0871- EE OC 08 1980 INC SECO1 ean aaa aaa BCC .1 
0874- AD OC 08 1990 LDA SECO1 pice net te FOR TIMING 
0877- C9 0A 2000 CMP #$0A Tees wed at ean 
0879- FO 06 2010 BEQ SETS10 pee a pe ara COLOR 
087B- AD OD 08 2020 LDA DELAYS pia RA og sees 
087E- 4C DD 08 2030 JMP DELAY Sorte 
2040 * : 
2050 * INCREMENT SECONDS TENS 0950- AP : z Set + oa dd i 
oBsi- Az 00 2060 SETS10 LDA #%00 0752- “ a hide 
0883- 8D OC 08 2070 STA SEEOt 095 S250) 
0886- EE OB 08 2080 INC SEC1 
0889- AD OB 08 2090 LDA SEC10 0957- 40 ha ce RTS 
ae- a4 Be outs ana Mis 3290 &* ROUTINE TO INTERFACE TO THE 
OBBE- na 
0890- AD OE 08 2120 LDA DELAY4 $300 : LO-RES GRAPHICS IN MONITOR 
ECE LEV TG hie i = olla ght o958- 66 FD 3320 DISP STX Z.FD SAVE %X 
- FC 08 3330 LDA S.COL 
2150 * INCREMENT MINUTES pad re Cc std i he See es 
0896- A? 00 2160 MINO LDA #$00 lh <aay Ri ween oa 
ce ee, Oe ie SA 79 hari 0940- 85 2C = 3340 STA H2 
PO9 5 EEA) 08 12180 ‘Nee 0962- AZ 03 =. 3370 LDX #$03 LOOP COUNT 
OB9E- AD OA 08 2190 Eng Mer 0964— AD FE 08 3380 .1 LDA TH.ROW 
Sense? OA 2208 Soha 0967- 86 FE 3390 STX Z.FE 
OBAS- FO 04 2210 pes seri 0969- 20 47 F8 3400 JSR GBACAL 
OBAS- AD OF 08 2220 LDR BELANS 096C- AV FO 3410 LDA #8FO 
oBAB- 4C DD 08 2230 aE et O96E- 85 2E 3420 STA MASK TOP HALF OF 
2240 — 30 LDY S.COL ROW 
2250 * INCREMENT MINUTES TENS eho < Kes Pia the. eae ta ue 
OBAB- AF 00 2260 SETM10 LDA #$00 packs neiie gles LDA #S0F 
OBAD- 8D OA 08 2270 STA MINO1 0978- 85 2E 3460 STA MASK BOTTOM HALF 
O8BO- EE 09 08 2280 INC MIN1O 097A- AC FC 08 3470 LDY S.COL OF ROW 
OBB3- AD 09 08 2290 LDA MIN1O 097D- 20 1C F8 3480 JSR HLIN 
OBBé- C9 06 2300 CMP #806 0980- EE FE 08 3490 INC TH. ROW 
OBBB- FO 06 2310 BEQ HOURS O983- Ab FE 3500 LDX Z.FE 
O8BA- AD 10 08 2320 LDA DELAYS 0985- CA 3510 DEX 
OBBD- 4C DD 08 2330 JMP DELAY 0986- DO DC 3520 BNE .1 END LOOP 
2340 * 0988- AS FD 3530 LDX Z.FD RESTORE %X 
2350 * INCREMENT HOURS Oo98A- 40 3540 RTS 
osco- az 00 2360 HOURS LDA #$00 mss 
08C2- BD 09 08 2370 STA MINIO 3560 * THIS ROUTINE INTERPRETS THE 
O8C5- EE 08 08 2380 INC HRS 3570 & INPUT LINE WITH THE INITIAL 
O8CB- AD 0B 08 2390 LDA HRS 3580 * SETTINGS 
OBCE— C9 OD 2400 CMP #80D 3590 * IT WILL CONVERT A 5 DIGIT ASCII 
OBCD- FO 04 2410 BEQ CYCLEH 3600 % VALUE SEPERATED BY BLANKS INTO 
OB8CF- AD 11 08 2420 LDA DELAY7 3610 # A BINARY NUMBER IN ASLSB,ASMSB. 
3620 * MULTIPLE CALLS WILL MOVE DOWN THE 
O0BD2- 4C DD 08 2430 IMP DELAY Seen 4. cee Ge 
2440 * ° 
2450 % RESET HOURS TO 1 te e pins fem BESET IF GREATER 
oBDS- A 01 2460 CYCLEH LDA #$01 mand # s 
“ STA HRS 
ae oc me = aan IMP DELAY O98B- 00 3670 ASDLSB .DA #0 
SP 2. ie ay Ee eee ree, 09a8C- 00 34680 ASDMSB .DA #0 
2500 * DELAY LOOPS 098D- 00 3690 ASDTMP .DA #0 
S510 Saw ee eee O98E- 00 3700 ~DA #0 
2520 * DELAY FOR CASCADE FUDGE O9BF- BY 00 O02 3710 ASD2B LDA INBUFF,Y 
2530 DELAY 0992- C9 AO 3720 CMP #8A0 
OBDD- AA 2540 TAX 0994- DO 03 3730 BNE ASDGO 
OBDE- CA 2550 .1 DEX 0996- CB 3740 INY 
OBDF- DO FD 2560 BNE .1 0997- DO Fé 3750 BNE ASD2B 
2570 8 0999- AP 00 3760 ASDBO LDA #800 
2580 &* MAJOR DELAY LOOP O99B- 8D BC 09 3770 STA ASDMSB 
OBE1- AE 03 08 2590 LDX GROSS 099E- 20 BB 09 3780 - JSR NU.DGT 
OBE4- AD 04 08 2600 .2 LDA DELAYO O9A1- BO 11 3790 BCS I.09AE 
OBE7- 20 AB FC 2610 JSR WAIT O9A3- BD BB OF 3800 STA ASDLSB 
OBEA- CA 2620 DEX OFAS- AZ 04 3810 LDX #804 
OBEB- DO F7 2630 BNE .2 O9AB- 20 BB 09 3820 NX.DGT JSR NU.DGT 
2640 & OFAB- BO 06 3830 BCS RTSS 
2650 * MINOR DELAY LOOP O9AD- 20 CC 09 3840 JSR MULT.10 
OBED- AD OS 08 2660 LDA DELAY1 O9B0- CA 3850 DEX 
OBFO- 20 AB FC 2670 JSR WAIT 09B1- DO FS 3860 BNE NX. DGT 
2680 O9B3- 60 3870 RTSS RTS 
2690 * FINE TUNE DELAY 3880 * 
OBF3- AE 06 08 2700 LDX DELAY2 3890 # 1 IS THE VALUE OF BAD INPUT 
O8F4- CA 2710 .3 DEX O9B4— AP O1 3900 I.09AE LDA #801 
O8F7- DO FD 2720 BNE .3 O9Bé- BD 8B 09 3910 STA ASDLSB 
OBF9- 4C£ 00 09 2730 JMP PROCESS O9B9- DO FB 3920 BNE RTSS 
2740 #------~----------~-~~-----------_- O9BB- B9 00 02 3930 NU.DGT LDA INBUFF,Y 
O8FC- 00 2750 S.COL .DA #0 START COLUMN O9BE- C9 BO 3940 CMP #$BO 
O8FD- 00 2760 S.ROW .DA #0 START ROW 09CO- 90 08 3950 BCC ASDRTN 
OBFE- 00 2770 TH.ROW .DA #0 THIS ROW BEING PROCESSED 09C2- C9 BA 3960 CMP #sBA 
O8FF- 00 2780 VALUE .DA #0 VALUE FOR THIS COLUMN O9C4— BO 04 3970 BCS ASDRTN 
2790 %----=-----—-~--- ~~~ O9Cé-— 29 OF 3980 AND #80F 
0900- a9 29 2800 PROCESS LDA #$29 o9ce- cB 3990 INY 
0902- 8D FC 08 2810 STA S.COL 09C9- 40 4000 RTS 
0905- A2 05 2820 LDX #$05 4010 * 
0907- BD 07 08 2830 .1 LDA TBASE, x o9cA- 38 4020 ASDRTN SEC 
O90A- 8D FF 08 2840 STA VALUE O9CB- 60 4030 RTS 
o90D- 38 2850 SEC SET THE COL. 4040 8 
O90E- AD FC 08 2860 LDA S.COL VALUE FOR 4050 MULT. 10 
0911- E9 08 2870 SBC #s08 THIS VALUE O9CC- 8D BD 09 40460 STA ASDTMP 
0913- 8D FC 08 2860 STA S.COL O9CF- AD BC 09 4070 LDA ASDMSB 
0916- 20 1F 09 2890 JSR PROC.V BREAK INTO 09D2- 48 40680 PHA 
0919- CA 2900 DEX BITS O9D3- AD BB OF 4090 LDA ASDLSB 
O91A- DO EB 2910 BNE .1 O9Dé- 48 4100 PHA 
091C- 4C 4E 08 2920 IMP SECO O9D7- OF BB OF 4110 ASL ASDLSB 
2930 * O9DA- 2E BC 09 4120 ROL ASDMSB 
2940 * O9DD- OE BB 09 4130 ASL ASDLSB 
2950 * PROCESS ONE VALUE A BIT AT A TIME O9EO- 2E BC 09 4140 ROL ASDMSB 
O91F- 86 FF 2960 PROC.V STX Z.FF Sees be atat Ain 
0921- AF 02 2970 LDA #$02 START ROW FOR O9E4— 6D BB 09 41460 ADC ASDLSB 
0923- 8D FD 08 2980 STA S.ROW EACH VALUE O9E7- @D BB 09 4170 STA ASDLSB 
0926- A2 04 2990 LDX #604 O9EA- 48 4180 PLA 
sted O9EB~ 6D BC 09 4190 ADC ASDMSB 
3010 * GET EACH BIT VALUE a 
0926- 20 43 09 3020 PROG.B SSH SET. Coren OnFi- O8. 8D. OF 4210 ASL ASDLSB 
092B- AD FD 08 3030 LDA S.ROW O9F4— 2E BC 09 4220 ROL ASDMSB 
092E- 8D FE 08 3040 STA TH. ROW O9F7= AD BD co? e250 
0931- 20 58 09 3050 JSR DISP Buon Ie 
0934- 18 O9FA- 6D BB OF 4240 ADC ASDLSB 
= 3060 cLc O9FD- 8D 8B 09 4250 STA ASDLSB 
0935- AD FD 08 3070 LDA S.ROW anDO= AP. Od 45n8 Udine 
oe Bano paren eee ae ae OA02- 6D BC OF 4270 ADC ASDMSB 
ler ee a OAOS- 8D BC 09 4280 STA ASDMSB # 
OAOB- 40 4290 RTS 
O93E- DO EB 3110 BNE PROC.B 
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ave you ever wished that Applesoft 
[4 had a few choice commands to make 
your programming easier? Like a tone 
generator, or an INPUT that lets you enter 
commas, or a fast substring search? And 
while we're at it, why not have an easier way to 
call system routines in the Monitor or DOS? 
The program should be just as easy to use as 
Tag Sort (Nibble Vol. 2 #6); in fact we want 
Tag Sort to be included. 
Well, you can have it working for you on 
your own Apple || so read on! 
To use Amp-L-Soft, you need an Apple II 
with at least 32K, Applesoft irr ROM (a RAM 


card with FPBASIC is great!), and a disk 
drive. 


HOW TO USE Amp-L-Soft 
The entire package comes in a binary file 
called Amp-L-Soft. From the keyboard, you 
can type BRUN Amp-L-Soft. From a program, 
you need three statements: 


10 DEF FN AD(X) = PEEK(X) + 
256*PEEK(X+1) 

50 PRINT CHR$(4); “BLOAD AMP-L-SOFT” 

60 CALL FN AD(FN AD(999)-79) 


Be sure you load and call Amp-L-Soft before 
any DiMension statements. Do it at the be- 
ginning of the program, or better yet, in the 
HELLO program. 

If you want to remove Amp-L-Soft from 
your memory and reclaim its space, then use 
the FP command. 

When you load and run this package, it is 
located at $4750 where it can keep below the 
DOS of a 32K system. Amp-L-Soft relocates 
itself forward in memory if you have a 48K 
system, and then moves its routines to $80C 
and sets the ampersand hook at $3F5.3F7. 

You can use any of the ampersand routines 
present by a simple statement from Apple- 
soft. You always use the same form: 


&x( parameter list ) 


where x is the letter code for the routine: 


TAGSORT... &A(S$, T%, F, L) 
SUBSTRING... &B(A$, B$, P%) 
SYSCALL... &C(A, X, Y, R, C%) 
INPUT... &I(IN$) 
TONE... &N(P, D) 


Currently, you have A, B, C, I, and N de- 
fined for your use. Just give each routine the 
parameters it needs, and it will do what you 
want. 

Any parameter you give a routine is one of 
three kinds. If it is a value, you can give it any 
legal Applesoft expression like 5 or FN 
LO(C1). If itis a variable, then you can give it 
either a simple variable like A$ or C%, or else 
an array variable like T%(5) or D(34, 2). But, if 


itis an array name, then just give it A$, say, for 
an array DIMensioned as A$(N). Keep values 
within the ranges given. With variables, use 
only the type shown: integer, real, or string. 
You can use any routine by passing it the 
parameters — values, variables, and names 
— it requires. 


HOW TO LOAD Amp-L-Soft 

Amp-L-Soft is made up of 2 assembly lan- 
guage program segments and 1 Basic pro- 
gram called BOOTER. If you are entering 
the machine language directly into memory, 
here’s how to a) Enter and Save each seg- 
ment; and b) Merge the two segments into the 
final program. 

The entry of each program segment is 
begun by typing: CALL-151 to enter the Moni- 
tor. At that point, the screen will display an 
asterisk (*). 

Now look for the first place in the program 
where machine code appears in the second/ 
third/fourth columns immediately following 
the colon. For example, in LOADER, the 
machine code begins at memory location 
$4750 (hex) with the codes AQ OF, and con- 
tinues with 85 51 A9 00 etc. 

Now, type in the starting memory address 
of the code; in the example, this is memory 
address $4750 (hex). Now you can begin 
entering the code by typing: 


4750:A9 OF 85 51 A9 00 85 50 AS 67 etc. 


For additional information on how to enter 
machine language code, refer to the instruc- 
tions on the Letters page of this issue. 


When you have finished typing in the code, 
you can save it to disk with the following 
command: 


BSAVE LOADER, A$4750, L$AC 


In like fashion, enter the other segment and 
save it with the command: 


BSAVE AMP-L-SOFT UTILITIES, 
A$80C, L$642 


Now, you can Merge the program seg- 
ments with the following steps. They’re alittle 
complicated so please follow them exactly. 
With the two routines now stored on disk, 


type: 


BLOAD LOADER, A$4750 
BLOAD AMP-L-SOFT UTILITIES, A$480C 


Now, all the routines are merged in memory 
and must be saved as a block. This can be 
done with the command: 


BSAVE AMP-L-SOFT, A$4750, L$6FE 


It is this last program, Amp-L-Soft, which 
will be operational when you run the Apple- 
soft Basic Loader called BOOTER. It is this 
program which you would transfer to other 
disks in order to build turn-key applications. 

For the moment, let Amp-L-Soft stay com- 
fortably on the disk while you type in the 
Applesoft BOOTER program (Listing #1). 
This program loads Amp-L-Soft, relocates it 
to lower memory, and then sets up the Apple- 


soft Pointers to accept your own programs. It 
is suggested that this Booter program be 
made the HELLO program on any disk which 
you wish to use for automatically loading 
Amp-L-Soft. 

Having typed in BOOTER, now save it on 
disk. 

Now you can run BOOTER and it will set 
everything up to try out the program with the 
Amp-L-Soft demonstration (Listing #2). 

Let’s look at each of these routines and see 
what you can do with them. 


SYSCALL 

How often have you seen a routine in Moni- 
tor, Applesoft, or DOS and wished you could 
have used it without having to program the 
machine language needed to call it? For 
instance, to print a number in hex, the moni- 
torhas acouple of neat routines, but you have 
to load the byte you wish to convert into the 
A-register first. But you couldn't do that from 
Applesoft, so you had to do some tricky 
programming. 

A good trick is to have one calling routine 
written in machine language to load the regis- 
ters, make the system call, and then return the 
carry flag to your Applesoft program. Why the 
carry flag? Because some system calls will 
tell you if an error occurred or not by using 
the carry flag. A famous example of this is 
RWTS in the heart of DOS. By having a call 
routine like this, you can use many of the 
system calls that are unavailable from Apple- 
soft. 

A syscall routine can load the A-register, 
the X-register, and the Y-register with the 
values passed to it from your Applesoft pro- 
gram; then call the memory address you also 
passed to it from the Applesoft program; and 
finally pass the carry flag back to your pro- 
gram. So, when using SYSCALL, you give it 
five parameters: A-reg, X-reg, Y-reg, call ad- 
dress, and the carry flag. The first four are 
values, so any Applesoft expression can be 
used. But the fifth parameter — the carry flag 
— must always be an integer variable. As an 
example, here’s how you can print a hex 
number: 


&C(127, 0, 0, 64986, C%) 


This prints 7F — the hex equivalent of 127 
— for you. In this example, the A-reg was set 
to 127, the X-reg to zero, the Y-reg to zero, 
and the call address was set to 64986 in the 
Monitor. The integer variable — C% here — 
must always be provided to capture the carry 
flag, regardless. 

You can see a number of SYSCALL se- 
quences in Table 1. Most of the routines are in 
the Monitor, but the RWTS sequence is in 
DOS, and the three bit handling routines are 
included with SYSCALL. 

These are the three little routines we call 
Little Bit Pickers. Whenever you want to get 
just one bit from a byte, or put one bit into a 
byte, these are the calls to make. The first one 
reads a bit froma byte into an integer variable 
and the other two write a bit into a byte. Now 
you can work quickly and easily with the track 
bit maps in DOS, or the most significant bit 
—bit 7 — of character bytes. The bit handling 
that we found so awkward from Applesoft is 
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now much easier with SYSCALLs to the Little 
Bit Pickers. See the program AMP-L-SOFT 
DEMO 2 for some examples of their use. 
Use SYSCALL whenever you want to call a 
routine that passes parameters via the 6502 
registers. Set the A-reg, the X-reg, the Y-reg, 
and the call address. Always provide an 
integer variable to capture the carry flag. Use 
the Little Bit Pickers to get and put bits of a 
byte according to the examples in Table 1. 


SUBSTRING 

This is a function that searches one string 
and tells you where a particular substring is 
located. You can use it to edit input strings 
from disk files and keyboard, to lookup code 
numbers, and to format output strings. It 
doesn’t do anything that the MID$ function in 
a loop can’t do, but with it you can do the job 
easier and faster. 

Just give Amp-L-Soft three variables: a 
string to be searched, a target substring, and 
the integer position: 


&B(OBS, TAS, 1%) 


The search starts from the position givenin 
1%, usually one. When the target string TA$ is 
first found in the object string OB$, the func- 
tion returns to you with its position in 1%. But, 
if the target string can’t be found, the position 
I% is returned to you as zero. 

For example: 


1% =1 

A$ = “THE QUICK BROWN FOX JUMPED.” 
BS = oh 

&B(AS, BS, 1%) 

PRINT 1% 

13 


Now you can continue the search by entering 
a new starting value for |%. 


1% = 14 
&B(AS, BS, 1%) 
PRINT 1% 

18 


And again 


1% = 19 
&B(AS, BS, 1%) 
PRINT 1% 

0 


We start with the pointer at the first charac- 
ter of the string: 1% = 1. The strings are given 
values: A$ is the object of the search, and $B 
is the target. The target here is just one char- 
acter — “O”. After the first call, you can see 
that the pointer is at the thirteenth character: 
we found the first “O” in A$. By changing 1% 
from 13 to 14, we continued the search. On 
the second call, we found that the second “O” 
is the nineteenth character. Again to con- 
tinue, we increased I% by one —to 20. Onthe 
third call, you can see that the pointer be- 
came zero because there is no third “O” in A$. 
Our search has ended. 

So, to start a search, set the pointer to 
one. To continue the search, increment the 
pointer by one after each “hit”. Whenever a 
search results in a zero pointer, the search is 
completed. 
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- Read bit from a byte: 


BR = FN AD(FN ap(toraysa7)s72 ei 
B% = byte to read: 0. . . 255 nf. 
N% = bit number: 7. . . 0 (0 = tse 
&C(B%,N%,0,BR,C%) 
result (0 or 1) = C% Seesgehn 52 


Turn ON bit in a byte: 
‘BN = FN AD(FN AD(1 014)+47)+77 
B% = byte to be changed: 0. . . 255 
N% = bit number: 7. . . 0 (0 = LSB) 
POKE 60, B% 
eke N%, 0, BN, CY) 
= PEEK(60) —e 


Turn pe bit in a byte: 
BF = FN AD(FN AD(1014)+47)+87 
B% = byte to be changed: 0. . . 255 
N% = bit number: 7. . .0 (0 = LSB) 
POKE 60, B% 
&C(255,N%,0,BF,C%) 
B% = PEEK(60) 

Print a nybble in hex: 
B% = nybble to print: 0... 15 
&C(B%,0,0,64995,C%) 


Print a byte in hex: 
B% = byte to print: 0. . .255 
&C(B%,0,0,64986,C%) 


Print an address in hex: 
B = address: 0. . . 65535 
&C(FN HI(B),FN piss Ne esi 


Print a number of spaces: 
SP% = number of spaces: 0. . . 230 
&C(0,SP%,0,63818,C%) : 


Print a character via COUT: 
_ A$= character to print, in ascit 
A = ASC(A$) + 128 sie 
&C(A,0,0,65005,C%) 


Print a character to screen, via COUT1: 
A$ = character to print, in ASCII 
A= ASC(A$) + 128 
&C(A,0,0,65008,C%) 


x 


SUBSTRING APPLICATIONS 
One place where SUBSTRING is very use- 
fulis in handling Menus. After you display the 
menu choices on the screen, GET each key- 
stroke from the keyboard with a subroutine: 


3100 C$ = “IJKMQ” : 
3110 GET A$ 

3120 1%=1: &B(C$, A$, 1%) 

3130 IF 1% = 0 THEN 3110 

3140 IF 1% = 5 THEN RETURN 

3150 ON 1% GOSUB 100, 200, 300, 400 
3160 GOTO 3110 


REM MENU CHOICES 


You could also use this for HIRES cursor 
control. For example, the four cursor keys 
could each call its own subroutine and the 
fifth choice — “Q” — will return to the caller. 

In another example, when editing input 
strings from the keyboard or disk, you can 
use Amp-L-Soft to search for commands, 
keywords, or delimiters. For instance, you 
could write an Adventure game that lets the 
player enter English- -language sentences and 
then parses them quickly (with SUBSTRING 
calls) to extract the valid commands. 

The SUBSTRING also lets you do fast 
character code conversion. Forexample, you 
can make up a string in a code sequence, 





such as the “IJKMQ” sequence above. Now 
searching for a single ASCII character will 
return the code in the pointer. To convert 
back to ASCII from the code, just use the 
MID$ function. The MID$ is the inverse of 
SUBSTRING: 


&B(OBS, TA$, P%) : REM GIVEN P% 


TAS = MID$(OBS$, P%, L%) : REM GIVES TAS, 
LENGTH L% 


where OB$ is the object string, TA$ is the 
target string, and P% is the pointer. This 
makes the two functions an ideal match for 
your enciphering and deciphering needs. 

The SUBSTRING complements the MID$ 
function in Applesoft. With the MID$, you 
create a target string by giving the object 
string and the pointers to the substring. But 
with SUBSTRING, you find the pointer to the 
substring by giving it the object string and the 
target string. The pointer must be in an 
integer variable and it must have a value of 
one for a complete search. The returned 
value of the pointer must be incremented by 
one to continue the search for more sub- 
strings. A returned pointer value of zero ends 
any search for substrings and indicates that 
none were found. 


TONE 

You can make many different sounds on 
the Apple Il, many more than just the CTRL/G 
beep. If you have the so-called Red Book — 
the original Apple || Reference manual — 
then you probably know about Lutas’ algo- 
rithm given on page 45. It uses two param- 
eters — period and duration — to control the 
sound of a single tone. Now you can use 
Lutas’ algorithm to make your own sounds 
simply by calling Amp-L-Soft’s TONE routine: 


&N(P, D) 


where P is the period value and D is the dura- 
tion value. 

The period you give it must be a value from 
zero to 255. If you pick zero, then the Monitor 
WAIT routine will kill some time. Otherwise 
with a period greater than zero, you will heara 
tone. Using a small period gives you a high- 
pitched tone, while using a large period gives 
you a low-pitched one. 

You can control the length of the tone with 
the duration. Give it a value from one to 255: 
the longer the duration, the longer the tone. If 
you want a rest note, use a zero period witha 
suitable duration. You will find that any dura- 
tion you give doesn’t always give the same 
length of a rest as the length of a tone. 

Experiment with different periods and dura- 
tions. You can find sounds to use for special 
effects in games, alarms, and tunes. Use dif- 
ferent tones for different prompts: a ready 
tone, an error tone, a warning tone, and an 
in-process (busy) tone. Play with some loops, 
some iterations, or anything else you can 
think of; discover new sounds! Put some per- 
sonality into your programs! 


INPUT 

?EXTRA IGNORED. Look familiar? The 
string INPUT statement in Applesoft just 
won't accept commas, quotes, or colons. Do 
not enter them. They do not compute. Bah, 
humbug! 

The routine that Applesoft uses to input a 
string is called INLIN and is located in Apple- 
soft at $D52C. By calling this routine directly, 
we can get the input string before Applesoft 
edits it for delimiters — commas, quotes, or 
colons — and then assign the characters to 
the string variable ourselves. We have to 
create space for the string in memory and 
move it there from the input buffer. Then we 
can hook up the descriptors in the string vari- 
able. This way, we do just what Applesoft’s 
string INPUT does, but without the extra 
unwanted editing. 


Amp-L-Soft INPUT is easy to use. Just pass 
one string variable: 


&I(IN$) 


which is returned to you with the string from 
the system input. Because you are using the 
system input, it also works with disk or any 
other device, just the Applesoft’s INPUT state- 
ment. 

Now we can INPUT strings such as, “THIS, 
IS GREAT FOR : TEXT ENTRY; ETC.” But 
why, you may ask, does Applesoft’s INPUT 
behave in such a manner? What method can 
there be in this madness? 

Well, Applesoft lets you enter several varia- 
bles on one input line. You can write a state- 
ment such as: 


100 INPUT A$, B, C$ 


and Applesoft uses the commas in the input 
buffer to tell it which variables go where. In 
this example, Applesoft expects only two 
commas (for three variables) in the buffer. 
The variable preceding the first comma is 
assigned to A$; the variable between the 
commas is assigned to B (with an implied 
VAL function); and the variable after the 
second comma is assigned to C$. 

When Applesoft reads from disk for exam- 
ple, all the fields of a record can be assigned 
with a single INPUT statement. If you are 
learning about computers, this is a great way 
to work with the fields and records of files 
relatively painlessly. 

With Amp-L-Soft’s INPUT that allows com- 
mas, we can accept complete strings without 
the dreaded ?7EXTRA IGNORED message. 
Use Amp-L-Soft’s INPUT routine for key- 
board string inputs and complete record 
inputs from disk or other devices. Then just 
use Applesoft’s INPUT statement for numeric 
input from the keyboard. 


TAGSORT 

Sooner or later, you'll need a good, fast 
sort. You may need to sort a disk file; to 
search key fields of a random access file, or 
just to properly sequence an array for fast 
lookup. When you do, you'll find that Amp-L- 
Soft’s TAGSORT is a powerful solution for all 
these needs. 

You can find a more complete description 
of TAGSORT in a companion article Amper 
Jump & TSORT (Nibble Vol. 2#6). There, you 
can see how to call the sort and review the 
main ideas of its use. This version of TSORT 
has been enhanced to handle arrays which 
are larger than 800 elements (it is limited only 
by memory capacity of your Apple). It also 
properly sequences strings where the shorter 
string is identical to the same number of 
beginning characters in a longer string. 

To sort a file or list, you must put the ele- 
ments to be sorted into a one-dimensional 
string array. If it is a disk file that you are 
sorting, put only the sort field of each record 
into the string array. The array size is limited 
by the memory available, so if you find your- 
self running short of memory, pick up only 
enough characters (from the selected field) 
to do the job. 

You will need a second, one-dimensional 
array, DiMensioned the same size as the 
string array. Make this second array an inte- 
ger array, and load it with the physical se- 
quence numbers of the records which you 
wish to sort. This integer array is your Tag 
Array. To initialize it, you put in the physical 
element numbers, (which usually range from 
one to the last element number, i.e.) 


FOR I=1 TON: T%(I) = 1: NEXT 


With disk files, you can use the record 
numbers. 

After the sort is completed, you will have 
the physical record numbers in the final 
sorted sequence in the Tag Array. You can 
use these tags to access the records in the 
proper, sorted sequence. A tag array must be 
DIMensioned, regardless of whether you actu- 
ally use it. 

With the string and tag arrays loaded, you 
can sort whenever you wish, just by the call: 


&A(S$, T%, F, L) 


Give it the names of the arrays (S$ and T%) as 
the first two parameters. Then give the value 


of the first element (F) you want sorted; usu- 
ally one. Finally, give it the value of the last 
element (L) you want sorted; usually the 
number of records in the file or elements in 
the array. 

After the sort, you'll find the string array 
in ascending (sorted) sequence. If you are 
working with a disk file, you can find the phys- 
ical record numbers (in the same sort se- 
quence as the strings) in the Tag Array. The 
first tag contains the old record number of the 
first record to write to the new (sorted) file; 
the second tag contains the number of the 
second record to write to the new file; and so 
on. 

If you are working with a random access 
file, you can read the old records using ran- 
dom access tags, and then write the new file 
sequentially (in the new sorted sequence). 
Regardless of which data structure you are 
sorting however, you'll find that tags can 
often be used to speed things up. 


HOW AMP-L-SOFT WORKS 


JUMP 

The heart of Amp-L-Soft is a routine 
called JUMP. When you load and call Amp-L- 
Soft, this routine together with the five work- 
ing routines are loaded into the $80C. EFF 
area below your program. Whenever you use 
an ‘&’, this routine looks at your command 
code and finds the routine you requested. 
The ‘&’ that you used tells Applesoft to pass 
control to memory location $3F5. At that loca- 
tion, there is a JMP instruction to $81C in 
JUMP. Depending on the code you used, one 
of the Amp-L-Soft routines is then selected 
for execution. 


JUMP TO TONE 
For instance, let’s follow a call to the TONE 
routine. Suppose you type 


& N(76, 224) 


Applesoft sees your ampersand and jumps to 
$3F5. There, the instruction 


JMP $81C 


passes control to the AMPER routine in 
JUMP. If you look atthe listing for JUMP, you 
will see that it checks for a letter from Apple- 
soft text. The letter must be from “A” to “Z”, 
otherwise you get a 7S YNTAX ERROR mes- 
sage. We have an “N”, so it’s OK. It does the 
same thing for an open bracket — “(”. That's 
OK, too. Then it remembers the letter “N” it 
accepted before and converts it into a num- 
ber — a 13. (An “A” would have become a 
zero, a “B” would have become a one, and so 
on.) 

This number is doubled (with an ASLA 
instruction) to a 26 and used as an index (X- 
reg) to fetch the third address from the table 
(at $84B. 84C) to the JMP instruction. When 
the JMP instruction is reached, it has the 
address of the tone routine — $972 — to jump 
to. The TONE routine is just where we wanted 
to direct the program. 

The TONE routine picks up its parameters 
(more about that below) and makes the sound 
you wanted. When finished, TONE jumps to 
an Applesoft routine called DATA. DATA 
makes sure the current statement is finished 
before returning to Applesoft’s interpreter to 
await your next instruction. 


continued on next page 
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So, JUMP receives control from the & Jump 
(at $3F5) in Page Three; figures out which 
routine you want according to the letter code; 
and then jumps to your chosen routine. It 
expands one ampersand instruction into 26 
possible commands. Any commands that we 
don't use, like the D or E, have Applesoft’s 
2SYNTAX ERROR message routine selected; 
only the routines we actually have loaded can 
be selected by the letter code. 


LOADING YOUR OWN ROUTINES 

If you want to use some other ampersand 
routine at the same time you are using Amp- 
L-Soft, you can do so. Just choose one of the 
unused letters, Z, for example, and POKE the 
address of your routine into the Jump Table 
in JUMP. You can find the POKE addresses to 
use in the program listing. You then call the 
routine by: 


&Z( any parameters ) 


assuming you chose “Z” as its letter code. 
The opening bracket is a must. Follow the 
bracket with any symbols and parameters re- 
quired by the routine, (except for the amper- 
sand itself). Don’t repeat “&”, since you only 
need one & symbol to activate a routine. 


WHY USE THE “&’? 

You may wonder why the ampersand fea- 
ture is used at all, or why we would go to the 
trouble of extending it with a table. After all, 
you could call the TONE routine directly with: 


CALL 2418, P, D 


if TONE had a JSR CHKCOM statement at 
the beginning to gobble the first comma. The 
ampersand method of calling machine lan- 
guage subroutines appears more compli- 
cated (something to avoid!) at first. 

But, you can use ampersand Calls a lot eas- 
ier than calling them through Applesoft. All 
you need is a single letter for each routine — 
a letter that’s easier to remember than a 
memory location number when you're pro- 
gramming. 

And don't forget, you would probably have 
to convert the memory location number from 
hex to a decimal number in order to CALL it. 
Then you'd havea problem if you changed or 
relocated anything. You’d have to search 
through all your programs and change one 
address for another at each CALL affected. 
It’s much better to be able to make all the 
changes in the Amp-L-Soft files only, and 
leave all the programs alone. Then, just load 
the Amp-L-Soft program on each disk, with- 
out worrying about what the programs are 
doing. For these reasons, you will find Amp- 
L-Soft easy to use, expand and maintain. 


APPLESOFT ROUTINES — 
HOW IT WORKS 

Remember the three kinds of parameters 
we looked at (Values, Variables, and Array 
Names) way back at the beginning? If you 
want to know how the routines access them, 
then this section’s for you. Its not too difficult 
to follow if you have been doing any machine 
language programming. You can even cus- 
tomize your Amp-L-Soft package to include 
your Own routines. 

Here’s how to use Applesoft in accessing 
parameters. 
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If you do a disassembly list starting at 
$00B1 in Page zero, you will find a short rou- 
tine that fetches a byte from somewhere, 
using the address at $00B8. 00B9, to the 
accumulator. You can see that it advances the 
pointer at $00B8. 00B9 first. Then it gets the 
first printable character (byte), and finally 
converts it if itis numeric. The routine ($00B1) 
is called CHRGET, and the pointer it uses 
($00B8. 00B9) is called TXTPTR. 

Now, if you are using Applesoft in its com- 
mand mode (from the keyboard) TXTPTR 
puts data into Page Two (where it is found 
when you list CHRGET). Whenever you are 
executing a program however, TXTPTR is 
used by Applesoft to point into your program 
while Applesoft reads the program text and 
interprets what it finds. 

When a machine language routine is called 
(in an Applesoft statement), TXTPTR points 
to the next character in your program that 
follows the CALL address. If that call is an 
ampersand, then TXTPTR contains the ad- 
dress of the first character following “&” in 
your program. The character itself is in the 
A-register. The trick to handling parameters 
in an Applesoft program is to know where 
TXTPTR is at all times. 

We can use existing Applesoft routines to 
edit the bytes we pick up at TXTPTR. We can 
exit through a routine called SNERR if we 
don’t like what we get. SNERR prints the 
dreaded “?SYNTAX ERROR” message and 
goes to Applesoft’s command mode, halting 
the program. 

You can see the JUMP routine do this. The 
first thing JUMP does when executed is to 
save the A-register and then perform a JSR 
ISLETC. This routine checks that the A- 
register has a letter — “A” to “Z” — init. If not, 
the carry is cleared and we know to exit 
through the SNERR routine. If the routine 
being called is valid, we use CHRGET to get 
the next character. Whenever CHRGET re- 
turns to us, it has the next character in the 
A-register. Now JUMP does the same thing 
again, but it uses CHKOPN to check that the 
current character is an open bracket. This 
time, CHKOPN will exit through SNERR or 
GETCHR depending on what it finds. 

Now let’s see what JUMP does when it is 
ready to jump to your chosen routine. It exe- 
cutes aJSR CHRGOT immediately before the 
JMP. CHRGOT is a secondary entry point 
to CHRGET. CHRGOT does not advance 
TXTPTR, so it gets the same character that 
the previous CHRGET fetched. Then the 
jump is made to your chosen routine with the 
A-register containing the current character 
— the one immediately following “(” in your 
program — and TXTPTR points to it as well. 


Any ampersand routine, whether it is 
reached via JUMP or directly from $3F5, has 
TXTPTR pointing to the first character in the 
parameter list, and that character — edited by 
CHRGET — is in the A-register. JUMP is 
transparent to any ampersand routine. 

You pick up a parameter by executing a 
JSR to an Applesoft routine that has its own 
JSR CHRGET and puts some value or pointer 
in a convenient location for you to use. Most 
of these routines require that TXTPTR be set 
to the first character of the parameter, and 
then they will exit through CHRGET to leave 
TXTPTR set to the delimiter (like a comma) 
which follows. This makes things easy for us. 

We have already used one of these rou- 
tines, CHKOPN. It would have exited to 


SNERR if it didn't accept the parameters it 
was given. It left TXTPTR pointing to the 
first byte following the “(”. Between the 
parameters we used a similar one — JSR 
CHKCOM. If this routine is called with 
TXTPTR onacomma, it returns via GETCHR, 
ready for the next parameter, but it will go to 
SNERR if a comma isn’t present. So, you can 
use CHKCOM between parameters to get 
from the end of one parameter to the begin- 
ning of another. 


THE SYSCALL EXAMPLE 

Look at the SYSCALL listing; it has a few 
JSR CHKCOM's in it. 

Okay, let's get some parameters. 

GETBYT picks up an expression. When 
you want a value between zero and 255, 
GETBYT will get it from the expression and 
deliver it in the X-register. SYSCALL uses 
three of them to pick up the register values. 
GETBYT is at $E6F8. 

FRMNUM also picks up an expression but it 
delivers the expression to the floating-point 
accumulator — FAC. So, you can get a value 
of any size, not just a single byte value. If you 
immediately follow JSR FRMNUM by JSR 
GETADR, then your value in FAC is con- 
verted to an address in LINNUM ($50. 51) in 
LO. HI format. This is how SYSCALL picks up 
the call address as its fourth parameter. 
FRMNUM is at $DD67; GETADR is at $E752. 

PTRGET is used to access strings and 
parameters. It will pick up any variable and 
put its address in VARPNT ($83. 84). At that 
address you will find the floating point num- 
ber, integer, or string descriptor of the vari- 
able named at TXTPTR. In SYSCALL for 
example, PTRGET is used to get the address 
in which to put the value of the carry flag. It 
assumes an integer variable, so it puts a zero 
in the first location (integer high byte) and 
then azero or one in the next location (integer 
low byte). PTRGET is at $DFE3. 


Look at some examples of using PTRGET 
to read and write to strings. See SUBSTRING 
for examples of reading strings. See the 
INPUT routine as an example of writing a 
string by first creating space for it. You use 
PTRGET to find the address of the string’s 
descriptor: length, address-low, address- 
high. Pick up the descriptor using VARPNT 
and then move it to page zero. Then you can 
use the string address to access the charac- 
ters in the string. 


WORKING WITH ARRAYS 

You can also work with entire arrays after 
you have accessed single variables. The key 
routine is GETARYPT at $F7D9. Callitas you 
would call PTRGET, but it won't give you a 
variable. It gives the location of the array’s 
name. The address of the name is in LOWTR, 
at $9B. 9C. The TAGSORT routine uses 
GETARYPT twice: once for the name of the 
string array, and once for the address of the 
tag array. It assumes their type and order, so 
it calculates the offset to the first entry witha 
simple formula. To do the same thing your- 
self, work out the distance, in bytes, using the 
information on page 137 of your Applesoft 
manual (for the array you want to access). 

When writing an ampersand routine with 
any numeric parameters that you don’t have 
to save, pick them up as values, not as varia- 
bles. Use GETBYT for any single byte values 
and FRMNUM for any larger values. Follow 
FRMNUM with GETADR if it's an address. 


You will need a variable for a string or a 
numeric parameter that must be returned; 
PTRGET will find it for you. And good old 
CHKCOM between the parameters “gobbles” 
commas for you. 


EXIT AMPERSAND 
It's easy to exit from an ampersand routine; 
just JMP DATA. The routine at $D995 in 
Applesoft makes sure that TXTPTR is at the 
end of the statement. So, Applesoft will be at 
the end of a line or at a colon when DATA 
returns. 


LOADING YOUR OWN ROUTINE 

If your routine is small enough to fit into the 
space at $D38. DFF, then assemble it there. 
BLOAD AMP-L-SOFT and move the new rou- 
tine up to $4D38. 4DFF. Use the JUMP listing 
to find the addresses for the letter code you 
have chosen. Set the table in page $48 rather 
than in page 8. (Remember that Amp-L-Soft 
first loads beginning at $4750, then relocates 
its routines downstairs to $80C for use.) For 
example, the code for “Z” is used by entering 
the routine’s address in as 


*4879: 38 0D 


After these two changes, just 
BSAVE AMPERSANDS, A$4750, L$,6FE 


and you havea custom version of Amp-L-Soft 
containing your own routine. 


Amp-L-Soft LOADER 

For most applications, Amp-L-Soft loads 
and relocates itself for you without any 
trouble. However, should you have a large 
program that clobbers LOADER while relo- 
cating, or you want to use some package that 
also uses the low memory area, then you may 
consider modifying LOADER. You can fix the 
first problem — big programs — easier than 
the second one. 

If you find programs overwriting LOADER 
during relocation, then re-assemble LOADER 
at a higher address. The present address is 
only needed if you have a 32K system. If yours 
is a 48K system then move it higher in 
memory. Leave a little headroom, though, 
because some programs may re-assign a 
string or two before loading Amp-L-Soft. All 
of Amp-L-Soft except LOADER has been 
assembled to execute at its relocated position 


in low memory. So, only LOADER needs to be 
re-assembled. Just change the ORG, assem- 
ble, and copy it in over the top of the old 
LOADER at $4750. 47FB. Then BSAVE the 
newly entered LOADER. 

If you have the second type of problem 
— conflicting packages — then you’re on 
your own. You could re-assemble all of the 
Amp-L-Soft routines to run elsewhere, and 
then re-write AMPERLOAD. Depending on 
where you decide to load the programs, this 
could be easy or difficult. Sticking everything 
just below the DOS buffers and then resetting 
HIMEM: to protect the programs is perhaps 
the easiest. But be careful not to use MAX- 
FILES. And remember, new RUN commands 
clear memory, so the Load statements must 
be in each program, not just the HELLO pro- 
gram. See the BOOTER listing and the fig- 
ures for the details. 

If you do make any changes that you feel 
may be of use to others, please write and 
share them. And let us know where you are 
using Amp-L-Soft. It would be great to see 
some neat new program that exploits its 
features. 

continued on next page 
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AMP-L-SOFT 
ROUTINES 





PRGEND + 
USER 
PROGRAM 
TXTTAB Tonk SPACE |. 
E00 


AMP-L-SOFT 
ROUTINES 
80c 


TXTTAB 





Figure 1(a). AMPL-L-SOFT loads from disk Figure 1(b). The first part called LOAD exe- ‘Figure 1(c). Finally, LOAD moves AMP-L- 


to memory below the DOS of a 
32K system. From there, it must 
be called at $4750. 


cutes when run. It relocates the 
user program upward in memory 
to make room for AMP-L-SOFT 
ROUTINES. 


SOFT ROUTINES into low mem- 
ory where it is safe from MAX- 
FILES, NEW, or RUNcommands. 
Only an FP command can clob- 


beritnow. LOAD calls it to set its 
“&” hook in Page Three, com- 
pleting the load. 





Figure 2. The Memory Map of AMP-L- 
SOFT. After being moved to low 
memory, JUMP and the five rou- 
tines are ready for use with the 
“&” hook set. The one Page work 
space is used by TAGSORT, but 
can also be used as a temporary 
buffer. 
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Figure 3. 





Any of the five routines are called 
using the “&” hook in Page Three. 
JUMP gains control and looks at 
the two characters following the 
“&”’. It expects a. letter followed 
by an open bracket — “(”. If one 
of the five codes is found, it 
jumps to the chosen routine, 
which in turn returns to Apple- 
soft when finished by a jump to 
DATA. If one of the five pairs is 
not found, the SNERR routine in 
Applesoft bombs the statement. 


B( 





Figure 4. 


N( ELSE 


The parameters in an ampersand 
routine can be read by a few 
choice routines. TXTPTR, FAC, 
VARPNT, LOWTR, and LINNUM 
are all pointers and values of 
Page Zero. The Applesoft rou- 
tines fetch the pointers and val- 
ues, usually advancing TXTPTR, 
which points at the parameter 
list. GETADR does not use 
TXTPTR; it converts floating 
point numbers to addresses. 
DATA is used when finished the 
parameters to advance TXTPTR 
to the end of the statement. 


continued on next page 
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90 

100 
110 
120 
130 
140 


530 


PREM «(JEJE SE 0 ar sea ge ar aE Je ae HE HEE EE 
REM * BOOTER * 
* BY PAUL IRWIN * 
REM * COPYRIGHT (C) 1982 * 
REM * BY MICRO-SPARC INC * 
* 


REM LINCOLN, MA. 01773 * 
PREM «SHEE: 3638 26a aE gE EAE AEE AEE 


TEXT 1 HOME 
PRINT ®  ##® AMP-L-SOFT ###® 
PRINT ® BY PAUL IRWIN " 


PRINT : PRINT * COPYRIGHT (C) 1982" 
PRINT * BY MICRO-SPARC INC" 

PRINT * LINCOLN, MA. 01773" 

PRINT ®" ALL RIGHTS RESERVED" 

PRINT 

PRINT 

PRINT : PRINT 

: PRINT ® LOADING AMP=L~SOFT...." 

DEF FN AD(X) = PEEK (X) + 256 ® PEEK (X + 1) 
PRINT CHR$ (4) ;"BLOADAMP-L-SOFT" 

CALL FN AD( FN AD(999) ~ 79) 

PRINT ® «ee AMP-L-SOFT INSTALLED." 
PRINT : PRINT 


Sete tet TET tk 


* AMP-L-SOFT DEMO = * 

* BY PAUL IRWIN * 

* COPYRIGHT (C) 1982 * 

* BY MICRO-SPARC INC * 

#* LINCOLN, MA, 01773 * 

PHEAEREEERE RARER EEE 
DEMO TONE 
HOME : VTAB 5: INVERSE : PRINT "TONE DEMO ": NORMAL 
INPUT "ENTER PITCH AND DURATION OF TONE ";P,D 

& N(P,D) 

PRINT 

REM DEMO FREE FORMAT INPUT 

GOSUB 10000: HOME : VTAB 5: INVERSE : PRINT "DATA INPUT 

DEMO": NORMAL 

PRINT : PRINT "ENTER A STRING WITH ANY CHARACTERS": PRI 
NT 

& ICINS) 
AS(1) = INS 

PRINT AS(1) 

REM DEMO SUBSTRING SEARCH 

PRINT 

GOSUB 10000: HOME : VTAB 5: INVERSE : PRINT "SUBSTRING 
SEARCH DEMO ™: NORMAL 
wet "ENTER SUBSTRING TO SEARCH ";A$ 

=1 

BS = AS(1) 

& B(BS,AS,PS) 

PRINT 

PRINT "THE SUBSTRING '";A$;"" BEGINS IN LOC ";P¢ 

GOSUB 10000: HOME : YTAB 5: PRINT : INVERSE : PRINT "HE 
X CONVERSION DEMO": NORMAL 

REM DEMO HEX CONVERSION W/AMP SUBSTRING 

INPUT "ENTER NUMBER 1-255 "3N 

PRINT : PRINT "THE HEX EQUIVALENT 1S:": PRINT "$"; 

& C(N,0,0,64986 ,C¥) 

GOSUB 10000: HOME : YTAB 5: PRINT : INVERSE : PRINT "NU 
MBER OF SPACES DEMO": NORMAL 

PRINT. : INPUT "ENTER NUMBER OF SPACES (0-230) ";SP% 
PRINT CHRS$ (219); 

& C(0,SP%,0,63818,C$) 

PRINT CHR$ (221) 

GOSUB 10000: HOME : YTAB 5: INPUT "ENTER THE # OF STRIN 
GS TO,SORT "3N 

DIM RS(N + 1),TS(N + 1) 
BS = "ABCDEFGH| JKLMNOPORSTUVWXYZ" 

TEXT : HOME : VTAB 5: FLASH : PRINT "BUILDING STRINGS " 
: NORMAL 

FOR F = 1 TON: FORG = 1 TO 5 
RS$(F) = RS$(F) + MIDS (BS, INT ( RND (1) * 24) + 1,1) 
THF) = F 

NEXT G,F 

HOME : VTAB 5: PRINT "PRESS RETURN TO LIST RAW DATA": | 
NPUT "PRESS CTRL S TO PAUSE/RESUME ";Xx$ 

FOR F = 1 TO N: PRINT RS(F),TS$(F): NEXT F: PRINT : INPU 
T "PRESS RETURN FOR SORT "sXx$ 

PRINT "SORT BEGUN" 

& A(RS$,T%,1,N) 

PRINT "SORT ENDED" 

PRINT "PRESS RETURN TO LIST SORTED DATA": IN 

CTRL S TO PAUSE/RESUME ";XX$ Ko taal 
HOME : VTAB 5: FOR F = 1 TON 

IF RS<F) > R$(F + 1) THEN INVERSE 

PRINT Fz: POKE 36,10: PRINT RS(F);: POKE 

SCF)s WOT F ; 36,20: PRINT T 
NORMAL : GOSUB 10000 

HOME : VTAB 12: PRINT "END OF DEMO": END 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


10000 PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE =>"; 


+ GET A$: PRINT : RETURN 
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SOURCE FILE: 


AMP-L-SOFT UTILITIES 
geeeeeeereessassseesesssssessses 


;AMPERSAND VECTOR 


ra * 


z? 


3;SYSTCALL ROUTINE 
;SUBSTRING SEARCH 


3; CHECK FOR LETTER 


>« 


;LOOKING AT FIRST PARM 


ADDRESS POKES 


3A 2119, LO 2126, HI 
LO 2122, HI 
3C 2123, LO 2124, HI 


Lo 
LO 
LO 
Lo 
Lo 
LO 
Lo 
Lo 


2126, 
21268, 
2136, 
2132, 
2134, 
2136, 
2138, 
2148, 
2142, 
2144, 
2146, 
2148, 
2158, 
2152, 
2154, 
2156, 
2158, 
2168, 


9000: be : ‘ 

pits 38 AMP-L-SOFT UTILITIES ~ 

BEDE: ae seanesaeee 

9000: 5S seseeeseesesssrsesssst : 
6% 

pene ioe JUMP : 
‘ at 

re 9 % ASSEMBLER: APPLE II V 1.8 : 

099: 19 & AUTHOR: PAUL IRWIN : 

9900: 11% WRITTEN: MAR, 1981 . 
. 12 8 

2608: 13 # INTERPETS THE & COMMAND FROM & 

2990: 14 * APPLESOFT. ALLOWS UP TO 26 & 

0900: 15 % SEPERATE ROUTINES TO BE USED & 

6980: 14 # FROM THE SAME PROGRAM. TO & 

G080: 17 * USE, FIRST CALL 768 TO SETUP & 

3099: 18 * THE & HOOK AND CLEAR THE * 

8999: 19 * TABLE. THEN SET THE TABLE & 

OOOO: 2@ % ADDRESSES AS NEEDED. AFTER * 

9906: 21 8 THAT, AMPERSAND STATEMENTS $& 

9909: 22 * OF THE FORM . 

6900: 23% &X( PARAMETER LIST ) t 

0909: 24 * WHERE X IS A LETTER, A TO Z, # 

0990: 25 * WILL RUN THE ROUTINE WITH * 

0990: 26 * TXTPTR SET TO THE FIRST OF #& 

9OOO: 27 * THE PARAMETER LIST. ‘ 

8000: 28 4 - 

29 eeereseeeeaeeaseaesassssseeaeaes 

G9OO: 36 8 

9BOOS: Sis 

9900: 32% EQUATES 

OOOO: 33 8 

O00: 34% 

9909: 35 8 

0000: 368 

9600: 37 * 

----- NEXT OBJECT FILE NAME IS AMP-L-SOFT UTILITIES.OBJO 

@88C: ORG $389C 

@O3C: 39 AL EQU $3C 

@O3E: 49 A2 EQU $3E 

@O42: 41 A4 EQU $42 

O50: 42 LINNUM EQU %5¢ 

@OB1: 43 CHRGET EQU %9@B1 

OOB7: 44 CHRGOT EQU %@0B7 

@3F5: 45 EXTLOC EQU $93F5 

DEBB: 46 CHKOPN EQU S$DEBB sEDIT * ¢” 

DEC?: 47 SNERR EQU S$DEC9 

EQ7D: 48 ISLETC EQU $%&97D ;EDIT *A’ 

@87C: 49 SYSCAL EQU %987C 

@8DD: 5@ SUBSTR EQU $@8DD 

8972: 51 TONES EQU $9972 ; TONES ROUTINE 

99AB8: 52 INPUT EQU $89A8 ; INPUT ANYTHING 

99D8: 53 TAGSRT EQU $69D8 ; TAGSORT RTNE 

980C: 548 

988C: 55 8 

@89C: 56 8 INITIALIZE THE INTERPETER 

989C: S57 2 

989C:A9 4C 58 INITAL LDA #$4C ;JMP OPCODE 

989E:8D FS @S Ss? STA EXTLOC 

@811:A9 1C 66 LDA #>AMPRER 

9813:8D Fé OS 61 STA EXTLOC+I1 

@816:A9 98 62 LDA #<AMPER 

9818:8D F7 G3 63 STA EXTLOC+2 

981B:49 64 RTS 

@B81C: 65 8 

@81C: 66 * INTERPRET THE & ROUTINE NAME 

@B1C: 47 3 

@81C:8D 7B 98 68 AMPER STA AMPERB ; TEMPORARILY 

@81F:26 7D EB 49 JSR ISLETC 

9822:B9 93 79 BCS AMPERI 

9824:20 C9 DE 71 JSR SNERR 

9827:20 Bi @@ 72 AMPER1 JSR CHRGET 

@82A:26 BB DE 73 JSR CHKOPN ;CHECK FOR 

@82D: 74 8 

982D: 75 &% OKAY FOR THE SYNTAX. 

82D: 76 % LOOKUP THE ROUTINE @ TO 25 

@82D: 77 * FOR *A* TO "2° CODE 

@82D: 78% 

@82D:AD 7B @8 79 LDA AMPERB ;REMEMBER LETTER 

9830:38 86 SEC 

@831:E9 Ci 81 SBC #’A’ 

9833: 0A 82 ASL A 

9834:AA 83 TAX 

@835:BD 47 68 =84 LDA AMPERA, X 

@838:8D 45 68 85 STA AMPERS+1 

@83B:BD 48 @8 84 LDA AMPERA+1, X 

@83E:8D 46 88 87 STA AMPERS+2 

@841:28 B7 66 88 JSR CHRGOT 

@844:4C FF FF 89 AMPERS JMP $FFFF AWAY WE GO! 

9847: 90 

9847: 91 & JUMP TABLE FOR ALL *&* ROUTINES 

0847: 92 *% AS CREATED BY INIT ROUTINE 

0847: 93 8 

9847: 94 4 CODE 

9847: 95 % ---- 

0847:DB8 09 96 AMPERA DW  TAGSRT 

9849:DD 68 97 DW  SUBSTR 3B 2121, 

@84B:7C 68 98 DW = SYSCAL 

@84D:C9 DE 99 DW  SNERK th aio, 

@84F:C9 DE 198 DW  SNERR me. 2127, 

@851:C9 DE 101 DW  SNERR ; F 2129, 

@853:C9 DE 102 DW  SNERR $ais..21 Sti 

@855:C9 DE 193 DW  SNERR ; H 2133, 

0857:A8 09 104 DW INPUT Wi 2138, 

@859:C9 DE 195 DW = SNERR 3 3 2137, 

@85B:C9 DE 196 Dw  SNERR 3K 2139, 

@85D:C9 DE 107 DW  SNERR yk. Sian, 

@85F:C9 DE 198 DW  SNERR 3 M 2143, 

@861:72 99 109 DW TONES 3; N 2145, 

9863:C9 DE 118 DW  SNERR 3 O 2147, 

@865:C9 DE 111 DW  SNERR 3; P 2149, 

9867:C9 DE 112 DW  SNERR 3; Q 2151, 

9869:C9 DE 113 DW  SNERR me iS, 

@846B:C9 DE 114 DW  SNERR 3S 2155, 

@86D:C9 DE 115 DW = SNERR Hv. «2157, 

@B6F:C9 DE 116 DW SNERR 3; U 2159, 

@871:C9 DE 117 DW  SNERR 1M 2a, 


2162, 


HI 


9873:C9 
9875:C9 
@877:C9 
6879:C9 
9878: 80 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
987C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87Ce% 
987C: 
@87C: 
@87C: 
987C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
@87C: 
987C: 
987C: 
9983: 
D995: 
DFES: 
DD4é7: 
DEBE: 
E6Fe: 
E752: 
@87C: 
@87C: 
@87C: 
@87C: 
ge7c: 
@87C: 
987C: 
@87C: 
@e7C: 
@87C: 29 
@87F:8A 
6886: 48 
9881:29 
9884: 26 
9887:8A 
9888: 48 
9889: 28 
@88C: 26 
O86F : 8A 
9896: 48 
9891:29 
9894:29 
9897:29 
O@89A: 
@89A: 
@89A: 
@B9A: AS 
@89C: 8D 
9B9F:AS 
98A1:8D 
@8A4: 
98A4: 
@8A4: 
98A4: 68 
@B8AS: AB 
9B8A4S: 68 
98A7:AA 
98A8: 68 
98A9: 29 
@BAC: 
@8AC: 
@BAC: 
98AC: 6B 
@BAD: 29 
O8Bd: 29 
@8B3: AG 
@8BS: A? 
@8B7:91 
@8B9:C8 
@8BA: 28 
O8BB: 99 
@8BD: AP 
OSBF:91 
98C1:4C 
98C4: 
@8C4: 
98C4: 
@8C4: 
@8C4: 
@8C4: 
98C4: 
@BC4: 


DE 
DE 
DE 
DE 


FS 


Si 
AB 


FC 


E6 


FF 


am 


D9 


DW 
DW 
DW 
DW 
AMPERB BRK 


SNERR 
SNERR 
SNERR 
SNERR 


2163, LO 2164, 
2165, LO 21664, 
2167, LO 2168, 
2169, LO 2179, 


N<xE 


sen ee ee ee 


SEAR AKER AEA AERA RR RTE 


SYSCALL & 


BY PAUL IRWIN 


COPYRIGHT (C) 1982 
BY MICRO-SPARC INC 
MA. 91773 
ALL RIGHTS RESERVED 


LINCOLN, 


PASSES PARAMETERS TO ANY 
ROUTINE VIA 6562 REGISTER 


CALL SEQUENCE: 


&C (AR, XR, YR, R,C%) 


&C (PARSED 


AR PARAM 
XR PARAM 
PARAM 


< 
D 
onuiu dn 


SRKATRAKTAAA TAKA TATA Tea TE TEE 


$0 Ot OO Ob Ob oe a oe OO Ob Ob ab Ob Ot OF OF OF th ot St Ot Mt oD at ot oF oF ot ot oF ot 
é 
D 
m 


VARPNT EQU 
DATA EQU 
PTRGET EQU 
FRMNUM EQU 
CHKCOM EQU 
GETBYT EQU 
GETADR EQU 


enn enn nn 


JSR 
TXA 
PHA 
JSR 
JSR 
TXA 
PHA 
JSR 
JSR 
TXA 
PHA 
JSR 
JSR 
JSR 


LDA 
STA 
LDA 
STA 


PLA 

TAY 

PLA 

TAX 

PLA 
CALL JSR 
* 


& RETURN CARRY FLAG TO 


* 
PHP 
JSR 
JSR 
LDY 
LDA 
STA 
INY 
PLE. 
BCC 
LDA 
STA 
JMP 

s 

* 


ROUTINES 


EQUATES 


$83 

$D995 
$DFES 
$DD67 
$DEBE 
SE6F8 
$E752 


GETBYT 


CHKCOM 
GETBYT 


CHKCOM 
GETBYT 


* CHKCOM 
FRMNUM 
GETADR 


SET CELL ADDRESS 


LINNUM 
CALL+1 
LINNUM+1 
CALL+2 


$FFFF 


CHKCOM 
PTRGET 
#2 
"o 


BY AMPERJUMP 

IN 6582 A-REG 
IN 6542 X-REG 
IN 6582 Y-REG 
ADDRESS OF ROUTINE 

CARRY FLAG RETURNED 
IN INTEGER VARIABLE. 


+ 
a 
s 
* 
2 
* 
s 
* 
: 
5 
* 
* 
* 
s 
s 
* 
* 
* 
s 
‘ 
% 
s 
% 
2 
a 


3;ADDR OF VAR 

3;MOVE TXTPTR TO END 
3;ADDR TO VARPNT 
3;NUM FORMULA TO FAC 
;GOBBLE A COMMA 
3;GET INTGR TO X-REG 
3;FAC TO LINNUM 


GET THE CALLING PARAMS 


3;GET A-REG 


3;GET X-REG 


;GET Y-REG 


;GET RTNE ADDR. 
3--- INTO LINNUM 


SETUP REGISTERS FOR CALL 


;CALL THE ROUTINE 


CALLER 


;GRAB THE P-REG 
3;FIND RETURN PARAM 


(VARPNT),Y 3; INTEGER HI=0 


a+4 
#1 


3 IF CARRY IS ON 


(VARPNT),Y 3; INTEGER LO=C 


DATA 


3;END THE STMNT 


SATAATT ATTA KLASSE eS ee ETS 


s LITTLE BIT PICKERS 


% THREE SYSCALL& ROUTINES TO 


& OF A GIVEN BYTE. 


s 


t 
* 
* 
Sg 
% READ AND WRITE TO THE BITS *# 
bs 
s 
* 


SHAKATAK AT AAS ASR R TEKST SS 


A% = BYTE TO READ 


X% # BIT NUMBER: 


VALUE OF BIT = P% 


* 
* 
® &C(A%, X%, GB, 2244, PX) 
2 
s 


a 


AD LSR 
DEX 
BPL 
RTS 


A 


READ 


Tune 


3;READS VALUE OF 

3A BIT WITHIN A BYTE 
3 AS A @ IF BIT=OFF 
;OR A 1 IF BIT=ON. 


HI 
HI 
HI 
HI 


98C9: 
@8C9: 
@8C9: 
@8C9: 
98C9: 
@8C9: 
98C9: 38 
@BCA: 2A 
@8CB:CA 
@8CC: 19 
@8CE: 05 
98D8: 8S 
98D2: 66 
@8D3: 
@8D3: 
@8D3: 
@8D3: 
®8D3: 
@8D3: 
@8D3: 18 
@8D4: 2A 
®8D5:CA 
@8D4: 18 
®8D8: 25 
@8DA: 85 
@BDC: 69 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8BDD: 
@8DD: 
@BDD: 
@8DD: 
@BDD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
98DD: 
98DD: 
@8DD: 
98DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
98DD: 
@8DD: 
@BDD: 
98DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
@8DD: 
OG49: 
FCBA: 
@8DD: 
@BDD: 
@8DD: 
@6DD: 
@6DD: 
g8DD: 
@8DD: 
98DD: 
98DD: 
@8DD: 29 
9BEO: AD 
@8E2:B1i 
@8E4: 8D 
@68E7:C8 
@B8ES: Bi 
OB8EA: BS 
@8EC:CB 
9G8ED: B1 
@BEF:85 
@8F1:AS 
@BF3:18 
@8F 4: 4D 
98F7:85 
O8F9: AS 
OBFB: 69 
@8FD:85 
@8FF: 20 
9992: 20 
9985: AS 
0997:B1 
9999: 8D 
990C:CB 
999D:B1 
999F:85 
9911:C8 
@912:Bi 
9914:85 
@916:AS 
9918:38 
@919:ED 
@91C:85 
@I1E: AS 
@929:E9 
9922:85 
9924:29 
9927: 29 
992A: AD 


48a 


FC 
3c 
3c 


a9? 


97 


9 


97 


a 
% POKE 469, BYTE 
% X%= BIT NUMBER: 7...8 
&* &C(G,X%, 8, 2249,P%) 
&% BYTE WITH BIT ON = PEEK(69) 
* 
SEC ; TURNS ON ONE BIT 
ONBIT ROL A 3AT THE BYTE 
DEX 3;IN Al (68, $3C) 
BPL ONBIT 
ORA Al 
STA Al 
RTS 
* 
&% POKE 60, BYTE 
% X%= BIT NUMBER: 7...6 
& &C(255, X%, G, 2257, P%) 
&% BYTE WITH BIT OFF = PEEK(68) 
* 
cLc ;TURNS OF 1 BIT 
OFFBIT ROL A ;AT THE BYTE 
DEX ;IN Al (468, $3C) 
BPL OFFBIT 
AND AL 
STA Al 
RTS 


* 
% SEE CALL SEQUENCE OF SYSCALL& 


* 
RECT TATSAK SEER AAA SESE Tee eee ees 


SUBSTRING& 
BY PAUL IRWIN 


COPYRIGHT (C) 1982 
BY MICRO-SPARC INC 
LINCOLN, MA. 91773 
ALL RIGHTS RESERVED 


SEARCHES AN OBJECT STRING 
FOR A MATCH TO A TARGET 
STRING, BEGINNING AT A GIVEN 
POSITION. 


se eeeeneenereerenne ne 


CALL SEQUENCE 
&B (OBS, TA$,P7) 

WHERE 

&B (IS PARSED BY AMPERJUMP 

OBS = OBJECT STRING 

TAS TARGET SUBSTRING 

P% INTEGER, POSITION IN 
OBJECT STRING 


* 
* 
* 
* 
Ss 
% 
s 
t 
s 
NORMALLY, SET P%=1. OR ELSE & 
SET TO THE STARTING PLACE OF & 
THE DESIRED SEARCH. * 
THE VALUE RETURNED GIVES THE & 
LOCATION OF TAS IN OBS OR . 
ZERO IF NOT FOUND . 
s 
5 


SSTTATAKAAATTAAT ATS TTT Ie es TE 


EQUATES 
3 EQU $49 ;ADDR TARGET STRING 
XTAL EQU $FCBA 3 INCR /CMP A2 


ROUTINES 


GET ADDRESSES OF PARAMETERS 


een naenen anne ZDae eran eee ene eee ee eee ee om 


JSR PTRGET ;ADDR. OF OBJECT 
LDY #@ 

LDA (VARPNT),Y 
STA LOBJ 

INY 

LDA (VARPNT),Y 
STA Al 

INY 

LDA (VARPNT),Y 
STA Al+i 

LDA AL 

cLc 

ADC LOBJ 

STA A2 

LDA AL+i 

ADC #@ 

STA A2+1 


JSR CHKCOM 
JSR PTRGET 3;ADDR OF TARGET 


LDY #0 

LDA (VARPNT),Y 

STA LTAR 

INY 

LDA (VARPNT),Y 

STA AS 

INY 

LDA (VARPNT),Y 

STA AS3+1 

LDA A2 3;SET AZ TO THE 
SEC ;LAST SUBSTRING 
SBC LTAR 3 IN OBJECT 
STA A2 370 COMPARE 
LDA A2+1 

SBC #9 

STA A2+1 


JSR CHKCOM 
JSR PTRGET 3;ADDR OF POINTER 
LDY #1 


continued on next page 
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Amp-L-Soft (Cont.) 


992C:B1 
992E:8D 
9931:CE 
9934: AD 
9937:18 
9938:65 
993A:85 
99ST: AI 
@93E:65 
9949:85 
G942:C6 
9944: Do 
9946:C& 
9948: 
9948: 29 
994B: BO 
994D: EE 
9958: AD 
9952:B1 
9954:D1 
9956: DS 
9958: C8 
9959:CC 
895C: DS 
OISE: FO 
9969: 
9969: 
9948: 
9969: 
9959:AP 
9962:8D 
9965: A0 
9967:AD 
B96A:971 
996C: 4C 
O96F: 
O96F: 
OIEF: 
O96F: 
OI6F: 
O96F: 
9976: 
9971: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
@972: 
9972: 
@972: 
6972: 
@972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
FCAS: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972: 
9972:28 
9975: BE 
9978: 20 
997B: 28 
O97E: BE 
9981: 
9981: 
9981: 
@981:AD 
99784: Do 
9986: AD 
9989: 20 
998C: 4C 
@IBF =: 
O9BF: 
O9BF : 
998F : AD 
9992: 88 
9993:DB 
9995: CE 
9998:FO 
899A:CA 
999B: D@ 
999D: AE 
B9AD: 4C 
G9A3:4C 
O9A6b: 
BIA: 
O9AG: 
BIAS: 
BIAS: 
@IA7T: 
99AB: 
SIAR: 
O9AB: 
99AB: 


83 
71 
71 
7) 


3c 
3c 
(17) 
3D 
3D 
3c 
G2 


a? 
99 
a9 


FE 


99 


99 


3 


3 


“9 


Eé 


ce 


a9 


a9 
69 
D? 


353 
354 
355 
356 
357 
358 
359 
368 
361 
362 
363 
364 
365 
366 
367 
368 
369 
378 
371 
372 
373 
374 
375 
376 
377 
378 
379 
389 
381 
382 
383 
384 


465 
466 
467 


LDA (VARPNT),Y ; INTEGER LO 


STA POINT 
DEC POINT 
A POINT 
aap 3;SET Al BEFORE THE 
apc Al ;FIRST SUBSTRING 
STA AL 3IN OBJECT TO 
LDA #0 370 COMPARE 
apc Ai+ti 
STA Ai+1 
DEC Al 
BNE %+4 
DEC Ai+t1 
s 
NEXT JSR NXTAIL 
BcS MISS 
INC POINT 
LDY #*@ 
LooP LDA (A1),Y 
CMP (A3),Y 
BNE NEXT 
INY 
CPY LTAR 
BNE LOOP 
BE@ HIT 


&* RETURN POINT TO CALLER 
% BUT AS A ZERO IF MISS 
* 
MISS LDA 4A 
STA POINT 
HIT LDY #1 
LDA POINT 
STA (VARPNT),Y 
JMP DATA sEXIT STATEMENT 
s 
2 
SS DATA STORAGE 
* 
ee DS 1 ;LENGTH OF OJBECT 
LTAR DS 1 ;LENGTH OF TARGET 


POINT DS 1 ;POINTER PARAM 
STTTTAAAAARAAATATasesssessesessss 
bs 
TONE& 
BY PAUL IRWIN 
COPYRIGHT (C) 1982 
BY MICRO-SPARC INC 
LINCOLN, MA. 91773 
ALL RIGHTS RESERVED 


APPLE’S BUILT-IN SPEAKER. 


* 
Pi 

t 

‘ 

t 

8 

t 

s 

t 

8 
GENERATES A TONE ON THE * 
s 

Ps 
CALL SEQUENCE: 8 
&N (P,D) % 

WHERE 8 
&N( IS PARSED BY AMPERJUMP  & 
P = PERIOD @...255 t 

D = DURATION 1...255 8 

‘ 

a 


SETTTATTAK TACT AAAATAAAART sees Ts 


EQUATES 


AIT EQU ¢sFCAS 


ROUT INE 


GET PERIOD AND DURATION PARAMS 


ot OF tt oe me ot EF of ae oF at OF OF OF oF oF fb Oe Ob OF Ot Ob Oe Oe OF OF Oe OF ot mt te oe 


JSR GETBYT 


STX PERIOD 
JSR CHKCOM 
JSR GETBYT 3; DURATION 
STX DURATN 
s 
% A ZERO PERIOD MEANS REST NOTE 
* 
LDA PERIOD 
BNE TONE 
LDA DURATN 
JSR WAIT ;DELAY FOR A REST NOTE 
JMP DATA 3 THEN FINISHED 
“ 
* A PERIOD > @ MEANS A TONE NOTE 
s 
TONE LDA $CO36 ; TOGGLE SPEAKER 
TONE 1 DEY 
BNE TONE2 
DEC DURATN 
BEQ TONES 
TONE2 DEX 
BNE TONE1 
LDX PERIOD 
JMP TONE 
TONES JMP DATA 3 FINISHED 


z 
bs 
% DATA STORAGE 
* 


PERIOD DS 1 
DURATN DS 1 
STTTTTTAATA STATS TATE Ae eer eee Ts 
2 bs 
* INPUT& 1 
s BY PAUL IRWIN . 
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@9A8: 
9708: 
9988: 
@9A8: 
@9AB8: 
@9A8: 
@9A8: 
9908: 
@9A8: 
BIAB: 
99AB: 
@9AB: 
99A8: 
@9AB: 
9908: 
@9A8: 
@9A8: 
8908: 
B9AB: 
@9A8: 
B9A8: 
@9A8: 
99AB: 
@9A8: 
@9A8: 
@9AB: 
@9AB: 
@9AB8: 
@9A8: 
@69D: 
9269: 
DS2C: 
E3DS: 
ESE2: 
@9A8: 
@7AB8: 
@9A8: 
@9AB: 
@9AB: 
@9AB: 
@9A8: 
@9A8: 
B9AB: 
POIAB: 28 
DIAB: 20 
BIAE: AZ 
99B9:E8 
99B1:BD 
99B4:C9 
99BS: DO 
@9B8: BA 
O9BI: 
BIBI: 
@9B9: 
BIBI: 
BIBI: 
@9B9: 20 


B9BC: AG 
O9BE:AS 
@9C9:91 
99C2:C8 
@9C3:AS 
@9C5:91 
99C7:CB 
9908: AS 
B9ICA: 91 
@9CC: 
99CC: 
S9CC: 
@9CC: 
99CC:AS 
@9CE:A2 
@9D9: AD 
99D2: 28 
@9D5: 
99DS: 
@9D5: 4C 
9@9D8: 


@9D8: 
99D8: 
9908: 
@9D8: 
9908: 
@9D8: 
@9D8: 
@9D8: 
@9D8: 
@9D8: 
@9D8: 
@9D8: 
9908: 
@9D8: 
@9D8: 
@9D8: 
@9D8: 
@9D8: 
@9D8: 
@9D8: 
@9DA: 
@9D8: 
@9D8: 
@9D8: 
@7D8: 
@9D8: 
99D8: 


9908: 
@9D8: 
@9D8: 
99D8: 
99DB: 
999B: 
DEBS: 
F7D9: 
9908: 
@9D8: 
@9D8: 
OOO: 


ES DF 
2c DS 
FF 


GO B2 


ao 
FS 


95 DF 


468 
469 
479 
471 
472 
473 
474 
475 
476 
477 
478 
479 
4890 
481 
482 
483 
484 
485 
486 
487 
488 
489 
499 
491 
492 
493 
494 
495 
496 
497 
498 
499 
50@ 
5@1 
502 
5@3 
564 
5@5 
5@6 
587 
598 
509 
519 
Sit 
S12 
S13 
514 
Sis 
516 
517 
518 
519 
529 
521 
522 
S23 
524 


525 
526 
527 
528 
529 
539 
S31 

532 
S33 
S34 
535 
536 
537 
538 
S39 
549 
S41 

342 
S43 
544 
545 
546 
S47 
548 
549 
S5e@ 
SS1 

S52 
Ss3 
554 
S55 
556 
S57 
558 
55? 
56e 
S61 

562 
S63 
564 
565 
566 
567: 
568 
569 
578 
S71 

572 
S73 
574 
S75 
576 
577 
578 
579 
580 
S81 

582 
Ses 
584 
585 
S86 


COPYRIGHT (C) 1982 
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REPLACES THE STRING INPUT 
IN APPLESOFT. ALLOWS THE 
USE OF QUOTES, COMMAS, AND 
COLONS IN THE INPUT STRING 
WITHOUT TRUNCATION. ESCAPE 
AND CONTROL SEQUENCES ARE 
RETAINED. USES KSW INPUT 
HOOK; I.E£. WORKS WITH DISK. 


CALL SEQUENCE: 
&I CINS) 


, Mi athad ated etathetatathatathetethetathatethetbel 


WHERE 
&I( IS PARSED BY AMPERJUMPS 


INS = STRING VARIABLE TO & 


INPUT. * 
* 


EQUATES 


en enn nenne een nee nee nee eee eee 


DSCTMP EQU $9D ;NEW DESCRIPTOR 


BUF EQU $9289 ; INPUT BUFFER 
INLIN EQU $D52C 3; INPUT TO BUF 
STRINI EQU $E3D5 ;GET SPACE & DESCR 
MOVSTR EQU $ES5E2 3Y¥,X, TO (FRESPC) 
2 
* 
* 
* 
* ROUTINES 
a 
* 
* GET VARIABLE AND THE STRING 
* 
JSR PTRGET ;GET STRING VAR 
JSR INLIN ;GET INPUT TO BUF 
LDX #$FF 
MAINI INX 3; IND LENGTH 
LDA BUF,X 3;O0F STRING IN BUF 
CMP #2 
BNE MAINI 
TXA 
a 
% WITH LENGTH OF INPUT STRING IN 


% THE A-REG, PREPARE SPACE AND A 
% NEW DESCRIPTOR IN VARIABLE. 


: 

JSR STRINI ;CREATE SPACE AND DESCR 

LDY #@ 

LDA DSCTMP 

STA (VARPNT),Y ;COPY DESCRIPTOR 

INY 

LDA DSCTMP+1 

STA (VARPNT),Y 

INY 

LDA DSCTMP+2 

STA (VARPNT),Y 
t 
% MOVE THE STRING FROM INPUT BUFFER 
% TO THE NEW STRING SPACE 
t 

LDA DSCTMP ; LENGTH 

LDX #>BUF ;ADDR LOW 

LDY #<BUF ;ADDR HIGH 

JSR MOVSTR ;BUF TO (FRESPC) 
8 
% 

IMP DATA ; FINISH STATEMENT 
’ : 
peeeeetittittisittiseiiiititiiss: 
% t 
’ TAGSORTSE ‘ 
. . 
* ASSEMBLER: APPLE II VER 1.9 & 
s AUTHOR: PAUL IRWIN ® 
‘ WRITTEN: MARCH, 1981 . 
* « 
* THE QUICKSORT ALGORITHM USED * 
*% ON VECTORS OF SORT KEYS AND & 
* TAGS. KEYS AND TAGS MUST * 
* BE INITIALISED BEFORE THE t 
# CALL; THEY ARE RETURNED IN & 
% ASCENDING SEQUENCE. TO CALL * 
% THE SORT USE THE AMPERSAND 8 
* FUNCTION FROM APPLESOFT: ® 
* t 
* &A(S$,T%,F,L) ® 
* WHERE * 
* &A( IS PARSED BY AMPERSAND & 
’ JUMP UTILITY: AMPERJUMP 8 
* S$ = NAME OF SORT VECTOR * 
* SINGLE DIMENSION t 
* T% = NAME OF TAGS VECTOR ry 
* SINGLE DIMENSION, INT & 
t F >= 1, THE FIRST ELEMENT & 
* L = THE LAST ELEMENT * 
’ * 
peeee testi tsisstissttctssissiissy 
Py 
* EQUATES 
a 
* APPLESOFT USEAGE 
PY 


LOWTR EQU $899B 
CHKCLS EQU S$DEBS 
GETARYPT EQU $F7D9 

* 

% QUICKSORT LOCAL USEAGE 
* 
INDX 


EQU $86 ;USED BY POINT 


9992: 587 DESCR EQU $62 ;USED BY POINT 


GOD4: 588 TAGS EQU $04 ; Lata weers 
2060: 587 IREC1 EQU $49 }INDEX LEFTMOST pial ee Se Boa ee eee 
9962: 599 DREC1! EQU $62 ;POINTER TO DESCRIPTOR rate De ae rine oh Neds aoe ae ae 
9944: 591 TRECi EQU $44 ;POINTER TO TAG 
O96: 592 IREC2 EQU $46 ; INDEX RIGHTMOST os a aed aS SORT” LDA “ TRECI sO0 MILE 
9948: 593 DREC2 EQU $48 ;POINTER TO DESC. easeren ks i a tees PREC Lea 
9940: 594 TREC2 EQU $6A ;POINTER TO TAG DE onianas ee Sea neeete 
Q96C: 595 IRECS EQU $4C ; INDEX CURSOR aioties ar Sis eee YeREe : 
O94E: 596 DRECS EQU $6E ;POINTER TO DESC. aes aa oF Bi Bees ae 
9979: 597 TRECS EQU $79 ;POINTER TO TAG Beat olan a oye, Bae aren aya cass 
9972: 598 IRECL EQU $72 ; INDEX LEFT CURSOR Agee Side Net aat! acetal eae PRATITION 
9974: 599 DRECL EQU $74 ;POINTER TO DESC. AR or py oy eee 
9076: 699 TRECL EQU $76 ;POINTER TO TAG : SOAVE ABE EE REE es neo 
9978: 691 ITEMP EQU $78 ; INDEX TEMP STRING pie ap ot a a Hie ST REC Zea eae 
997A: 692 DTEMP QU $7A ;POINTER TO DESC. rae 
@O7C: 6@3 TTEMP EQU $7C ;POINTER TO TAG Lee Gael de cee SBC St 
OO7E: 604 STRNG1 EQU $7E ;COMPARE STRING 1 BOGE Ace ewe hag lies: 
9989: 695 STRNG2 EQU $89 ;COMPARE STRING 2 BABES AS GD 72s BPA There et 
9982: 694 ISTACK EQU $82 ;STACK INDEX PAROLE? ee Lea ape 1a 
“Say nazis @ABC:85 67 725 STA IREC2+1 
ona ema’ OABE:20 78 GA 726 JSR SORT yREC1 TO (REC3-1) 
ioe hae ¢ 9A91:2@ D2 BA 727 JSR UNSTACK 
Gonas ate evr (RTA EE GAI4: 728 * NEXT, SORT RIGHT PARTITION 
aenas parts @A94:28 AB BA 729 JSR STACK 
menace rans GAIT: AS 6C 730 LDA IREC3 ;SET REC1 <-- RECS + 1 
PSRMritiiiittittttiitiiti ttt tt its 9A79118 731 cLC 
9908: 614 8 MAIN LINE * GAIAICF 81 732 ADC #1 
PSLMitiitiititititiit tsi i iii i tts GBAIC: 85 60 733 STA IREC1 
g9D8: 616 % ENTER HERE FROM AMPERJUMP. GAIELAS 6D 734 LDA IRECS+1 
9908: 617 & PICK UP THE PARAMETERS pacqsaetd res a ea ae 
een, ere ee coeur verre. FELT GAA4:20 78 BA 737 JSR SORT } (REC3+1) TO REC2 
R GAA7:26 D2 GA 738 JSR UNSTACK 
9908: 62 
99D8:26 D9 F7 421 JSR GETARYPT viet as ie rag RTS eh SS 
SDB AS 9B eee seas alls wees Le Ane 741 Seaeeeeeeeeeessseessssaceeess 
g9DD: 18 623 cLc ;STRING ARRAY Pye Sie*s STARK RECORD INDICES A 
ByvETe? O82 pan ADE 27 PeSMeiiittiiiiitiiitititititt srs 
O9EO:8D FD OC 625 STA, (SRTARY BAAB:A2 9G 744 STACK LDX 4 
99ES:A5 9C 626 LDA LOWTR+1 ARS ane RAT CIRECL 
SE se ee EE he BAAF:81 82 746 STA (ISTACK, x) 
99E7:8D FE @C 628 STA SRTARY+1 PRR Say TMT ALE 
O@9EA: 26 B7 BB 629 JSR CHRGOT ;CHECK FOR A COMMA RESTARTS vas oA IREETSL 
G9ED:2@ BE DE 439 JSR CHKCOM ; BETWEEN PARMS ence ae a5 STAT CEST ACIS 
@9FG:29 DI F7 631 JSR GETARYPT BRET IE EtGS oe Tic) STAG 
99F3:A5 9B 632 LDA LOWTR ;ADDRESS OF TAGS ARS a oar SnAMT RECS 
99F5: 18 433 cLc ; INTEGER ARRAY BacGtES ees STA CISTACK, X) 
OFF 6167 97 634 QOS mz, @ABD:E6 82 753 INC ISTACK 
O7F8:8D 99 OD 4355 Sint tao. OABF:AS 67 754 LDA IREC2+1 
SIF BAS 9C 636 Lat pi al La @AC1:81 82 755 STA (ISTACK,X) 
PFD? OS 637 Spas Wd GAC3:E6 B2 756 INC ISTACK 
@9FF:8D 91 @D 438 STA TAGARY+1 ie Sy Hie SS LDA IRECS 
9A92:29 B7 BB 639 JSR CHRGOT ;CHECK FOR A COMMA ARS a ES oe STA CISTACK, X 
95:29 BE DE 446 JSR CHKCOM ;BETWEEN PARMS FAS Sn ae os INC  ISTACK 
@AGS:2G 7 DD 441 JSR FRMNUM SACRIASLED 760 LDA IREC3+1 
@AGB:20 52 E7 642 JSR GETADR ;FIRST ELEMENT NUMBER ARR ee ae STA CISTACK, X) 
@AGE:2@ BE DE 643 JSR CHKCOM ;WITH COMMA parce Eres Fie TNC CISTAGK 
@AL1:AS Sa 644 LDA LINNUM @AD1: 69 763 RTS 
@A13:8D 93 OD. 645 STA INDEX1 @AD2: 764 & 
@A16:A5 S51 646 LDA LINNUM+1 765 UEAEKTARATATTTATAeseTTATETSE 
@A18:8D 94 BD 647 STA INDEX1+1 @AD2: 766 % UNSTACK RECORD INDICES 8 
@A1B:24 B7 8G 648 JSR CHRGOT 77 RERETATAERATTTTALeeTesTseeEs 
@ALE:2@ 67 DD 649 JSR FRMNUM BAD2:A2 BO 768 UNSTACK LDX #7 
@A21:26 52 E7 659 JSR GETADR ;LAST ELEMENT NUMBER SADsi C4. 82 aie DEC ISTACK 
G@A24:26 BB DE 451 JSR CHKCLS ;WITH *)? CLOSE BADE: Ai B2 778 LDA (ISTACK,X) 
GA27:AS 5d 652 LDA LINNUM @ADB8:85 6D T7i STA IRECS+1 
@A29:8D 6 @D 653 STA INDEX2 @ADA:C& B2 772 DEC ISTACK 
@A2ZCFAS Si 654 LDA LINNUM+1 @ADC:A1 82 773 LDA (ISTACK, X) 
@A2E:8D 87 BD 655 STA INDEX2+1 @ADE:85 6C 774 STA IRECS 
@A31:28 95 DF 656 JSR DATA 30K, ADVANCE TXTPTR @AEG:C& B82 775 DEC ISTACK 
9A34: 657 & GAE2:A1 82 776 LDA (ISTACK, x) 
OA34: 458 * PARAMETERS READ OK. NOW OAE4:85 67 777 STA IREC2+1 
9A34: 659 * THE SORT IS CALLED AND @AE6:C4 B2 778 DEC ISTACK 
@AS4: 669 *& ITS PAGE ZERO NEEDS MANAGED. @AEB:A1 B2 779 LDA (ISTACK,X) 
GA34: o61 4 BAEA:85 66 789 STA IREC2 
@A34:26 SE BA 662 JSR SAVEZ sSAVE PABE ZERO @AEC:C& 82 781 DEC ISTACK 
9A37:28 S4 BA 663 JSR TSORT 3DO THE SORT @AEE:A1 82 782 LDA (ISTACK, xX) 
BASA:28 49 BA 564 JSR RESTZ JRESTORE PAGE ZERO GAFO:85 61 783 STA IRECi+1 
@A3D1 68 665 RTS 3-- TO APPLESOFT PROGRAM @AF2:C& 82 784 DEC ISTACK 
ASE: 666 8 OAF4:A1 82 785 LDA (ISTACK, x) 
Pe meritittititiiitiitiiiiiiiiess! GAFéIBS 68 786 STA IRECt 
@ASE: 668 % SAVE SOME OF PAGE ZERO 8 GAFB: 68 787 RTS 
S67 SHSTESSAEA SATE SeEEsEEE TEES SES JOG SEKRTRTTARTRSRATATATTTAT AT TTS 
BASE: AZ SF 678 SAVEZ LDX #$3F OAF9: 789 & PARTITION R1,R2 AT RS t 
@A49:BS 608 671 SAVEZ1 LDA IREC1,Xx 79D AUATAAATAA ASAT ATAAA RATT ATATT 
@A42:9D BD BD 4672 STA SAVEA, x O0F9: 791 8 
@A45:CA 673 DEX a 
@A46:19 FB 674 BPL SAVEZ1 pe 2 ae : TIO eS ae 
laa 7 : RTS OAF9:AS 60 794 PART LDA IREC1 ;SET RECS TO THE 
: ‘“ . 
677 eeeeseesseeereesessesssesses pres ht Ly eee Wares ee ee Oa an eae 
BAAD: 676 % RESTORE SOME OF PAGE ZERO 8 @AFE:85 4C 797 STA IRECS ;IREC2 THEN DIVIDE 
479 SERSeeeeeeaceaeseceseeseeeess yal Sgr Roe od LDA IRECI+1  ;THE SUM BY TWO. 
GASIZA2 SF 668 RESTZ LDX #@8SF @BO2:65 47 799 ADC IREC2+1 
GA4B:BD @D @D 681 RESTZi LDA SAVEA,X eneavee ob ae STA. RECS 
OASE: 95 68 682 STA IREC1,X @BO6:66 4D Boi ROR IREC3+1 
@ASO: CA 683 DEX @B98: 466 6C 802 ROR IRECS 
@A51:16 FB 684 BPL RESTZ1 BGA: AZ 6 803 LDX ®IREC1 
GAS3: 60 685 RTS @BGC:26 57 GC 8G4 JSR POINT2 
BAS4: 686 8 @BOF:A2 6C 895 LDX #IRECS 
687 seeeeessaseseeecasesssessesss ent icsel57 GC Gas JGR (POINTS 
@AS4: 688 8 TAG SORT 8 @B14:20 BF GC 807 JSR SWAPA ;SWAP REC1 WITH RECS 
689 SSSRAERETE ESET EeE SESE seeE TTS @B17:A5 69 ee8 LDA IREC1 ;SET RECL <-- REC! + 1 
GAS4: 699 & @B19:18 899 CLC 
GASA4: 491 % THE TAG SORT IS CALLED ONLY epinzé9 #1 nae ADC wl 
@AS4: 692 : ONCE HERE; FROM THE MAIN LINE. @B1C:85 72 Bil STA IRECL 
@A54: 693 : LDA IREC1+1 
@A54:AD @3 9D 694 TSORT LDA INDEX! ; SET INDEXES edi Ra aie ADC #4 
9A57:85 69 695 STA IREC1 sREC1 AND REC2 @B22:85 73 a14 STA IRECL+1 
GAS9:AD G4 OD 696 LDA INDEXi+1 5TO INDEX1 @B24:AS 46 B15 LDA IREC2 ;SET RECS <--- REC2 
@ASC:85 61 697 STA IRECi+1 3AND INDEX2 a FS Bie STa IRECS 
@ASE:AD 96 @D 698 LDA INDEX2 } RESPECTIVELY. ea me a aaa LDA IREC2*1 
@A61:85 66 699 STA IREC2 @B2A:85 4D 818 STA IREC3+1 
@A63:AD 87 BD 700 LDA partes’ rea ais 
9A66:85 467 7e1 STA ee DE ON 
@A68:A9 4D 762 LDA #>STACKA RESET STACK INDEX peat Reet et a A 
GAA: 85 82 793 STA ISTACK ;TO TOP (STACKA) 
@AbC: A? BD 794 LDA #<STACKA continued on next page 
GASE:85 83 765 STA ISTACK+1 
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9C17:85 72 938 STA IRECL 


Amp-L-Soft (Cont ) @C19:AS 73 939 LDA IRECL+1 
7 @C1B:69 88 949 ADC #6 
= A IRECL+1 
@B2C:A2 6G 822 DECIDE LDX #IREC1 ;SET THE POINTERS @C1iD:85 73 941 ST 
@B2E:26 57 GC 823 JSR POINT2 ;FOR REC1, RECL, AND @CiF:4C 2C OB 942 IMP DECIDE 
@B31:A2 72 824 LDX #IRECL ; RECS. @C22:C9 BS 943 ACTIONS CMP #3 
@C24:D8 94 944 BNE ACTION4S 
@B33:20 57 GC 825 JSR POINT2 
@B34:A2 6C 826 LDX #IRECS 60:26:20 BF @C 945 JSR SWAPA ;RECS WITH REC1 
9B38:26 57 GC 827 JSR POINT2 @C29: 69 946 RTS ;EXIT OF PARTITION 
@B3B:A9 9D 828 LDA #6 @C2A:C9 B4 947 ACTIONS CMP #4 
@B3D:8D 99 BD 829 STA CASE @C2C:D@ 19 948 BNE ACTIONS 
@B49:AS 72 839 LDA IRECL ;IF IRECL >= IRECS @C2E:AS 6C 949 LDA IRECS 
9B42:18 ex cLe ;THEN CASE = CASE + 1 @C30:38 950 SEC 
@B43:E5 6C g32 SBC IRECS @C31:E9 91 951 SBC #1 
@B45:AS 73 a33 LDA IRECL+1 @C33:85 6C 952 STA IRECS 
@B47:E5 6D 834 SBC IREC3+1 @C35:AS 6D 953 LDA IRECS+1 
9B49:99 BS g35 BCC DECIDE1 @C37:E9 OO 954 SBC #@ 
@B4B:EE 99 BD 9836 INC CASE 9@C39:85 4D 955 STA IREC3+1 
QB4E:AG BO 837 DECIDE1 LDY #@ ;LENGTH <-- @C3B:4C 2C OB 956 IMP DECIDE 
@B59:B1 62 838 LDA (DREC1),Y ;MINIMUM LENGTH @C3E:EA 957 ACTIONS NOP ;NOT DEFINED 
@B52:D1 6E 839 CMP (DREC3),Y ; OF (REC1,REC3) OC3F:C9 86 958 ACTIONS CMP #6 
9B54:99 @2 849 BCC DECIDE2 @C41:D@ 13 959 BNE ACTION7 
@B56:B1 6E B41 LDA (DREC3),Y @C43:20 C6 BC 9468 JSR SWAPB ;RECL WITH RECS 
@B58:8D 9B GD 842 DECIDE2 STA LENGTH @C46:AS 46C 961 LDA IRECS 
@B5B:C8 B43 INY 6C48:38 962 SEC 
@B5C:B1 62 844 LDA (DREC1),Y ;SET STRNG1 AS REC1 OC49:E9 B1 963 SBC #1 ; IRECS <-- IREC3 - 1 
@BSE:85 7E 845 STA STRNG1 @C4B:85 6C 964 STA IRECS 
@B69:B1 6E B44 LDA (DREC3),Y @C4D:AS 46D 965 LDA IREC3+1 
9B62:85 89 847 STA STRNG2 OC4F:E9 8G 966 SBC #9 
9P64:CB 848 INY @C51:85 6D 967 STA IREC3+1 
OB65:B1 62 849 LDA (DREC1),Y ;SET STRNG2 AS RECS @C53:4C 2C OB 968 IMP DECIDE 
9B47:85 7F a59 STA STRNG1+1 OC54: 88 969 ACTION7 BRK ;THAT’S ALL OF THEM! 
@B49:B1 6E 851 LDA (DREC3),Y @C57: 978 
@B4B:85 Si 852 STA STRNG2+1 971 SEReeeeeeeeeaaeeeseersesesess 
@BED:AG BO 853 LDY #9 @C57: 972 * SET POINTERS FROM INDICES #& 
@B46F:Bi 7E 854 DECIDES LDA (STRNG1),Y 31F REC1 >= RECS 973 SATTTSATAA TAT Ae ee eTATeTseeTs 
9B71:D1 ao 855 CMP (STRNG2),Y ;THEN CASE <-- CASE + 2 @C57:B5 oe 974 POINT2 LDA INDX,X ; CALCULATES 
@B73:99 16 a56 BCC DECIDES 9C59:18 975 cLc ;DESCRIPTOR <—-- 
@B75:D@ GE 857 BNE DECIDE4 @C5A: 2A 976 ROLA ; 3*INDX + SRTARY 
9B77:C8 ass INY @CSB:95 #2 977 STA DESCR,X  ;AND 
@B78:CC 9B @D 859 CPY LENGTH @C5D:95 84 978 STA TAGS,X ;TAGS <-—- 
@B7B:D@ F2 849 BNE DECIDES @CSF:BS @1 979 LDA INDX+1,X ;  28INDX + TAGARY 
@B7D:AG BO 861 LDY #0 @C61:2A 980 ROLA 
@B7F:B1i 62 862 LDA (DREC1),Y @C62:95 BS 981 STA DESCR+1,x 
Eee 6E B63 CMP (DRECS),Y 9C44:95 85 982 STA TAGS+1,X 
son * 86 864 BCC DECIDES @C66:B5 OB 983 LDA INDX,X 
:EE 99 @D 865 DECIDE4 INC CASE @C48:75 B2 984 ADC DESCR, X 
@Bg8:EE G9 BD 846 INC CASE @C4A:95 92 985 STA DESCR.X 
OBB: AS Bo G67 DECIDES LDY #@ ;LENGTH <-- @C4C:BS 81 986 LDA INDX+1.X 
@B8D:B1 42 868 LDA (DREC1),Y ;MINIMUM LENGTH @C4E:75 O3 987 ADC DESCR+i,x 
. ,’ 
@BBF:D1 74 869 CMP (DRECL),Y ; OF (REC1,RECL) @C79:95 OS pea STA DESCRSL_X 
9B91:99 92 879 BCC DECIDES @C72:A " 
: :AD FD @C 989 LDA SRTARY 
@B93:B1 74 a71 LDA (DRECL),Y ec75 
: 275 @2 999 ADC DESCR, x 
9B95:8D 9B @D 872 DECIDES STA LENGTH OC7I5 9S Bz , 
9B98:CB 873 INY BIG TANI EE ae pnd! STA e RESCH» X 
@B99:B1 62 874 LDA (DREC1),Y ;SET STRNG1 AS REC1 ae aes pose th 
@B9B:85 7E 875 STA STRNG1 aoeiss as hl lg > 
@B9D:B1 74 876 LDA (DRECL),Y OeLAD se a OS SS Se 
@B9F:85 8g 877 STA STRNG2 ecas:75 84 996 pan nig ; 
@BA1:CB 878 INY : 
: @CBS:95 94 997 STA TAGS, x 
@BA2:B1 &2 879 LDA (DREC1),Y ;SET STRNG2 AS RECL @ce 998 : 
@BA4:85 7F 889 STA STRNGI+i ears od 999 cart aaah 
@BAS:B1 74 881 LDA (DRECL),Y pornoeii ats A §tesae ts X 
@BAB:85 81 882 STA STRNG2+1 ocne: 68 ~ . ine are eet 
BAA: AG BS 883 LDY #9 : 
@BAC:B1 89 884 DECIDE7 LDA (STRNG2),Y ;IF RECL >= REC1 me hee tans at 
@BAE:D1 7E Bes CMP (STRNG1),Y ;THEN CASE <-- CASE + 4 ecer: FUCESSE SUSE ESSEC ceNeee Sos 
@BBS:98 1C 886 BCC DECIDE sp ats SWAP RECI AND RECS : 
enEGE DS oC 255 ciae neces WT Mtitititiitititiiiitiiiiitiit! 
9BB4:C8 sss INY SCBFIAD OO 1986 SWAPA LDY #6 
@BB5:CC 9B 9D 889 CPY LENGTH a kal 2 1997 LDA (DREC1),Y 
@BBS:D9 F2 89g BNE DECIDE7 ace ae aa TAX 
@BBA:AG BS 891 LDY #3 Seeese 6E 1909 LDA (DREC3),Y ; SWAP FIRST BYTE 
Gene 74 es eR 2:91 42 1919 STA (DREC1),Y ; OF DESCRIPTORS 
@BBE: D1 He SC7ELBA 1911 TXA . 
:D1 62 893 CMP (DREC1),Y 3 THE STRING LENGTH 
a 9C99:91 6E 1912 
@BC9:99 BC 894 BCE DEE STA (DREC3),Y 
@BC2:EE 9 @D 895 DECIDES INC ae phe oe tae LDA (TREC1),Y 
@BCS:EE 99 @D 896 P 14 TAX 
eee ws #0. aco — (ied @C9E:B1 79 1915 LDA (TREC3),Y ; SWAP FIRST BYTE 
@BCB:EE 99 @D 898 INC CASE SEARLS UBER 1916 STA (TREC1),Y ; OF TAG DESCR: 
@BCE:AD 99 SD 899 DECIDE? LDA CASE itipra dog Let? TXA ; THE INTEGER (HI BYTE) 
GeRtcd ar Spa ee, ae @CA3:91 79 1918 STA (TREC3),Y 
@BD3:D@ 97 991 BNE DECIDE1¢ Leite 181 INY 
OBD5:A9 93 962 LDA #3 OCAG:B1 62 1820 LDA (DREC1),Y 
@BD7:8D 9 BD 963 STA CASE toner 1021 TAX 
BEnAT De OF aa =p A :B1 6E 1922 LDA (DREC3),Y ; SWAP SE 
@BDC:C9 85 995 DECIDE1@ CMP #5 eae eee STA (DRECL).Y 3 OF beecaiPrara 
@BDE:D@ 95 996 BNE DECIDE11 I 1824 TXA STRI DRE: 
OBEG:A9 Gi 997 LDA #1 @CAE:91 6E 1825 STA (DREC3),Y . oe ee 
@BE2:8D 99 BD 998 STA CASE @CBO:B1i 64 1026 LDA (TREC1),Y 
@BES:EA 989 DECIDE11 NOP aaee 1027 TAX 
OBES: 919 * 1Bi 78 1928 LDA (TRECS 
epee: 911 8 PARTITION ACTION a opted 64 =: 1029 STA (TRECL? -¥ : OF TAS DESCR: 
: 912 2 : 1930 TXA 
@BEE:C9 99 913 ACTIONS CMP #@ @CBS: 91 70 1931 STA (TREC3),Y — sh ta hin dala ti 
@BEB:DZ 19 914 BNE ACTION @CBA: CB 1932 INY 
@BEA:AS 6C Fis LDA IREC3 @CBB:Bi 62 1933 LDA (DREC1),Y 
Secises #1. 917 oe SCRe:Bi 6c © 1BS8 7 
: : 
peeeres at ets ba owt sIRECS <-- IRECS - 1 pt hale Ane LDA (DREC3),Y ; SWAP THIRD BYTE 
OBF1: STA (DREC1),Y ; OF DESCRIPTORS: 
1:A5 6D 919 LDA IREC3+1 @CC2:8A 1037 TxA ; STRING ADDRE 
OBF3:E9 8G 929 SBC #0 @CC3:191 6E 1938 STA (DREC3),Y oe 
@BF5:85 6D 921 STA IREC3+1 OCCS: 68 1039 RTS M 
OBF7:4C 20 @B 922 IMP DECIDE @CCé: 1040 8 
OBFA:C9 @1 923 ACTION1 CMP #1 1041 seeeae 
@BFC:D9 19 oF ol ects Prttiiiiiiiiiiiitiititt: 
be 18 ACTIONZ 1942 « SWAP RECL AND RECS ry 
sich = LDA IRECS ie WISMetitititititiiitittiiii i i ittt 
@CG1:E9 81 bes yea aatae eo 1044 SWAPB LDY 4#@ 
SBC #1 ;IRECS <-- IREC3 - 1 ape ee 1045 LDA (DRECL),Y 
9C93:85 6C 928 STA IREC3 @CCA: AA 1846 TAX 
@C95:AS 46D 929 u @CCB:B1 4E 1047 
eRe ee ae had DA IRECS+1 hei oA LDA (DREC3),Y ; SWAP FIRST BYTE 
SBC #8 1948 STA (DRECL),Y ; OF DE ORS 
@C@9:85 4D 931 STA IREC3+1 @CCF: 8A 1949 TXA i rue tata aris 
HeAE AS Sep EE Se nine eCDeT91 6E ppt dee 2 ed © STRING LENGTH 
@CGE:C9 92 933 ACTION2 CMP #2 seeeenl 75 1051 LDA (TRECL),Y 
@C19:D9 16 934 BNE ais @CD4: AA ’ 
@C12:AS 72 935 zpaabe @CDS: Bi oo Vale 
: : 7 
oci4:ie oan ma IRECL @CD7: 91 ‘ oa LDA (TREC3),Y ; SWAP FIRST BYTE 
ree ie, ed : STA (TRECL).Y ; OF TAG DESCR: 
ADC #1 ; IRECL <-- IRECL @CD9: BA 1955 TXA Bes 
+1 3 THE INTEGER (HI BYTE) 
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@CDA:91 79 1956 STA (TRECS3),Y 

@CDC:Ce 1957 INY 

@CDD:B1 74 1958 LDA (DRECL),Y 

9CDF: AA 1959 TAX 

@CE9:Bi 46E 1966 LDA (DRECS),Y ; SWAP SECOND BYTE 
@CE2:91 74 1961 STA (DRECL),Y ; OF DESCRIPTORS: 
@CE4: 8A 1962 TXA. 3 STRING ADDRESS (HI BYTE) 
@CES:91 6E 1063 STA (DRECS3),Y 

@CE7:BL 76 1964 LDA (TRECL),Y 

9CE9: AA 1965 TAX 

@CEA:B1 79 1966 LDA (TREC3),Y ; SWAP SECOND BYTE 
@CEC:91 76 1967 STA (TRECL),Y ; OF TAG DESCR: 

@CEE: 8A 1968 TXA 3 THE INTEGER (LO BYTE) 
@CEF:91 79 1969 STA (TRECS),Y 

@CF1:C8 1976 INY 

@CF2:B1i 74 1971 LDA (DRECL),Y 

@CF4:AA 1972 TAX 

9CFS:B1 46E 1973 LDA <(DRECS3),Y ; SWAP THIRD BYTE 
@CF7:91 74 1974 STA (DRECL),Y ; OF DESCRIPTORS: 
OCF9:8A 1975 TKA 3 STRING ADDRESS (LO BYTE) 
@CFA:91 6E 1976 STA (DRECS),Y 

OCFC: 69 1977 RTS 

@CFD: 1978 * 

@CFD: 1979 & 

9CFD: 1989 & DA T a ST GR A Ge 

@CFD: 1981 &% 

@CFD: 1982 & 

@CFD: 1983 % 

@CFD: 1984 & WORKING STORAGE FOR PARMS 

@CFD: 1985 * 

OCFD: 1986 SRTARY DS 3 3SORT ARRAY ADDRESS 
9D99: 1987 TAGARY DS 3 3 TAGS ARRAY ADDRESS 
@D9S: 1988 INDEX1 DS 3 3;FIRST ELEMENT OF SORT 
9DB4: 1989 INDEX2 DS 3 ;LAST ELEMENT OF SORT 
9089: 1999 CASE DS 2 

@DOB: 1991 LENGTH DS 2 

@D9D: 1692 & 

@DOD: 1993 SAVEA DS $40 3;PAGE ZERO SAVE AREA 
@D4D: 1994 STACKA DS $199 3PARMS STACK AREA 
GE4D: 99 1995 BRK 


sas SUCCESSFUL ASSEMBLY: NO ERRORS 


SSS SF EE EE EY 


SOURCE FILE: LOADER 


9O99: 1 SERTKTTS TAA TATA TATRA ETE 

9999: ya 3 LOADER x 

ODDO: 38 BY PAUL IRWIN * 

GBO9: 4% % 

GOGO: Ss COPYRIGHT (C) 1982 * 

BGO: és BY MICRO-SPARC INC bs 

GOGO: 7% LINCOLN, MA. 91773 bs 

@OG9: 6 * ALL RIGHTS RESERVED * 

OOOO: 9 BSAPPLE DOS TOOL KIT ASSEMBLERS 

G99S: 1G SESSA TATA EATS TATE TTA EE 

G999: 11 8 bs 

9999: 12 % ROUTINE TO LOAD AND CONNECT# 

9999: 13 & THE AMPERSAND ROUTINES WITH 

9999: 14 8 AN EXISTING PROGRAM. * 

BOBO: iS & z 

9999: 16 8 FROM APPLESOFT, CALL BEFORES 

GB9G: 17 8 ANY VARIABLES OR ARRAYS ARES 

9OG9: 18 8 REFERENCED. USE COMMANDS: £f 

GGBS: 19 8 2 

GGGO: 26 4 BLOAD AMPER MASTER x 

GOG9: 21 8 CALL 18256 * 

GOBS: 22 8% s 

9999: 23 % FINAL POSITION OF ROUTINES 8 

GOG9: 24 8 IS IN $8@C.EFF AREA, WITH & 

GOGO: 25 £ USER PROGRAM RELOCATED TO & 

9899: 26 & START AT $FO1. * 

GO99: 27 t s 

99G9: 28 & THE LOADER RELOCATES THE s 

O999: 29 * CODE FROM $48@C DOWN TOA $8 

GOGO: 3@ & STARTING ADDRESS OF $80C. & 

GBBO: 318 * 

GOGO: 32 KORRTAAATAR ATA A SAS ATAAAE ETE 

O99: 33 8 EQUATES * 

@93C: 34 Al EQU $3C ;MOVE BEGIN 
OOSE: 35 A2 EQU $3E ;MOVE END 
@942: 36 AA EQU $42 ;MOVE DESTIN 
9959: 37 LINNUM EQU $590 3; INTEGER 
9@95E: 38 INDEX EQU $5E 3; INTEGER 
9G67: 39 TXTTAB EQU %67 3; START PROG 
99069: 49 VARTAB EQU $649 3; START VARS 
9979: 41 NXTPTR EQU $79 3NEXT STMT 
OO94: 42 HIGHDS EQU $94 3;USED BY BLTU 
G996: 43 HIGHTR EQU $96 ;USED BY BLTU 
OOAF = 44 PRGEND EQU SAF 3;PROG END 
@9BE: 45 TXTPTR EQU $BS 3 TEXT PTR 
@898C: 46 INIT EQU $989C 3& RESIDENCE 
GF OOD: 47 NUPROG EQU $9F9O 3;DESTIN PROG 
4890C: 48 ILOAD EQU $489C ;RELOC START 
4ADFF: 49 ELOAD EQU $4DFF ;RELOC END 
D3C3S: 5@ BLT2 EQU $D3C3 3;PART OF BLTU 
Dé6C: 51 CLEARC EQU $Dé4646C 3; CLEAR VAR/STACK 
FE2C: 52 MOVE EQU $FE2C 3;MONITOR MOVE 
— NEXT OBJECT FILE NAME IS LOADER. OBJG 

4759: S3 ORG $4759 

4759: 54 8 

4759: ss 8 

4750: 56 8 ROUTINES 

4756: S7 8 

4750: 58 8 

4759: s9 * 

4759: 69 * MOVE PROGRAM FROM PRESENT LOCATION 
4759: 61 * TO ADDRESS IN NUPROG. 

4756: 62 8 

4758:A9 OF 63 LDA #<NUPROG ;KONZEN’S SEQ 
4752:85 51 64 STA LINNUM+1 ;USED TO MOVE PROG 
4754:AI BOD 65 LDA #>NUPROG ;TEXT UPWARD IN MEM 
4756:85 59 66 STA LINNUM 3;BY CALLING BLT2 
47358:AS 67 67 LDA TXTTAB 


475A: 85 
475C:AS 
475E:e5 
4760:C6 
4762:38 
4763:A5 
4765:85 
4767:E5 
4769:85 
476B:AS 
476D:85 
476F:E5 
4771:85 
4773:A5 
4775:E5 
4777:A8 
4778:AS 
477A:ES 
477C:AA 
477D:18 
A77E: 65 
4786:85 
4782:CB8 
4783:D0 
4785:EB8 
4786:E8 
4787:C8 
4788: 20 
478B: 

478B: 

478B: 

478B:A2 
478D: 20 
4796: A2 
4792: 26 
4795: A2 
4797: 20 
47IAZAZ 
479C: AS 
AT9IE:C9 
47AG:F@ 
47A2: 20 
A7AS: AS 
47A7: 28 
47AA: 

ATAA: 

4TAA: 

47AA: 

47AA: AS 
47AC: 85 
A7AE: AS 
47B9: 85 
47B2:AG 
47B4:38 
47B5: Bi 
47B7:65 
47B9: 91 
47BB: AA 
47BC:C8 
47BD: Bi 
47BF:F6 
47C1:65 
47C3:91 
4705: 86 
47C7:85 
4709: 98 
A7CB: 

47CB: 

A7CB: 

47CB: 

47CB: 

47CB: A? 
47CD: 85 
A7CF AP 
47D1:85 
47D3: A? 
47D5:85 
47D7: A? 
4709: 85 
A7DB: A? 
47DD: 85 
A7DF:A9 
47E1:85 
ATES: AD 
47ES: 20 
A7EB8: 

A7EB: 

A7EB: 

47EB: 26 
47EB: 4C 
A7EE: 

4A7EE: 

A7EE: 

A7EE: 

A7EE:38 
47EF: BS 
A7F1265 
A7F3:95 
47F5:B5 
47F7265 
47F9:95 
47FB: 68 


esa SUCCESSFUL ASSEMBLY: 


c3 


mom Shams 


USAR S mh 


oo 
bs] 
i] 
@1 
Si 
@1 


DS 


47 


47 


47 


47 


47 


68 
Dé 


STA 
LDA 
STA 
DEC 
SEC 
LDA 
STA 
SBC 
STA 
LDA 
STA 
SBC 
STA 
LDA 
SBC 
TAY 
LDA 
SBC 
TAX 
CLC 
ADC 
STA 
INY 
BNE 
INX 
INX 
INY 
JSR 
2 


HIGHTR 

PRGEND+1 ;REF APPLE ORCHARD 
HIGHTR+1i ;ISSUE #1 

HIGHTR 


LINNUM 
HIGHDS 
TXTTAB 
LINNUM 
LINNUM+1 
HIGHDS+1 
TXTTAB+1 
LINNUM+1 
PRGEND 
TXTTAB 


PRGEND+1 
TXTTAB+1 
HIGHDS+1 
HIGHDS+1 


a+3 


BLT2 3;DOES THE MOVE 


% ADJUST APPLSOFT POINTERS 


8 
LDX 
JSR 
LDX 
JSR 
LDX 
JSR 
LDx 


#VARTAB 
ADD 
#PRGEND 
ADD 
#TXTTAB 
ADD 
#TXTPTR 
TXTPTR+1 
#2 

a+5 
ADD 
NXTPTR 
ADD 


% ADJUST NEXT LINE ADDRESSES 


% IN PROGRAM 

* 
LDA 
STA 
LDA 
STA 

LOAD1 LDY 
SEC 
LDA 


STA 
BCC 
s 
s 


TEXT 


TXTTAB 
INDEX 
TXTTAB+1 
INDEX+1 
“eo 


CINDEX),Y 
LINNUM 
CINDEX) ,Y 


(INDEX) ,Y 

LOAD2 

LINNUM+ 1 

(INDEX), Y 

INDEX 3POINT TO NEXT 
INDEX+1 

LOAD1 3LINE ALWAYS 


& PROGRAM TEXT OK — NOW RELOCATE 
% THE AMPERSAND ROUTINES 


% 

LOAD2 LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
JSR 

* 

& INITIALIZE 

s 
JSR 
JMP 

* 

% ADD LINNUM 


*®>INIT 
A4S 

@< INIT 
A4S+1 
#>ILOAD 
Al 

#< ILOAD 
Ai+1 
#>ELOAD 
A2 
#<ELOAD 
A2+1 

ao 

MOVE 370 INIT 


THE & HOOK 


INIT 3 IN AMPERJUMP 
CLEARC 3ASOFT CLEANS UP 


+1 TO PAGE ZERO 


% POINTER GIVEN BY X-REG. 


ADD SEC 
LDA $69,X 
ADC LINNUM 
STA $80,X 
LDA $@1,X 
ADC LINNUM+1 
STA $@1,X 
RTS 

NO ERRORS 
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Electronic Message Center 
(E.M.C.) 


by Rudy A. Guy 
1114 W. 22nd Street 
Erie, PA 16502 


ow many times have you found your- 
| self standing in front of a terminal in 

an airport or a bus station watching a 
continuous flow of information on departure 
and arrival schedules? How about the cable 
television information channel? Have you 
found yourself watching endless scheduling 
notes and public service announcements? 
Now comes the big question: have you ever 
priced one of these “Message Center” sys- 
tems? If you have, you know that the price is 
way out of the ball park for most individuals 
and institutions. But, since you have had the 
foresight (1 assume) to own an Apple compu- 
ter, a limited Electronic Message Center is 
only a few hours of key pounding away. 

Electronic Message Center (E.M.C.) is writ- 
ten in Applesoft BASIC and requires at least 
32K and one disk drive. Even though it is not 
as elaborate as some of the higher priced 
“systems”, E.M.C. will get the job done ata 
fraction of the cost. 

E.M.C. was developed at the request of a 
local high school teacher. It was his idea to 
have important notices and announcements 
displayed throughout the day on several dif- 
ferent terminals. You can also use E.M.C. in 
your home or office for passing along mes- 
sages and announcements to your family or 
associates. It’s flexible, eye-catching, and 
fun. 

My initial attempt was rather crude, as it did 
not allow for entry of commas, colons, or 
other forbidden characters within a message. 
Further, there was no way to select an indi- 
vidual group of messages — they were all 
added to one file. The final shortcoming was 
the lack of a formatting routine for displaying 
the messages. Happily, each one of these lim- 
itations has been overcome in the final E.M.C. 
and you'll find the solutions to be of value in 
your own programming efforts. 


GETTING STARTED 
When E.M.C. is run, the user will be pres- 
ented with the program’s main menu. From 
here it is possible to: 


. LOAD & DISPLAY A FILE 
ADD TO A FILE 

ADD A NEW FILE 

. CHANGE A FILE 

. DELETE A FILE 

. REVIEW NAME-FILE 

. EXIT PROGRAM 


NOMPON= 


Since we are dealing with the initial run of 
E.M.C., it would be wise to select option 3, 
ADD A NEW FILE. | know that there will be 
those of you who will try one of the other 
options first just to see if the program will 
bomb. Well, go ahead and try. All that you will 
get is aNO TITLES IN FILE message and the 
program will return to the main menu. So, 
let's get back to option 3 (lines 3000 - 3170) 
and see how a new file is added. 
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The first item that the user will be prompted 
for is a new file name of not more than ten 
characters in length. Once this name Is 
entered, the program checks for a duplicate 
file so that an older file will not be overwritten. 
If no duplicate is found, you will be prompted 
for your message Of up to 224 characters. So 
that you wont' have to guess if your message 
is too long, 224 underline characters will be 
displayed. Should an entry go beyond this 
length, an error message will be given and 
you will have to reenter the message. E.M.C. 
contains a text formatting routine for display- 
ing the messages, so you do not have to be 
concerned about words being split between 
lines when messages are displayed. This 
formatting routine will be described later in 
the article. 


INPUT ANYTHING 

At this point in the program there is a sub- 
routine that may be of interest, a BASIC 
“Input Anything” routine (lines 8000 - 8070). 
Rather than add on a machine language rou- 
tine to allow input of forbidden characters, 
such as the comma and the colon, | opted to 
use an already existent feature of the Apple, 
the keyboard buffer. 

Anytime that data is entered into the Apple 
via the keyboard, it is placed in the keyboard 
buffer which is located from decimal memory 
location 512 through 767 ($200-2FF). To get 
the input from the program into this buffer, it 
is necessary to call the GETLN subroutine in 
the Monitor which is located at $FD6A (-662). 
As soon as a Carriage return is entered, the 
GETLN subroutine will terminate and pro- 
gram execution returns to BASIC line 8020. At 
this point each memory location is PEEKed, 
through the use of a loop, for the character 
value that it contains. If the value of the 
memory location does not equal 141, a car- 
riage return, its character equivalent is added 
to ST$. If acarriage return is encountered, the 
loop is exited and program execution returns 
the add module at line 3090 where ME$(MC) 
is made equivalent to ST$. 

The final bit of data that will be requested is 
a date, in the form, MM/DD/YY. (This is an 
optional item and may be omitted by entering 
a carriage return.) When all the data has been 
entered, you will be prompted to verify the 
data you have supplied. E.M.C. is designed to 
handle a maximum of 100 messages, but if 
this number is too small, it may be increased 
by changing the DIM statements in line 120. 


ADDING TO AN EXISTING FILE 

If it becomes necessary to add more mes- 
sages to an existing file, option 2 should be 
selected from the main menu. You will be 
prompted for the file to be accessed, the new 
message and the date. When all data has been 
entered, the new message will be added to the 
end of the message file. Since E.M.C. uses 
sequential files, this addition was made 
through the use of the DOS “APPEND” com- 
mand. If you are still using DOS 3.2 or 3.2.1, 
there is an error in the APPEND command 
which could cause some problems. To alle- 
viate this problem in DOS 3.2 systems, the 
following changes should be made to E.M.C.: 


(ADD) 


105 POKE 778,168: POKE 779,0: 
POKE 780,32: POKE 781,237: 
POKE 782,253 


(CHANGE) 


2100 PRINT CHR$ (4)“APPEND "AS: 
PRINT CHR$ (4)“WRITE "AS: 
PRINT ME$(MC): PRINT MD$(MC): 
CALL 778: PRINT: 

PRINT CHR$ (4)“CLOSE” 


This fix should take care of any problems. 
(Note: For more information on this fix, 
please refer to the International Apple Core’s 
APNOTE of March 15, 1980.) 


CHANGE A FILE 

In order to modify an existing file, select 
option 4 from the program menu. You will be 
prompted for the file that you wish to change. 
When this selection has been made, a modi- 
fied “Input Anything” routine (lines 9000- 
9120) will read the file from the disk. Once all 
the messages have been read into memory, 
each will be displayed to the screen. You may 
elect to modify the message, leave the mes- 
sage unchanged, or purge the message from 
the file. When all changes have been made to 
the messages, the file will be rewritten, in 
corrected form, to the disk. 


DELETE A FILE & REVIEW FILE NAMES 

Option 5 permits the deletion of any file 
from the disk. You are prompted for the file 
name that is to be deleted. If the name entered 
is an existing file name, you will have to con- 
firm your decision to delete the file by enter- 
ing “DEL”. If an incorrect response is given at 
this point, you will be returned to the program 
menu. 

Option 6, as implied by the menu, will dis- 
play all message files currently stored in the 
TITLES text file. This option will display 38 
titles, 2 columns of 19 names, at a time to the 
screen. 


DISPLAYING THE MESSAGES 

When option 1 is selected, and you select 
the file to be displayed, one of the strongest 
routines in the program is put to work — the 
print formatter. This routine, when used cor- 
rectly, will eliminate the notorious split words 
which so often creep into text portions of 
programs. Two variables must be set before 
the formatting routine is accessed; they are 
LM (left margin) and RM (right margin). RM 
must be set equal to the width of the screen; in 
this program the value is 32. The following is a 
line by line description of how the routine 
works: 


10010 Check to see if A$ is less than width 
of screen; if it is, print A$ and return. 
Set up descending loop, maximum 
length to 1. 

Set C$ equal to the J element of A$ 
and check for punctuation ora 
space. If C$ is a space or a punctua- 
tion mark then jump out of loop to 
line 10050. 


10020 


10030 
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10040 Decrement counter by NEXT 
command. 

10050 If C$ is a space, eliminate it and set 
A1$ = LEFT$(A$, J-1) and A$ = to 
remainder of original A$. Go to print 
routine. 

10060 If C$ is a punctuation mark and it is 
in the maximum position (RM-LM=J) 
then go check for the next character 
(10130). If the next character is a 
space then set A1$=LEFT$(A$,J) and 
A$ = to remainder of original A$ 
minus one character. Print A1$ and 
go to 10100. 

10070 No space or punctuation encoun- 
tered. The line must be broken at 
maximum length. 

10080 Defaults here if no punctuation or 
space is encountered and there is no 


10090 


10100 


10110 
10120 


10130 


10140 


more string to check. Go to final 
print routine at 10110. 

Print A1$ when no space or punctua- 
tion is found. 

Check to see if there is more of A$ to 
be formatted. If yes then go to start 
of new loop at line 10020. 

Formatting complete. Print A$ at 
HTAB LM. 

Jump out of subroutine; the job is 
done. 

Part of the routine to check for the 
type of character following a punc- 
tuation mark. If the remaining por- 
tion of A$ is shorter than or equal to 


the screen width, no check is 
needed. Go back to print routine in 


10060. 

If next character is not a space then 
set A1$ = LEFT$(A$,J) and A$ = to 
the remainder of the original A$. 
Print A1$ but keep cursor on same 


line to avoid auto line feed at end of 
line. Jump out of subroutine and see 
if there is more to be formatted. 

10150 Next character is a space, so return 
to 10060. 


The complete file selected by the user is 
read into memory, so the disk will only be 
accessed at the beginning of the routine. The 
messages selected to be displayed will loop 
endlessly if so desired. To terminate the dis- 
play mode, a Control-C will get you back to 
the program menu. 

As with any program there is always a way 
of making it better adapted to its environ- 
ment. One possible change, for those with 
real-time clocks, would be to eliminate the 
date and replace it with the current time of 
day. As | indicated earlier, E.M.C. is not as 
elaborate as the high priced message center, 
but the price can’t be beaten. 





10 REM EERE EEE EHRERE 


20 REM * EMC * 
30 REM * BY RUDY A, GUY #* 
40 REM * COPYRIGHT (C) 1982 * 
50 REM * BY MICRO-SPARC INC * 
60 REM * LINCOLN, MA. 01773 * 
JO REM —_ He 6 eS ae ae eS ae a eae HE EE 


100 POKE 768,104: POKE 769,168: POKE 770,104: POKE 771,166: 


776,72: POKE 777,96 

110 ONERR GOTO 32000 

120 DIM TI$(100),ME$(100) ,MD$(100) 

130 TEXT : HOME : INVERSE : PRINT "+++++++"; FOR | = 1 TO 2 
2: PRINT "+ +"; NEXT : PRINT "++++4+4+4+"5: VTAB 1 

140 VTAB 8: HTAB 2: PRINT "+++++"; VTAB 10: HTAB 3: PRINT ™ 


R.GUY": VTAB 16: HTAB 2: PRINT "++++++" 

150 YTAB 1: FOR | = 8 TO 40: HTAB I: PRINT "+": NEXT 

160 FOR | = 2 TO 23: VTAB I: HTAB 40: PRINT "+";: NEXT 

170 VTAB 24: FOR | = 8 TO 39: HTAB I: PRINT "+"3: NEXT 

180 POKE 2039,43 

190 NORMAL : POKE 32,7: POKE 33,32: POKE 34,1: POKE 35,23: 
HOME 

200 TAB 4:A$ = "<<MAIN MENU>>"; GOSUB 11000: VTAB 22:A$ = 
"(C) 1982 MICRO-SPARC, INC.": GOSUB 11000: VTAB 5 

210 RESTORE : FOR | = 1 TO 7: READ A$(I): PRINT :A$ = AS(1) 
: GOSUB 11000: NEXT 

220 PRINT : PRINT " SELECT ONE OF THE ABOVE:";: GET A$: PRI 
NT AS: IF AS < "1" OR A$ > "7" THEN HOME : GOTO 200 

230 A= VAL (A$): ON A GOSUB 1000,2000,3000,4000,5000,6000, 
7000 

240 TEXT : HOME : CLEAR : GOTO 110 

1000 REM :::DISPLAY FILE::: 

1010 HOME : VTAB 12: PRINT " FILE NAME :";: FOR | = 1 TO 10 


: PRINT CHR$ (95);: NEXT : PRINT : VTAB 12: HTAB 13: INPUT 


msA$: IF A$ = "" THEN RETURN 
1020 IF LEN (A$) > 10 THEN 1000 


2050 FOR | = 1 TO CZ = 1: IF A$ = TI$(1) THEN 2080 


2060 NEXT : HOME 


: VTAB 12: PRINT " THAT FILE DOES NOT EXIS 


T.": PRINT : PRINT " TRY AGAIN "3: INPUT YNS: IF LEFTS (YNS 
»1) = "Y" THEN FL = 1: GOTO 2000 


2070 RETURN 


2080 AD = 1: HOME : GOSUB 3090 


2090 PRINT : 


PRINT " 1S THIS CORRECT ";: INPUT YN$: IF LEF 


TS (YNS,1) = "N" THEN 2080 
POKE 772,223: POKE 773,154: POKE 774,72: POKE 775,152: POKE 2100 PRINT CHR$ (4)"APPEND "A$: PRINT CHRS (4)"WRITE "A$: 
PRINT MES(MC): PRINT MD$(MC): PRINT CHRS (4)"CLOSE" 

2110 PRINT : PRINT " ANOTHER ";: INPUT YNS: IF LEFTS (YNS, 
1) = "N" THEN AD = 0: RETURN 

2120 HOME : GOSUB 3090: GOTO 2090 

3000 REM :::ADD NEW FILE::: 

3010 GOSUB 15000: REM READ NAME FILE 

EMC": VTAB 12: HTAB 3: PRINT "BY:": VTAB 14: HTAB 2: PRINT " 3020 HOME 

3030 VTAB 3: PRINT " FILE NAME :";: FOR I = 1 TO 10: PRINT 

CHRS$ (95);: NEXT : PRINT : VTAB 3: HTAB 13: INPUT "";TI$(CZ 
+ 1): IF LEN (TI$(CZ + 1)) > 10 THEN HOME : GOTO 3030 

3040 IF TIS(CZ + 1) = "" THEN 3170 


3050 MC = 1 


3060 IF CZ = 0 THEN 3090 

3070 FOR ! = 1 TO CZ: IF TI$(CZ + 1) = TI$(1) THEN HOME : 
VTAB 12:A$ = "THAT TITLE ALREADY EXISTS.": GOSUB 11000: FOR 
| = 1 TO 3000: NEXT : GOTO 3020 


3080 NEXT 
3090 INVERSE : 
MAL : PRINT : 


VTAB 5: HTAB 2: PRINT "ENTER MESSAGE :": NOR 
FOR | = 1 TO 224; PRINT CHR$ (95);: NEXT : PR 


INT : VTAB 7; HTAB 1: GOSUB 8000:ME$(MC) = STS 
3100 VTAB 15: PRINT " DATE (MM/DD/YY) :";: FOR | = 1 TO 8: 


PRINT CHR$ (95)3: NEXT : PRINT : 


3MD$(MC) 


VTAB 15: HTAB 19: INPUT "" 


3120 IF AD = 1 THEN RETURN 


3130 PRINT : 


INPUT " 1S THIS CORRECT 2";YN$: IF LEFTS (YNS 
»1) = "N" THEN HOME 


: GOTO 3090 


3140 PRINT : PRINT " ANOTHER ?2"3: INPUT ""3YN$: IF LEFT$ ( 


YN$,1) = "Y" THEN MC = MC + 1: HOME 


: GOTO 3090 


1030 IF FL = 1 THEN FL = 0: GOTO 1050 
1040 GOSUB 15000 
1050 FOR | = 1 TO CZ - 1: IF A$ = TI$(I) THEN 1080 
1060 NEXT : HOME : VTAB 12: PRINT " THAT FILE DOES NOT EXIS 
T.": PRINT : PRINT " TRY AGAIN ";: INPUT YN$: IF LEFTS (YNS 
»1) = "Y" THEN FL = 1: GOTO 1010 
1070 RETURN 
1080 GOSUB 9000 
1090 POKE 35,21 
1100 HOME : VTAB 22: INVERSE : PRINT "=-----------~-------- 
—--------- "s: VTAB 23: PRINT " 
"3: SPEED= 140: NORMAL 
1110 POKE 232,3 
1120 FOR | = 1 TO MC - 1:A$ = MES(I) 


1130 INVERSE : VTAB 23: PRINT " ITEM # "Iz3 HTAB 16: PRINT 
"DATE :";: [F MD$(1) = "" THEN PRINT " "5s: GOTO 1160 
1140 IF LEN (MD$(I)) < 8 THEN MD$(1) = " " + MDS(I): GOTO 


3150 


3160 


3170 
4000 
4010 


4020 
4030 
4040 
4050 
4060 
4070 


PRINT CHR$ (4)"OPEN "TI$(CZ + 1): PRINT CHR$ (4)"WRI 

TE "TI$(CZ + 1): FOR | = 1 TO MC: PRINT ME$(I1): PRINT MD$(1) 
: NEXT : PRINT CHR$ (4)"CLOSE" 

PRINT CHR$ (4)"OPEN TITLES": PRINT CHR$ (4)"POSITION 
TITLES,R"CZ = 1: PRINT CHR$ (4)"WRITE TITLES": PRINT TI$(C 
Z + 1): PRINT "###"; PRINT CHRS$ (4)"CLOSE" 

RETURN 

REM :::CHANGE A FILE::: 

HOME : VTAB 12: PRINT " FILE NAME :"3: FOR | = 1 TO 10 

: PRINT CHR$ (95)3;: NEXT : PRINT : VTAB 12: HTAB 13: INPUT 
wmsA$: IF A$ = "" THEN RETURN 

IF LEN (A$) > 10 THEN 4000 

IF FL = 1 THEN FL = 0: GOTO 4060 

GOSUB 15000 

FIS = AS 

FOR | = 1 TO CZ = 1: IF A$ = TI$(1) THEN 4090 

NEXT : HOME : VTAB 12: PRINT " THAT FILE DOES NOT EXIS 

T.": PRINT : PRINT ™ TRY AGAIN ";: INPUT YN$: IF LEFTS (YNS$ 


1140 
1150 HTAB 31 - LEN (MD$(1)): PRINT MDS(1); >!) = "Y" THEN FL = 1: GOTO 4000 
1160 NORMAL 4080 RETURN 
1170 LM = 2:RM = 32 4090 GOSUB 9000 
4100 FOR | = 1 TO MC - 1:A$ = ME$(1) 


1180 FOR J = 0 TO 8: VTAB PEEK (232) + J: HTAB 1: CALL ~ 
868: FOR L = 1 TO 100: NEXT : NEXT : VTAB PEEK (232) 

1190 GOSUB 10000 

1200 IF PEEK (232) = 3 THEN POKE 232,12: GOTO 1220 

1210 IF PEEK (232) = 12 THEN POKE 232,35 

1220 NEXT 

1230 FOR | = 1 TO 3000: NEXT 

1240 FOR | = 21 TO 2 STEP - 1: VTAB 1: HTAB 1: CALL ~ 868 
: FOR J = 1 TO 100: NEXT : NEXT 

1250 GOTO 1100 

2000 REM :::ADD TO FILE::: 

2010 HOME ; VTAB 12: PRINT " FILE NAME :";: FOR | = 1 TO 10 
: PRINT CHR$ (95);: NEXT : PRINT : VTAB 12: HTAB 13: INPUT 
nmsA$: IF AS = "" THEN RETURN 

2020 IF LEN (A$) > 10 THEN 2000 

2030 IF FL = 1 THEN FL = 0: GOTO 2050 


2040 GOSUB 15000 


4110 


4120 


HOME : VTAB 3: PRINT " ITEM #51: PRINT :LM = 2:RM = 3 

2: GOSUB 10000: PRINT : PRINT " DATE :"MD$(1I) 

VTAB 17: PRINT " CHANGE :": PRINT " (D)ATE (M)ESSAGE ( 
P)URGE": PRINT " (N)EXT": VTAB PEEK (37) = 2: HTAB 10: GET 
YN$: PRINT YN$ 


4130 IF YNS$ = "N" THEN 4180 
4140 CH = 1 

4150 IF YN$ = "D" THEN 4260 
4160 IF YN$ = "P" THEN 4330 
4170 IF YN$ = "M" THEN 4290 
4180 IF MC = 1 THEN 4210 

4190 IF | > = MC - 1 THEN 4210 


continued on page 191 
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THE SHAPE 


a 





The Shape 


by Bill Fortenberry 
2906 36 Ave. 
Meridian, MS 39301 


ne of the things that separates the 
O Apple II from other micro computers 

is its powerful graphics, and at the 
core of these capabilities is the shape table. 
The shape table provides the user with the 
ability to define a HIRES graphic image, iden- 
tify it by an index number, and then rotate, 
scale, and draw the shape in any of the 
Apple’s HIRES colors. Creating a shape table 
is comparable to doing time for armed rob- 
bery. It’s a long, tedious process where one 
coding or typing error can put you right back 
at the beginning. 

THE SHAPE to the rescue! THE SHAPE is 
an Applesoft program that allows you to 
create, view, edit, and save shape tables. The 
shapes built by the program are in the stan- 
dard hex format and can be used in any 
Applesoft, Integer or assembly language pro- 
gram. 


HOW TO BUILD A SHAPE TABLE 

The complete instructions for building a 
shape table are found in the Applesoft refer- 
ence manual (Programmer's Aid #1 manual 
for Integer), but to get everyone going, | will 
give asummary of them here. The first step is 
to decide on a shape and draw it on graph 
paper. Now pick a starting point and begin 
drawing arrows that point from one dot to the 
next, and only turn on 90 degree angles 
(these arrows are usually called the vectors of 
the shape). The arrows must then be coded as 
a 3 digit binary number (which must then be 
coded as an 8 bit byte). One of the problems 
with shapes is the way you cram these 3 bit 
numbers down to 8 bits (THE SHAPE does 
this for you). 

After each byte is set, you must build the 
shape table index. Like the index in a book, 
the shape table index tells where each shape 
is located. When you finish the index, you are 
ready to call the monitor, enter the table, exit 
the monitor, test the shape, see that it’s 
wrong, look at your arrows again, look at your 
numbers again, check each byte again, find 
one mistake, enter the monitor, type the table, 
exit the monitor, test the table, see that it’s 
wrong, look at your arrows again, look at your 
numbers again, check the bytes again, sell 
your Apple, buy a Northstar. If doing all of the 
above does not appeal to you, read on. 


LO-RES TO HI-RES 

Late one night, after | had been trying for 
about 4 hours to set up a shape table for anew 
game, | decided to write a program to do the 
actual coding and typing for me. Since | 
wasn't going to code the vectors myself, | 
needed a way to get the shape some place 
where the computer could “see” it. | chose the 
LO-RES screen mainly because of the availa- 
bility of the SCRN function. This enabled me 
to “see” each dot on the screen. 

Next | had to get the shape on the screen. 
Out of this need camea simple horizontal and 
vertical line drawing routine. (| always drawa 
shape on graph. paper so the lines are easy to 
see.) Now, how would | code the shape? Since 
Apple shapes are picky about moving up two 
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consecutive (no plot) spaces in a row, and 
since | had the problem of trying to put 9 bits 
of information in an 8 bit word, | decided to 
scan the shape right to left, and top to bottom. 
This totally eliminates any vectors with a value 
of zero (the signal for the end of the shape 
table), and when poking the vectors in memory 
| only put two vectors in a byte. 

My goal with THE SHAPE was to write a 
program that would give the user acompleted 
shape table (index + definitions) while requir- 
ing minimum input. 


INSTRUCTIONS FOR THE SHAPE 


OPTION ONE — BUILD A SHAPE TABLE 

When you run the program, a menu will 
appear with 2 options. Let’s take option one 
and build a table (I'll talk about option two 
later.) First, the text page will disappear and 
the blank graphics page will be displayed. At 
the bottom of the screen, you will be asked if 
you want the turtle or line mode. Here is how 
the line mode works. 

After you pick line mode, the screen will 
display: 
HLIN FROM PLOT 
This means that you are in the horizontal line 
mode with the plot on. Type a 5 and press 
return. The Apple replies with TO. Now typea 
9 and press return. Next the screen displays 
ON. Type 7 and press return. This will drawa 
horizontal line from 5,7 to 9,7 (it’s the big red 
line toward the top of the screen). 

Now type a V and hit return. The screen 
should say: 
VLIN FROM PLOT 
You are now in the vertical line mode (these 
modes act just like HLIN and VLIN in BASIC). 
Try the same sequence of numbers as above. 
Did you get a vertical line? 

Type an E and return. The screen will 
display: 
HLIN FROM ERASE 
Any lines you draw now will be black (or 
erased). Notice that you returned to the HLIN 
mode. 

Now try an F and press return. Where did 
that white square come from? This is the free 
cursor mode. Type somes, J's, K’s and M’s 
and the cursor should move around the 
screen. Press the P key. Now when you move 
the cursor it should leave a red dot. Now put 
the cursor in the middle of one of your lines, 
hit the E key, and move the cursor. It should 
have left a black dot. When you press PorEin 
the free mode, it will plot or erase the pointthe 
cursor is on. By the way, the coordinates of 
the cursor are displayed at the bottom of the 
screen. The free mode is designed for touch- 
ing up shapes and finding coordinates for the 
line statements. To exit from the free mode, 
press Q. In any mode, you may press the 
question mark key to get a list of available 
commands. 

When you are in the HLIN or VLIN mode, 
pressing Q will cause the program to start 
Coding your shape. 

The screen will now display: 


LOCATING SHAPE EDGES 
The program is now finding the top, bottom 
and sides of the shape. After a while, it will 


display: 
CODING PLOT VECTORS 


The program is now looking at each dot on the 
screen and coding it as a number. Then the 
screen will show: 


POKING SHAPE DEFINITION 


The numbers that represent your shape are 
being combined and poked into memory. 
When the screen shows: 


THIS DEFINITION STARTS ON THE WHITE 
DOT. PRESS RETURN TO PLOT SHAPE 


You should find the white dot and mark its 
position on your graph paper. This is where 
the Apple will begin to draw your shape (the 
coordinates in the DRAW statement). 


SHAPE DISPLAY 

We are now ready to see the shape. Press 
Return and enter the scale and rotation just as 
you would in a BASIC program. Choose the 
color selection with the first letter of the 
desired color and press Return. You should 
now see your shape in glorious HI-RES graph- 
ics. When you press Return, the program will 
ask if you want to draw the shape again. If you 
press Y, you can enter new coordinates, etc. 
and redraw it. If you answer N, the computer 
will ask if you want to edit the shape. If you 
didn't like the way it looked, answer Y and you 
will go back to the edit mode. If you are satis- 
fied with the shape type an N. 

Now the Apple will ask if you want to keep 
this shape as a base for the next shape. If, for 
example, you are building a series of shapes 
that will show a man walking. Since only the 
legs will move, why should you have to re- 
draw the head and torso for each figure? With 
THE SHAPE you don't have to. Just answer Y 
to the question and you will be put right back 
into the Enter mode. (Except that the last 
shape is now stored safely away) and you are 
looking at the next shape in line. Now just 
change the position of the legs, and proceed 
to the next shape in the sequence. 


THE TURTLE MODE 
If you select the Turtle mode instead of the 
Line mode, the screen will display: 


MOVE TO START AND PRESS ’P’ 


Use the 'l’, ‘J’, ’K’ and 'M‘ keys to move the 
cursor to where you want to start your shape, 
and then press ’P’. The screen will display: 


PLOT ON 
X=xx Y=yy 


This tells you that the plotting is turned ON 
and gives you the values for the x and y coor- 
dinates. Just keep pressing the cursor keys to 
draw your shape. To turn the plot OFF, just 
press’E’. If you makea mistake while drawing 
in the turtle mode, the ESC key will cause the 
cursor to back up along your shape and erase 
the errors. 


LINE VS. TURTLE 

In the line mode, the computer starts to 
code your shape when you push the ‘Q’ key. 
In the turtle mode, the computer follows 
every plot as you make it. Because of this, the 
turtle mode will code a shape faster (if you 
draw it with a minimum of moves). 

With the turtle mode, you don’t get to use 
one shape as a base for another. Also, if you 
choose to edit a shape, you must start over 
with a blank screen. 

The beginner will feel safer with the line 
mode, while an experienced programmer will 
want to use the turtle mode to draw more 
efficient shapes. No matter which mode you 
use, the computer will generate an index for 
you. After you have finished your table, the 
computer will give you the commands to save 
your shape Table. 


OPTION TWO — THE POKE CALCULATOR 

When you build a Shape Table with this 
program, the Shape Table is stored in HI-RES 
page one. When you load the table back into 
memory to use with your own program, you 
must put it in another memory location. 
Remember that when you use a Shape Table 
with Applesoft, you must poke the address of 
the table into locations 232 and 233. The 
POKE calculator will make this easier for you. 
When you select Option Two from the main 
menu and enter the address where you want 
to put the table, the program will show you 
what POKES to use in your program. 


MEMORY USAGE BY THE SHAPE 
In order for this program to work properly 
you must have a 48K machine. The program 
resides from LOMEM up to HI-RES page one. 
Page one of HI-RES is reserved for the shape 
table as it is being built. Page Two is used to 
show the shape, and all memory above page 


Two is set aside for variable storage. This 
program does not contain an ONERR GOTO 
section (to conserve space), but input is 
checked and most bad input is ignored. You 
should become familiar with the program 
before building a large shape Table. 


VARIABLES USED IN THE PROGRAM 

Most of the variables serve double duty to 
conserve memory, but here are some of the 
primary variables: 


A$ — input string 

SN — number of shapes in the table 

Ss — Shape Table starting location 

G — array to hold shape vectors 

sD — array that holds the starting 
location of each definition 

sc — loop counter (counts up to # of 
shapes in table) 

QQ — throw away variable 

B&C — input in line mode 

X&Y  — screen coordinates 

ZC — old screen color 


CZ — current screen color 
X,Y & Z — misc. pointers 


THE PROGRAM LOGIC 
The program does not have many com- 
ments because of memory limits. The table 
below should help you decipher the program 
section and their logic. 


80-180 These lines display the title page 

200-270 Display the menu and accept the 
user’s input 

290-390 Find out how many shapes are in 
the table 

410-460 The main program loop 

480-710 Draw a horizontal line or branch 
to Vlin or Free Cursor 

730-960 Same as above for vertical lines 


980-1420 Free cursor + turning ON or OFF 
individual points 

1190-1360 Make an imaginary box around 
the figure 

1380-1630 Scan shape and fill array G with 
shape vectors 

1650-1830 Poke the shape vectors into 
memory 

1850-1980 Let the user view the shape and 
set up the index 

2000-2180 Let the user edit and use the shape 
again 

2200 Foot of the main loop 

2220-2310 Print details about the table and 
BSAVE command 

2320-2400 Plot and erase subroutines for the 


line mode 

2420 General purpose text centering 
subroutine 

2440-2520 Calculate POKE values for the 
user 


2540-2610 A short hex to decimal converter 
2630-2970 The code for the Turtle mode 


The Shape is by no means complete. Many 
things were intentionally omitted because 
they had already been done or would have 
required program chaining. The shape cod- 
ing algorithm could also be improved, al- 
though it works fine in the present form. 
Hopefully, THE SHAPE will give other pro- 
grammersa basis for developing better shape 
table utilities. 





10 REM wxaeesaseeseeeeaeseseres 368 POKE 233, INT (SS / 256) 
28 REM «+ THE SHAPE * 378 DIM G(1445) ,SD(SN + 2) 
38 REM + BY BILL FORTENBERRY + 388 SD(1) = SS + 2 + SN « 2 
46 REM « COPYRIGHT (C) 1983 ~«* 398 GR : POKE 34,29 
5@ REM «* BY MICROSPARC, INC. « 408 REM xx LOOP FOR # OF SHAPES «« 
6@ REM «* LINCOLN, MA. 91773 « 418 FOR SC = 1 TO SN 
7G REM sen eewneeeeeeneeenennne 428 QQ = FRE (®@) 
8@ LOMEM: 24576 438 GR : HOME : POKE 34,28: HOME 
98 TEXT : HOME : PRINT “aeeenwennannnnnenene 448 HOME : PRINT "SHAPE #";SC: PRINT "T)URTL 
eee eee eee eeeeeeeee” E OR L)INE MODE (T/L) ": INPUT "";A$: IF 
196 FOR I = 2 TO 12: VTAB I: PRINT "«"; TAB( A$ = "T" THEN 2628 
40) ;"*": NEXT 458 COLOR= 1:F = 9 
119 VTAB I 468 HOME : PRINT TAB( 33)"PLOT": POKE 33,39 
120 PRINT “senses easeereeeeee ease ee eeeeennne 478 REM «* HLIN MODE «« 
*eeeene” 488 HOME : PRINT "HLIN FROM " INPUT "";A$ 
138 INVERSE :A$ = " ": VTAB 3: GOSUB 490 IF A$ = "" THEN 4898 
2428: VTAB 5: GOSUB 2429 5@0 IF A$ = "V" THEN HOME : GOTO 732 
149 VTAB 4: INVERSE :A$ = " THE SHAPE ": GOSUB 518 IF A$ = "F" THEN 9898 
2420: NORMAL 520 IF A$ = "P" THEN 2338 
159 VTAB 7:A$ = “APPLE II SHAPE TABLE UTILIT 530 IF A$ = "E" THEN 2378 
Y": GOSUB 2429 540 IF A$ = "Q" THEN 11998 
168 VTAB 9:A$ = "BY: BILL FORTENBERRY": GOSUB 550 IF A$ = "7?" THEN 2989 
2426 569 PRINT "TO ";; INPUT "";B$ 
178 A$ = "(C) 1982 BY MICROSPARC, INC.": VTAB 570 IF BS = "" THEN 569 
11: GOSUB 2429 580 IF B$ = "?" THEN 2980 
188 POKE 34,13 5998 B = VAL (B$) 
198 REM «** MENU «« 698 IF B > 38 THEN B = 38 
208 VTAB 15: PRINT “WOULD YOU LIKE TO": PRINT GiGeatFaB <7) THEN (Brent 
: PRINT " L. BUILD A SHAPE TABLE": 628 PRINT "ON " INPUT "";C$ 
PRINT " Zs CALCULATE POKE VALUES" 630 IF C$ = "7?" THEN 29898 
219 PRINT : INPUT "TYPE THE NUMBER (1-2) OF 640 IF C$ = “" THEN 628 
YOUR CHOICE =->";A$ 6582 C = VAL (C$) 
226 IF A$ = "" THEN 200 668 IF C > 38 THEN C = 38 
238 A= VAL (A$) 676 IF C < 1 THENC = 1 
249 IF A < 1 OR A > 2 THEN 2808 688 A = VAL (A$) 
25@ HOME 690 IF A < 1 THENA=1 
278 IF A = 2 THEN 2430 708 IF A > 38 THEN A = 38 
288 REM «** GATHER DATA «« 718 HLIN A,B AT C: PRINT : HOME : GOTO 489 
298 VTAB 17: INPUT "HOW MANY SHAPES IN THIS 720 REM «** VLIN MODE + 
TABLE ";SN$ 738 INPUT "VLIN FROM ";A$ 
308 IF SN$ = "" THEN 2998 740 IF A$ = "" THEN 739 
318 SN = VAL (SN$) 750 IF A$ = "H" THEN HOME : GOTO 489 
320 IF SN < = @ THEN 298 768 IF A$ = "F" THEN 988 
338 SS = 19300 778 IF A$ = "P" THEN 2339 
348 REM POKE SHAPE LOCATION 788 IF A$ = "E" THEN 2378 
358 POKE 232,SS - INT (SS / 256) + 256 798 IF A$ = "Q" THEN 1198 continued on next page 


NIBBLE EXPRESS/VOL. III/1983 157 


The Shape (Cont.) 


829 
8198 
828 
839 
849 B 
858 
869 
878 
889 
898 
988 C 
919 
929 
930 A 
949 
9598 
969 
978 
988 X 


IF A$ = "2?" THEN 2988 

INPUT "TO ";B$ 

IF B$ = "2?" THEN 2988 

IF B$ = "" THEN 818 

= VAL (B$) 

IF B > 38 THEN B = 38 

IF B < 1 THEN B = 1 

INPUT "AT ";C$ 

IF C$ = "?" THEN 2988 

IF C$ = "" THEN 879 

= VAL (C$) 

C > 38 THEN C = 38 
<1 THENC =1 


c 
A < 1 THEN A =1 

A > 38 THEN A = 38 

IN A,B AT C: PRINT : HOME : GOTO 738 
M ««* FREE CURSOR MODE «+ 

280:Y = 20 


998 OC = SCRN( X,Y): COLOR= 15: PLOT X,Y 


1988 
1918 
1828 
1838 


18498 
1858 
1968 
1978 
1989 


19998 
1188 
1119 


1128 
1138 
1148 


1158 
1169 
1178 
1189 
11998 
1289 
1218 
1228 


1238 
1248 
1258 
1269 


12768 
1288 
1299 
1398 


13198 
132 
13398 
13498 


1358 
1369 
1378 
1388 
1399 
1496 


1418 
1429 
1439 
1449 


1458 


1469 


1478 


1486 
1498 
1588 
1518 
1529 
1530 
1548 


1559 
1568 
1578 
1589 
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POKE 33,48 
HOME : PRINT “X=";X;" Y=";¥ 

GET A$ 

IF A$ = "Q" THEN COLOR= OC: PLOT X,Y: GOTO 
2330 

IF A$ = "P" THEN OC 
IF A$ = "E" THEN OC 
IF AS = "?" THEN 3049 
AX =e Xi VY = Y 

IF A$ = "I" AND Y > 1 THEN YY = Y - 1: GOTO 
1138 

IF A$ = "M" AND Y < 38 THEN YY = Y + 1: 
GOTO 1138 

IF A$ = "J" AND X > 1 THEN XX = X - 1: GOTO 
1138 

IF A$ = "K" AND X < 38 THEN XX = X + 1: 
GOTO 1139 

GOTO 1928 
CO = SCRN( XX,YY) 

COLOR= 15: PLOT XX,YY: COLOR= OC: PLOT 
X,¥:X = XX:Y¥ = YY 


1: GOTO 1828 
@: GOTO 1828 


oc = CO 

HOME : PRINT "X=";X;" Yz=";Y 

GOTO 1629 

REM +*+* BOX IN SHAPE «« 
L=8:Z=9 

POKE 33,48: HOME 

PRINT "LOCATING SHAPE EDGES" 

FOR D = 1 TO 39: IF SCRN( L +1,D) =1 
THEN Z=1 

NEXT 

IF Z = 9 THEN L = L + 1: GOTO 1229 
J = 39:2 = 3 

Fon = 2 10 so. IF SCRN( J = 1,0) = 1 
THEN Z = 1 

NEXT 

IF Z = @ THEN J = J - 1: GOTO 1269 
Z=9:K = 39 

FOR D = 1 TO 39: IF SCRN( D,K - 1) =1 
THEN Z=1 

NEXT 

IF Z = @ THEN K = K - 1: GOTO 1389 

=@:l =9 

FOR D = 1 TO 39: IF SCRN( D,I +1) =1 
THEN Z = 1 

NEXT 

IF Z = @ THEN I = I + 1: GOTO 1349 

REM ** CODE SHAPE «« 
Z= AD wi Ask = LV =i he 1 


PRINT "CODING PLOT VECTORS" 
X = X + 1:SX = X:SY = Y: IF SCRN( X,Y) 
@ THEN 1499 
BX = X:BY = Y 
GOTO 1449 
X=X+0D 
IF D = 1 AND X 
1 THEN G(Z) = 6: 
+ 1: GOTO 1499 
IF D = 1 AND X 


W 


J - 1 AND SCRN( X,Y) = 
+. 13D’) -DeZue 2 


<i 
" 
~< 


J - 1 AND SCRN( X,Y) = 


® THEN G(Z) = 2:Y = Y+41:D= - D:Z Z 

+ 1: GOTO 1499 

IF D= - 1 AND X = L + 1 AND’ SCRN( X 
Y) = @ THEN G(Z) = 2:Y = Y+1:D= - OD: 
Z=2Z+ 1: GOTO 1499 

IF D = - 1 AND X = L + 1 AND SCRN( X, 
i ek THEN GCZ) = 6SY = ¥ 4 1:0 = ~- D: 


Z=Z+ 1: GOTO 1499 


GOTO 1589 

IF Y > = K THEN 1639 
Fim @ 

FOR Bes | 10) J 

IF SCRN( B,Y) = 1 THEN F = 1 

NEXT B 

IF F = ® THEN G(Z) = 2:Y = Y + 1:2 = Z + 
1: GOTO 1499 
F=9 

IF Y > = K THEN 1639 

GOTO 1449 

IF SCRN( X,Y) = 1 AND D = 1 THEN G(Z) = 
552 eZ +l 
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1598 
1689 
1619 
1628 


16398 
1649 


1658 A 


1668 
16798 
1689 
1698 
1796 
1716 
1728 
1739 
1746 
1758 


1768 
17768 
1789 
1798 
1868 
1818 
1828 


18308 


1848 
1858 
1868 


1878 
1888 


1898 


1988 
1919 
1928 
1939 
1949 
19598 
1968 
19798 
1989 
1998 
2888 
28198 
2628 
26308 
2049 
20568 
2868 


28768 
28898 
2898 
21808 


2118 
2129 
2138 


2149 
2159 
2168 
21768 


2188 


2198 
2288 
2218 
22208 
2238 


2248 


2259 
2268 


2278 
2289 


2298 
2308 


2318 
23208 
23308 
2348 
2358 
2360 


W 


IF SCRN( X,Y) = 1 AND D - 1 THEN G( 


Z) =. dice 1 


Y 
+ 
IF SCRN( X,Y) = @ AND D 1 THEN G(Z) = 
vi 
+ 


UZ LOE 
IF SCRN( X, 
Z) = Se2cue 
GOTO 1438 
G(Z) = 19 
REM +*«* POKE SHAPE «+ 
= SD(SC) 
A 


- 1 THEN G( 


) = @ AND D 
1 


N 


@ 
INT "POKING. SHAPE DEFINITION" 
F ee ae 
G(Z) = 18 THEN 17998 
G(Z):Z = Z+1 
IF G(Z) = 18 THEN 17898 
K=K + G(Z) « 8:Z=Z+1 
IF G(Z) = 18 THEN 1788 
IF G(Z) < 4 AND G(Z) > @ THEN K=K+#+G 
(Z) « 64:Z =Z+1 


Lan] Uv 
“nmin DH wt 


zx 


v 
oS 
za 
m 
> 
zx 
> 
nou 
> 


+ 1: GOTO 1699 

POKE A,K:A +1 

POKE A,@ 

PRINT CHR$ (7); CHR$ (7) 

COLOR= 15: PLOT SX,SY 

HOME : PRINT “THIS DEFINITION STARTS ON 
THE WHITE DOT." 

VTAB 24: INPUT "PRESS RETURN TO PLOT SH 
APE ";A$ 

REM «+ DRAW SHAPE e+ 

HOME 

INPUT "SCALE = ";G$:G = VAL (G$): IF G 

< 1 THEN 1868 

SCALE= G: INPUT "ROT = ";G$:G = VAL (G 
$): ROT=G 

HOME : PRINT "G)REEN P)URPLE 0)RANGE 
B)LUE W)HITE": PRINT : INPUT "ENTER FI 
RST LETTER OF COLOR ";A$ 

IF A$ < > "G" AND A$ < > "W" AND A$ < 

> "B" AND A$ < > "P" AND A$ < > “"O" THEN 
1889 

REM POKE THE DIRECTORY 

POKE SS,SN: POKE SS + 1,8 
X=S$S +1 

FOR I = 1 TO SC 
B = SD(I) - SS 
X = X+1:TA = INT (B / 256) 

POKE X,B - TA « 256 
X = X + 1: POKE X,TA 

NEXT I 
REM + 
IF A$ 
IF A$ 
IF A$ 


EDIT THE SHAPE «+ 
"W" THEN HCOLOR= 
"G" THEN HCOLOR= 
"P" THEN HCOLOR= 
IF A$ "O" THEN HCOLOR= 
IF A$ "B" THEN HCOLOR= 
HGR2 : DRAW SC AT 148,48 
INPUT A$: POKE - 16298,8: POKE - 1639 
9,8: POKE - 16381, 
sp(sC + 1) =A+1 

IF TM = @ THEN COLOR= 1: PLOT BX,BY 
HOME 

INPUT "DRAW THIS SHAPE AGAIN (Y/N) ";A$ 

IF A$ = "" THEN 2998 

IF A$ = "Y" THEN 1858 

HOME 

INPUT "EDIT THIS SHAPE (Y/N) ";A$: IF 
A$ = "" THEN 21398 

IF A$ = "Y" AND TM = 1 THEN 2629 

IF A$ = "Y" THEN 459 

IF TM = 1 THEN 2208 

HOME : INPUT "USE THIS SHAPE AS A BASE 
FOR ANOTHER (Y/N) ";A$ 

IF A$ = “Y" AND SC < SN THEN SC = SC + 
1: GOTO 458 


nun te 


Ounre w 


REM +» NEXT SHAPE «+ 

NEXT SC 

REM +«* TABLE DATA es 

TEXT 
Vine : PRINT ” SHAPE TABLE DAT 
PRINT : PRINT : PRINT “SHAPE TABLE STAR 


TS AT _";SS 

PRINT : PRINT "AND ENDS AT “;SD(SC) 
PRINT : PRINT "TABLE LENGTH IS ";SD(SC) 
- SS +1 

REM SHAPE LOCATION 

PRINT : PRINT "SAVE SHAPE(S) WITH THIS 
COMMAND -" 

PRINT 

PRINT "BSAVE ";: INVERSE : PRINT "FILE 
NAME"; : NORMAL : PRINT ",A ";SS;",L ";SD 
(SC) - SS +1 

END 

REM ++ PLOT & ERASE SUBS «+ 

POKE 33,48: HOME ; 

PRINT TAB( 33)"PLOT": POKE 33,30 
COLOR= 1 

HOME : GOTO 489 


continued on page 192 


DISK MAP 








DISK MAP 


by James O. Church 
20 Placid St. 
Trumbull, CT 06611 


Sometimes it’s nice to do a little extra with 
your Apple even though it doesn’t serve a very 
useful purpose. It is useful to know how many 
free sectors there are left on your diskette, but 
there’s a little frosting on the cake if you can 
have a picture of the tracks and see which 
ones are being used and which ones are free. 
| believe anything which increases one’s 
understanding of the Apple is justification 
enough to do something like DISK MAP. 


TRACK BIT MAPS 

Boot up DOS with a freshly INITialized 
disk, enter the monitor with CALL - 151 and 
type B3F3.B47F<RTN>. You will be looking 
at a memory dump of what are known as 
Track Bit Maps. Each track on the disk you 
booted is represented by 4 bytes. Track 0 is 
represented by the first 4 bytes you see, and 
what you see is 00 00 00 00. 

The first two bytes are used in these Track 
Bit Maps, and the second two bytes are 
unused. Whenever a bit is “on” (i.e., equal to 
1) in a Track Bit Map it means there is an 
unused sector on the track. In the dump (list 
1) accompanying this article you will observe 
that Track 0, 1 and 2 are all zero bytes, mean- 
ing that there are no empty sectors on these 
three tracks. What's there? DOS. 

Track 3, however, has FF FF 00 00 in the 
Track Bit Map for that track. That means that 
the bits look like this in the first two bytes. 
11111111 11111111. (We can disregard the 
second two bytes. They are always zero and 
not used.) The meaning of this is that all 16 
sectors on track 3 are free. 

If you find track 17, you will find it says 00 
00 00 00, meaning it is used. That is because 
the disk directory is usually there. 


COUNTING SECTORS 

All we must do to count the sectors which 
are used, then, is count the number of bits in 
the 35 Track Bit Maps which are “off” (i.e., 
equal to 0), and wecan ignore the second two 
bytes of each Track Bit Map. 

My program not only counts the number of 
bits that are “off” in all the Track Bit Maps, but 
also puts the number of these bits found into 
a table for each track. 


HOW IT WORKS 

How does one count the bits which are “off” 
in a byte? The easiest way is to put the byte 
into the accumulator and shift it left with the 
ASL instruction. This puts the first bit into the 
CARRY BIT which can then be tested with the 
BCS test. If the CARRY BIT is set, it means 
that the sector is free and we don’t count it. 
Obviously, its up to me to decide whether to 
count “on” bits or “off” bits. | arbitrarily 
decided to count off bits (or used sectors). | 
place the result of the count in the table for 
2ach track, and the total result in location $08 
and $09. For each byte we must count all 8 
oits. 


THE GRAPHICS 

The graphics part is relatively simple. | first 
put a dark color on the screen in 35 columns, 
representing the 35 tracks in 16 locations in 
each column. Then | have the program con- 
sult the table | made for each track and entera 
light color in the column beginning at a point 
which shows graphically how many sectors 
are USED. Actually, the map may not be an 
accurate indication of which sectors on a 
track are free. It only provides a display of 
how many sectors of atrack are free and how 
many are used. Generally speaking, if one 
sees a lot of light color, he knows that the disk 
is relatively empty. 

| use the program as a HELLO programa lot 
and find it helpful when | wonder if there is 
room on the disk for saving something | am 
about to create. Instead of having to find the 
disk with the FREE SPACE program on it, | 
can RUN HELLO. For this reason, | turned the 
machine language into DATA statements (list 
2) so it would always be there. 

Alternatively, you may prefer to BLOAD 
Disk Map when you wish to use it. If you enter 
it at $4000 (list 3) and it is in machine lan- 
guage, youcan probably BLOAD itand CALL 
it while you have an Applesoft program in 
memory. This would allow you to determine 
disk space without bombing your Apple pro- 
gram (unless your program uses the memory 
block beginning at location hex $4000). Pa 


LIST 1 


*KESFS.B47F 
B3F3- 00 00 00 00 00 


K3FB- 00 00 00 00 00 00 00 FF 
B400- FF 00 00 FF FF 00 00 FF 
B408- FF 00 00 FF FF 00 00 00 
B410- FF 00 00 00 3F 00 00 FF 
B418- FF 00 00 1F FF 00 00 3F 
B420- FF 00 00 1F FF 00 00 7F 
B428- FF 00 00 7F FF 00 00 OF 
B430- FF 00 00 7F FF 00 00 00 
B438- 00 00 00 00 FF 00 00 FF 
B440- FF 00 00 FF FF 00 00 OF 
B448- FF 00 00 3F FF 00 00 FF 
B450- FF 00 00 FF FF 00 00 FF 
B458- FF 00 00 FF FF 00 00 FF 
B460- FF 00 00 3F FF 00 00 07 
B468- FF 00 00 FF FF 00 00 FF 
B470--FF 00 00 FF FF 00 60 FF 
B478- FF 00 00 00 3F 00 00 00 





LIST 2 

1 REM S8SSeSeeee ERE eee eRe eee eTE 
2 REM & << DISK MAPPER >> % 
3 REM & BY JAMES O. CHURCH s 
4 REM € COPYRIGHT (C) 1982 * 
S REM 8 BY MICRO-SPARC INC 8 
6 REM & LINCOLN, MA. Of©773 > 
7 REM * ALL RIGHTS RESERVED s 
B REM SSSR ATA eS eee eS RAES 
70 HOME 


80 VTAB 10: PRINT "PLEASE WAIT ONE 
MOMENT FOR DISK MAP” 
90 PRINT CHR® (4); "VERIFY HELLO" 
100 FOR I = 0 TO 299: READ A: POKE 
16384 + I,A: NEXT 
110 CALL 16384 
120 A = PEEK (9) &% 254 + PEEK (8) 
130 PRINT : PRINT "SECTORS FREE "35 
60 - As" SECTORS USED “;A 
PRINT "LIGHT COLOR AREA IS FREE 
GET As 
TEXT : 
DATA 
DATA 
DATA 


140 


150 

140 

1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1908 
1009 
1010 


HOME 
169, 243, 133,46, 169 
179, 133,7,162,8 
160, 0, 140,214, 44 
DATA 140,215, 64,177,6 
DATA 10,174,3, 238,214 
DATA 64, 202, 208, 247, 162 
DATA 8,200, 177,46, 10 

DATA 176,3, 238,214,644 
DATA 202, 208, 247,174,215 
DATA 64,173, 214, 64, 157 
DATA 216, 64, 238, 215, 64 


1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 


+ASM 


402A- CA 
402K- 0 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


173, 215,64, 201,35 
240, 23, 24,145,6 
105, 4, 133, 6, 165 
7,105, 0,133,7 
162,8,160,0,140 
214, 64,76, 18,64 
173,80, 192, 173,86 
192, 173,83, 192, 32 
54, 248,169,2,141 
213,64, 169,0,141 
212,64, 169,2, 32 
100, 248, 173, 212, 64 
172, 213.64,32.0 
248, 24,173,212, 64 
105,1,141,212,64 
201,32, 144,234, 169 
0,141, 212,64, 24 
173, 213,64,105,1 
141, 213,64, 201,37 
144,216, 32,251, 64 
169, 20, 133, 37,32 
3A, 252, 32,66, 252 
169, 2, 133,36, 169 
176, 32, 237, 253, 169 
19, 133,36, 169,196 
32, 237, 253,32, 142 
253,169, 0,133,8 
133,97, 162,34, 189 
216,64, 24,101,8 
133,8,165,9,105 
0,133,9, 202,16 
239, 96, 32,37,16 
35,16, 16,16, 16 
16,16,10,0,0 
0,7,16,2,16 

16, 16,16, 16,2 
0,0,0,0,0 
2,0,12,8,3 
3,11,0,16,16 

16, 1469, 15,32, 100 
248, 162,0,160,2 
140, 213,64, 189,216 
64,201, 16, 240,20 
10,141, 212,64, 172 
213, 64,32,0, 248 
238,212, 64,173,212 
64,201, 32,144, 243 
238,213, 64,232,224 
35,144, 221,96,0 





Copyright (c) 1982 


All Rights Reserved 
1000 SS 
1010 +OR $4000 
1020 S-essses2—-—a— eens nee 
1030 * SHOW 35 TRACKS AND HOW MUCH OF 
anes : EACH TRACK IS USED ON THE DISK 
J 
Ae * TRACK BIT MAPS $B3F3 TO B47E 
1080 P +EQ $06 
1090 COUNT +EQ $08 
1100 CH +EQ $24 
1110 CV +EQ 
1120 BIT, MAPS +EQ $B3F3 
1130 GRAPHICS +EQ $C0S0 
1140 LORES +EQ $C056 
1150 MIX +EQ $C0S3 
1160 MON.PLOT +EQ $F800 
1170 MON. CLRTOP +EQ $F836 
1180 MON.SETCOL +EQ $F 864 
1190 MON.VTAB +EQ $FC22 
1200 MON. CLREOP +EQ $FC42 
1210 MON. CROUT +EQ $FD8E 
1220 MON, COUT +EQ $FDED 
8290 Booman ssa sheen e nes nee anee= 
1240 * SET POINTER TO BIT MAPS 
1250 Snos2en a <oo eee sense one es ee sees 
1260 GO 
F3 1270 LDA #BIT.MAPS 
06 1280 STA PT 
B3 1290 LIA /BIT,MAPS 
07 1300 STA PTRt1 
00 1310 LDA #0 
02 41 1320 STA TRACK. NUMBER 
USO P+S=snsens Sas ene Seen eee amare 
1340 COUNT. AND. MAKE. TABLE 
08 1350 LOX #$08 INIT INDEX 
00 1340 LDY #$00 
O01 41 1370 STY TOTAL INIT COUNTER 
06 eM LDA (PTR)sY 
1400 * COUNT NUMBER OF 0 BITS _IN 
14k9 * FIRST BYTE OF TRACK BIT MAP 
1420) Sse sn eS Be ee See 
1430 ONE ASL COUNT 0 BITS 
03 1440 ECS SET1 BR IF NOT 0 
O1 41 1450 INC TOTAL COUNT IT 
1460 SET1 DEX 
F7 1470 NE ONE BR 8 TIMES 
1480) Baseescete + -38e~ cere e ee aeesseae= 
08 1490 LIX #$08 
1500 IN SECOND BYTE 
06 1510 LIA (PTR)sY 
1520 Besse-=--=—=sese eee cases see — 
1530 * COUNT NUMBER OF 0 BITS IN 
pe x SECOND BYTE OF TRACK BIT MAP 
CL IR Seedeateaaner ache taste ma sie ana aii sieriet tage ee rgb react 
1560 TWO ASL COUNT 0 BITS 
03 1570 BCS SET2 BR IF NOT 0 
01 41 1580 INC TOTAL COUNT IT 
1590 SET2 DEX 
F7 1600 BNE TWO 8 TIMES 


by Micro-SPARC Inc. 
Lincoln, MA, 01773 
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Disk Map (Cont.) 





1610 %----------------------7---------- 
1620 % STORE IN TABLE FOR THIS TRACK 
1630 k- oan om ae 
20- 2 41 1640 LIX TRACK. NUNBER 
40a0- ab OL 41 Les [ha TOTAL. NO. OF O BITS 
4033- 90 03 41 1660 STA TABLEyX PUT IN TABLE 
4036- EE 02 41 1670 INC TRACK«NUMBER 
4039- Al 02 41 1680 LIA TRACK sNUNBER 
403C- C9 23 1690 CHP $$23 STOF AT 34 
403E- FO 10 1700 REQ [10.GRAPHICS 
= 46 1740 CLC 
sole ag 06 «7S LDA PTR ADD 4 TO PTR 
4043- 469 04 1760 ADC #$04 
4045- 85 06 1770 STA PTR 
4047- AS 07 1780 LDA TRH 
3b4k- 8s 07 1800 Ste ETRE 
404E— 85 
tose 42 OD 40 1810 JME COUNT. AND. MAKE, TABLE 
1800, kKooa= nee 
1830 1l0,GRAFHICS 
4050- AL 50 CO 1840 LDA GRAPHICS 
aici ae 
56- AD 5S 1 
3029-90 Se Fe 1870 JSR MON, CLRTOP 
405C- A9 02 1880 LDA #802 INIT HORIZONTAL 
405E- 80 00 41 1890 STA HORIZONTAL 
4051- A9 00 1900 CDA #$00 INIT VERTICAL 
4063- 80 FF 40 1910 STA VERTIC 


AL 
2 DARK COLOR 


4065- A9 02 1920 LRA #$02 

4068- 20 64 Fe 1950 JSR MON, SETCOL 
{SS Coa re 
1950 * DRAW VERTICAL LINE COLOR $02 
1960 % TOP TO BOTTOM. WHOLE SCREEN 
1970 X----------- nnn 

FF 40 1900 RRM AR. VERTICAL 

406R- AD FF 4 \ 

406E- AC 00 41 2000 LDY HORIZONTAL 

4071- 20 00 FB 2010 JSR MON. PLOT 

4074- 18 202 CLC 

4075- AD FF 40 2030 LDA VERTICAL 

4078- 69 01 2040 ANC #$01 

407A- 82 FF 40 2050 STA VERTICAL 

4071- C9 20 2080 CMF #$20 

407F- 90 EA 2070 RCC DRAW. DARK 


2080 * 

2090 * AND 1 TO HORIZONTAL THRU 36 
2100 * BECAUSE WE STARTED AT 2 
2110 ¥ GO BACK AND DO ANOTHER 











SEE ee a bao ne Tee SER 
4081- a9 00 3130 LDA #$00 
4083- 8D FF 40 2140 STA VERTICAL 
4085- 18 215 cLe 
4087- AD 00 41 2180 LDA HORIZONTAL 
408A- 69 01 2170 ADC #$01 
408C- 8D 00 41 2180 STA HORIZONTAL 
408F- C9 25 2190 CHP #$25 
4091- 90 18 2200 KCC DRAW. DARK 
9910 4--------------------------------- 
4073- 20 CF 40 2220 JSR DRAW. LIGHT 
40975- AI 14 2230 LUA #814 
4098- 85 25 3340 STA CV 
409A- 20 22 FC 2250 JSR MON. VTAB 
409L- 20 42 FC 2260 JSR MON, CLREOP 
s0R0- AY 02 — 2270 LDA #$02 
40A2- 85 24 © 2380 STA CH 
40A4- AP BO 7990 LDA #$B0 LETTER 0 
4086- 20 EL FL 2300 JSR MON. COUT 
40A9- A 13-2310 LDA #$13 
40AB- 85 24 232 STA CH 
40ali- A? C4 2330 LUA #/0+$80_ D-DIRECTORY 
40AF- 20 ED FD 2340 JSR MON. COUT 
4082- 20 SE FD 235 JSR MON. CROUT 
40B5- 89 00 2360 LDA #800 
40B7- 85 08 2370 STA COUNT ZERO COUNT 
40K9- 85 09 © 9220 STA COUNTH 
2390 x--------~-----_------------------ 
2400 * ADD UP ALL THE USED SECTORS 
2410 & PUT TOTAL WHERE IT CAN BE USED 
2420 & WHEN NEEDED 
2430 %-------------------------------—- 
40BE- 42 22 2440 LDX #$22 
40BD- BD 03 41 2450 LOOP LDA TABLErXx 
40C0- 18 2460 CLC 
40C1- 65 08 3470 ADC COUNT 
40C3- 85 08 2480 STA COUNT 
40C5- A509 = 2490 LDA COUNT+4 
40C7- 69 00 2500 ADC #$00 
40C9- 85 09 2510 STA COUNTH 
40CB- CA 2520 DEX 
40CC- 10 EF 2530 BPL LOOP1 
40CE- 60 2540 RTS 
2550 4-------------~-------------------- 
2560 & PUT IN COLOR $0F 
2570 %--------------------------------- 
2580 DRAW.LIGHT 
40CF- a9 OF 2590 A #$0F 
40B1- 20 44 FB 2600 JSR MON, SETCOL 
40D4- A200 2610 LDX #$00 
40B6- A0 02 2620 LBY #$02 
40D8~ BC 00 41 2430 STY HORIZONTAL 
40DB- BD 03 41 2640 BRI = LDA TABLEyX 
40DE- C9 10 2650 CHP #$10 16 BITS ALL 0 
40E0- FO 14 2660 BEG ER2 NO FREE SPACE 
40E2- 0A 2670 ASL DOUBLE COUNT 
40E3- 8D FF 40 2680 STA VERTICAL START POSITION 
40E6- AC 00 41 2690 LDY HORIZONTAL 
40E9- 20 00 FB 2700 BR10 JSR MON.PLOT 
40EC- EE FF 40 2710 INC VERTICAL 
40EF- AD FF 40 2720 LDA VERTICAL 
40F2- C9 20 3730 CMP #820 DRAW TO BOTTOM 
40F4- 90 F3 2740 BCC BRIO 
40F6- EE 00 41 2750 BR2 INC HORIZONTAL NEXT COLUMN 
40F9- £8 2740 INX 
40FA- £0 23 2770 CPX 4423 DON’T DO 35 
40FC- 90 DD 2780 BCC BRI 
40FE- 60 2790 RTS 
2800 %--------------------------------_ 
2810 VERTICAL 
40FF - 2820 +BS 1 
2830 HORIZONTAL 
4100- 2840 +BS 1 
4101 - 2850 TOTAL «BS 1 
2840 TRACK. NUMBER 
4102- 2870 +BS 1 
4103- 2880 TABLE .BS $23 
0126- 2890 Z.LENGTH .EQ %-GO 
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APPLE BOWL FOOTBALL 


Apple Bowl Football 


by Preston R. Black, MD 
Richard | Morris Jr. 

The Durham Software Group 
16 Durham St. 

Boston, MA 02115 


ny true football fan is by nature a 
A grandstand or Monday morning quar- 
| terback. How many times have you said 
_ to yourself after the hometown favorites had 
_ blown another one, “If | was the quarterback | 
would never have called a pass play in that 
situation. Everyone in the stadium was look- 
ing for it. | would have tried a screen pass or 
a draw!”? Well, here’s your chance to put your 
words into action. Apple Bow! Football is an 
interactive strategy game which gives you the 
opportunity to test your play-calling ability 
against the Apple II. You have your choice of 
three passing plays and fourrunning plays. A 
full kicking game including quick kicks is also 
available. There are safeties, long runs, and 
long passing bombs. Your quarterback can 
be sacked and you can fumble on any play. 
Don’t get caught offsides or clipping. If you 
are caught, you will have penalty yards 
marked off against you. 


PLAYING APPLE BOWL FOOTBALL 

Apple Bow! Football requires at least 32K of 
memory when DOS is used concurrently. If 
DOS is not used and if the REM statements 
and the instructions are removed, the game 
can probably be squeezed into 16K. 

Operating the program is fairly easy. Most 
things are self-evident and almost everything 
else is explained within the program. At the 
start of your first game you are asked to 
initialize the random number generator (as 
explained above) and to set the video output 
speed. The Scoreboard leaves only a small 
text area at the bottom of the screen. Conse- 
quently, the play-by-play narrative can scroll 
off the screen before it is comprehended. By 
slowing down the display, time is allowed for 
the player to read the play-by-play narrative. 
For new players of Apple Bowl Football, a 
speed of 2 or3 (equivalent to SPEED=105 and 
SPEED=155 respectively) is recommended. 
After the player becomes more familiar with 
the game, he may wish to usea speed of 4or5 
(SPEED=205 and SPEED=255 respectively). 


THE PLAYS 

A listing of the plays available in Apple 
Bowl Football is given with the instructions 
and can be relisted at any time during the 
game by entering “PLAYS” when the Apple II 
prompts the player with “NEW PLAY:”. A list- 
ing of the plays is also given in Table 1 to 
facilitate the flow of the game. 


TABLE 1 
The current plays available in Football: 


LPASS — LONG PASSING PLAY 
SPASS — SHORT PASSING PLAY 
SCRN — SCREEN PASS 

MRUN — RUN UP THE MIDDLE 
OTRUN— OFF TACKLE RUN 

DRAW — DRAW PLAY 

SWEEP — A SWEEP 

PUNT — A PUNT 

QKKIK — A QUICK KICK 

FLDGL — A FIELD GOAL ATTEMPT 
STAT —LIST OF CURRENT STATISTICS 
TMOUT— TAKES A TIME-OUT 


PLAYS — GIVES A LIST OF AVAILABLE 
PLAYS 


The original version of this program was 
written by us in FORTRAN IV on a PDP-10 
time-sharing system. When we purchased 
our Apple II, the program was translated into 
Applesoft. Many changes have been made in 
the program since the original version. Most 
of these have been to incorporate the special 
features of Applesoft Basic and the Apple II. 
The final product of eight years of various 
versions is Football. Over the years we have 
had many hours of enjoyment from this game. 
We hope that the readers of NIBBLE will 
enjoy this program as much as we have. 


THE PASSING GAME 

Every attempt has been made to make the 
Apple Bowl Football game realistic. As in an 
actual football game, the player is more likely 
to complete a screen pass than a short pass 
down field. And the completion rate for long 
passes is lower than for short passes. But if 
the defense reads your screen pass, you may 
lose yardage. Any of the pass plays can break 
for along gainer. Pass too frequently, and the 
computer will recognize this tendency and 
make adjustment to its defense. Interceptions 
and quarterback sacks then become more 
likely. 


THE RUNNING GAME 

The running game is also realistic. Sweeps 
and draws are more wide open and can gain 
more yardage than running plays up the mid- 
dle. But they are more likely to lose yardage 
than conservative plays such as runs off 
tackle or runs up the middle. It is also more 
difficult to gain yardage in an obvious run- 
ning situation such as third or fourth down 
and short yardage, or whenever you are 
inside your opponent’s ten yard line. Again, 
all of the running plays can be broken forlong 
gainers. 


THE KICKING GAME 

The player has a complete kicking game. 
The plays include punts and as a surprise, 
you can also quick kick. Because they are 
unexpected, quick kicks are usually longer 
than punts and the returns are shorter. But 
quick kicks on a fourth down fool no one and 
are treated as punts. 

The player also has avery accurate, strong- 
legged placekicker. Field goals can be at- 
tempted from anywhere on the field. But 
should you miss an attempt from outside the 
twenty yard line, your opponent will start 
from the original line of scrimmage. If the 
field goal is short, it will be returned by your 
opponent. 


TIMING 

Are the last two minutes of each half your 
favorite? Do not despair. Even though there 
are no commercials, a two minute warning 
(with a timeout) is issued each half. You have 
three time outs per half. Using them wisely in 
your two minute drill will allow the player to 
move into scoring position before the end of 
the half, or score the winning touchdown in 
the waning moments of the game. If the score 
is tied after four quarters of play, a sudden 
victory overtime period is automatically in- 
voked for one more try. 

Defensive plays are always called by the 
Apple Il. Prior versions of the program have 
had a player-called defense feature. But this 


feature slowed down the flow of the game so 
much, it was finally removed. The Apple II is 
impartial on defense selection. Regardless of 
who is On offense the Apple II will try to anti- 
cipate plays based on patterns and field 
position. 


STATISTICS 

Do you want to know how well your defen- 
sive and offensive teams are performing? 
How many plays have you run? What is your 
passing, running, and total yardage? What is 
your average gain per carry? What is your 
average yardage per pass? How well are your 
punter and kicker performing? How many 
turnovers have there been? How many penalty 
yards have been assessed against you? What 
is your opponent's total yardage? How many 
times has your defensive unit sacked your 
opponent’s quarterback? Apple Bowl Foot- 
ball keeps full statistics (which are always 
current). These statistics can be displayed at 
any time during the game to answer all of the 
questions posed above. The statistics are 
automatically displayed at the end of each 
half. 


THE SCOREBOARD 

Perhaps the most innovative feature ‘of 
Apple Bowl Football is the Scoreboard which 
is always displayed on the top half of the TV 
screen. Formatted like astadium scoreboard, 
the display includes the time left in the quar- 
ter, the down and ball placement, the score, 
the current quarter, and possession data. The 
scoreboard is updated after every play and 
has all the information needed for decision 
making. The lower half of the screen displays 
the play-by-play narrative. 


PROGRAMMING LOGIC 

Mathematically, football is a game of prob- 
abilities. Each play has a statistical probabil- 
ity of success and another probability deter- 
mines the magnitude of that success. They 
both depend upon a multitude of factors. 
Reviewing professional football annual sta- 
tistics reveals many interesting facts. While 
football is usually thought of as primarily a 
passing game, passing accounts for less than 
40% of all football plays. And the average 
pass gains only 8 to 10 yards. Furthermore, 
only 45 to 55% of passes are completed. 
Moreover, the average running play gains 
only 2.5 to 3.5 yards. 

Statistics of this nature are used in Apple 
Bowl Football. Parameters are set based on 
these statistics, and random numbers are 
generated to decide the outcome of a particu- 
lar play. In addition, special parameters are 
incorporated for those situations considered 
“special” in real football. Thus it is more diffi- 
cult to complete a pass on third down and 
long yardage, or to gain yardage on the 
ground within your opponent's ten yard line. 
Yardage gained is also determined by param- 
eters designed for each play and the gener- 
ation of random numbers. For example, the 
parameters of running plays are designed so 
that the average sweep will gain more than 
the average run up the middle. Yet you are 
less likely to lose yardage on the more con- 
servative play. Likewise a long pass will gain 
more yardage than a screen pass. But the 
long pass is more likely to be incomplete or 
intercepted. The length of punts and punt 
returns are based on similar algorithms. 
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Whether a penalty, a fumble, or bonus yard- 
age occurs is determined on each play. Again, 
parameters are set and random numbers are 
generated to decide the outcome when the 
FUMBLE, PENALTY, or BONUS routines are 
called in the program. The success or failure 
of field goals is also determined statistically. 
The longer the field goal attempt, the more 
likely that it will be unsuccessful. But short 
field goals are not sure things either. They too 
can be missed. Even points after touchdowns 
will occasionally be missed. 

Overall parameters have been set to simu- 
late those observed in real football games. 
Every effort has been made to make Apple 
Bowl Football as realistic as possible. 


RANDOM NUMBERS 

Most of the coding in Apple Bow! Football 
is straightforward. Since the program makes 
extensive use of random numbers, we will 
briefly discuss the Applesoft random number 
generator. The implementation of the Score- 
board feature and the Scoreboard Updater 
will also be analyzed. 

The pseudo-random number generator resi- 
dent in Applesoft Basic is very interesting. 
Unlike the pseudo-random number genera- 
tor found in Integer Basic, Applesoft’s gener- 
ates random numbers between 0 and 1. In 
Integer Basic, the command RND(X) will 
return a random integer between 1 and X. In 
Applesoft the argument is used to set the 
function mode. A positive argument (greater 
than 0) generates anew random number each 
time the function is called. An argument of 
zero returns the most recently generated 
random number. A negative argument sets a 
sequence of random numbers to be used. 
This sequence will be repeated each time the 
same negative argument is used. The random 
number generated is always positive and 
between 0 and 1. 

Moreover, pseudo-random number gener- 
ators like the one in Applesoft usually gener- 
ate the same table for a given seed number. 
Since the seed cannot be set randomly — the 
first number is predictable — a way to ran- 
domize the sequence has to be found. For 
those readers with a clock card, the time can 
be used to randomize the seed. Those of us 
without clocks must find another way. Oth- 
erwise, whenever Apple Bowl Football is 
played, the first game would always be exactly 
the same as the first game played on a pre- 
vious occasion. Therefore, the player is al- 
lowed to set the random number generator at 


the beginning of the first game he plays. Yet 
the player has the option to replay games if he 
so desires by entering the same number to set 
the function at the start of the game. Re- 
member the game must be repeated exactly 
the same, with the same plays, to get the same 
result. : 

In Applesoft the expression X*RND(1)+1 
will give a random number between 1 and X. 
We are only interested in the integer values 
for the random numbers in the game. Since 
we use random numbers so frequently, we 
defined a function, using the DEF FN of 
Applesoft, to give a random integer from 1 to 
X, when X is the argument of the function 
defined. This is implemented in line 160. 


HOW THE SCOREBOARD WORKS 

Implementation of the Scoreboard takes 
advantage of the text screen control that 
Applesoft affords the programmer. The video 
display of the Apple II in the TEXT mode has 
the capacity for 960 characters in a twenty- 
four line by forty column matrix. By assigning 
a column and line value to a character, the 
programmer can place a character anywhere 
on the screen. The VTAB and HTAB com- 
mands provide a method to do this. 

The VTAB command moves the cursor to 
the line designated by its argument. VTAB 
uses absolute moves, relative only to the top 
and bottom of the screen; it ignores the text 
window. If VTAB moves the cursor below the 
text window, normal scrolling is active on all 
subsequent printing. 

HTAB moves the cursor to the position 
designated by its argument on the current 
screen line. HTAB’s moves are relative to the 
left margin of the current screen line. HTAB 
ignores the text screen, operating within the 
current line. HTAB can move the cursor to the 
left or to the right. : 

TAB is similar to HTAB with these impor- 
tant differences: First, TAB must be used ina 
PRINT statement. Second, TAB moves the 
cursor to the right of the cursor’s current 
position. If the value of the argument for TAB 
is less than the current cursor position, the 
cursor will not move. Third, TAB has an inter- 
esting idiosyncrasy. Within a single PRINT 
statement the TAB does not affect characters 
previously printed on the current line. How- 
ever, ifthe TABisin another PRINT statement 
that references a line on the screen that has 
been previously printed on, the TAB becomes 
similar to printing spaces and all the text pre- 
viously written on that line will be erased. 


TEXT WINDOWS 
Applesoft Basic also allows you to partition 
the text screen into “windows” of any dimen- 


sions. A familiar example of such a text win- 
dow is the four lines at the bottom of the low 
resolution graphics display for text. There are 
four special POKE commands to set the size 
of the “window” for the screen. Within this 
window text will be shown and scrolled. 
POKE 32,L will set the left margin of the text 
screen to the value specified by L.L. can bein 
the range from 0 to 39 where 0 is the left 
margin. Note that the width of the window is 
not changed by this command; this means 
that the right margin is moved by the same 
amount as the left margin. 

POKE 33,W sets the width (i.e. the number 
of characters per line) of the text screen to the 
value of W, which can be in the range from 1 
through 40. W cannot be zero; POKE 33,0 
bombs Applesotft. 

POKE 34,T sets the top margin of the text 
screen to the value specified by T. T can bein 
the range from 0 to 23, where 0 is the top line 
of the screen. 

POKE 35,B sets the bottom margin of the 
text screen to the value specified by B. B can 
be in the range from 0 to 23, where 23 is the 
bottom line on the screen. Never set the bot- 
tom of the window (B) above the top of the 
window (T). 

The programmer can use these commands 
to control output to the screen and customize 
output to suit his needs. 

The SCOREBOARD routine takes advan- 
tage of some of these Applesoft features. 
After the screen has been cleared by the 
HOME commana, the VTAB and HTAB com- 
mands are used to construct the scoreboard. 
Advantage is taken of HTAB'’s ability to use a 
variable as an argumentto properly place the 
scores for each quarter (line 340). Once the 
scoreboard has been constructed, POKE 34,16 
(line 420) sets the text window so that the 
scoreboard is not overwritten. 

The SCOREBOARD UPDATER routine re- 
lies upon the fact that VTAB does not recog- 
nize the text window to make changes in the 
scoreboard. We can change those parts of the 
scoreboard that need changing without af- 
fecting other parts of the scoreboard. The 
VTAB 24 in line 600 returns us to the text 
screen, again preventing the scoreboard from 
being overwritten. The remainder of the score- 
board implementation and updating are eas- 
ily understood from reviewing the program 
listing. 

The interested reader can explore the re- 
mainder of the design of Apple Bowl Football 
by studying the program listing. The various 
routines are clearly delineated by REM state- 
ments and are easily found. 





10 REM SEEHEAELEERREEE ERR ER EE 
20 REM * APPLE FOOTBALL 3.0 * 
30 REM * * 
40 REM * BY PRESTON BLACK *# 
50 REM * AND RICHARD MORRIS * 
60 REM * * 
70 REM * COPYRIGHT (C) 1982 * 
80 REM * BY MICRO-SPARC INC * 
90 REM * LINCOLN, MA. 01773 * 
100 REM — 7408 96 08 36 3 48 90 a ae a a a a a ae 
110 DEF FN Z(X) = INT (X * 100 + .5) / 


120 DIM DS(9),SUB(2) 
130 WIS = "GAINS":W2$ = "LOSES" 


140 DIM FIRST(2),ZPLAY(2) ,RUSH(2) ,PASS( 2) ,PUNT(2) , YPUNT(2), 
FLD(2) ,MADE (2) ,XPUNT(2) ,FUM(2) ,RECO(2) ,NENT( 2) , NPEN( 2) , PPEN( 
2), LOSS(2) ,COMP(2) , YRUSH( 2) ,RPASS(2) ,PLAY$(15) , TEAM$(2) , SCR( 


4,2), TMOUT(2) ,DFENS(10) , YARD(2) ,PDN( 2) 
150 DIM KZ(4,3),VSAK(2) 
160 DEF FN A(X) = 


190 FOR | = 1 TO 2:RUSH(!) = O:FUM(1) = Os:RECO(I) = O:NENT( 
1) = O:PASS(1) = O:COMP(I) = O:LOSS(1) = O:YRUSH(1) = O:RPAS 
S(1) = O:FIRST(1) = O:YPUNT(I) = O:XPUNT(I) = O:FLD(I) = O:M 
ADE(1) = O:NPEN(1) = O:PPEN(1) = O: NEXT 

200 FOR | = 1 TO 2:VSAK(1) = O: NEXT 


210 GOTO 4770 
220 REM 
230 REM 
240 REM 


PEED= 25 
INT (100.5) os Pg 255: TEXT : HOME 


)») 
270 VTAB 3: HTAB 17 


INT CITIME / 60):NSEC = 


##* SCOREBOARD*#* 


: HTAB 15: PRINT "SCOREBOARD" 
INT (ITIME = (NMIN * 60 


260 IF ITIME > 0 THEN 300 
290 PRINT " 0:00": GOTO 330 
300 IF NMIN < 10 THEN PRINT " "5 


310 PRINT NMINs":"33 IF NSEC < 10 THEN PRINT "0"; 


320 PRINT NSEC 


INT (X * RND (1)) + 1: DEF FN B(X) = 


VTAB 6: FOR | = 1 TO 4:08 = 8 +4 * I: IF | = QTR THEN 


(X /-2) = © INT (Xf 237 = FLASH 
170 FOR | = 1 TO 12: READ PLAYS(1): NEXT : DATA  LPASS,SPA 

SS, SCRN, MRUN, DRAW, SWEEP, OTRUN, PUNT, OKKIK, FLDGL, TMOUT, STAT se Kes erent 
180 FOR | = 1 TO 3: FOR J = 1 TO 4: READ KZ(J,1): NEXT J: N > 

EXT I: DATA 4,2,2,3,4,3,5,4,4,10,8,6 pb cowl 


NORMAL : NEXT : PRINT TAB( 28)3;"TOT 


VTAB 8: IF AN = 1 THEN PRINT "#M5; 


360 NORMAL : PRINT TAB( 2);TEAM$(1)3: FOR | = 1 TO 4:DS = 
8+ 4 * |: PRINT TAB( DS);SCR(I,1);: NEXT : PRINT TAB( 29) 


3L1 
370 FLASH : 
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380 NORMAL : PRINT TAB( 2); TEAMS(2);: FOR | = 1 TO 4:DS = 


re 4 * I: PRINT TAB(C DS);SCR(1,2)3: NEXT : PRINT TAB( 29) 
; 


390 VTAB 11: PRINT "BALL ON THE ";TEAMS(YARD(1))3" "SYARD(2 
)3" YARD LINE" 


400 VTAB 13: PRINT "DOWN=";DOWN; TAB( 20);YSTGO;" YARDS TO 


Gor 

ATO VIAB UST BRINT, Naeem mmr ee 
— 

420 POKE 34,16: VTAB 24: SPEED= ISPD: RETURN 

430 REM 

440 REM  *®*SCOREBOARD UPDATER*## 

450 REM 


460 oe = INT (ITIME / 60):NSEC = INT (ITIME - (NMIN * 60 
470 SPEED= 255: IF ITIME > 0 THEN 490 
480 VTAB 3: HTAB 18: PRINT "0:00": GOTO 600 
490 VTAB 3: HTAB 17: IF NMIN < 10 THEN PRINT My 
500 PRINT NMIN3":"33 IF NSEC < 10 THEN PRINT "0"; 
510 PRINT NSEC: VTAB 24: GOTO 600 
520 SPEED= 255: VTAB 6:DS = 8 + 4 * (QTR = 1): PRINT TAB( 
DS)s;(QTR - 1)3:DS = 8 + 4 * QTR: FLASH : PRINT TAB( DS) ;QTR 
: NORMAL : VTAB 24: GOTO 600 
530 SPEED= 255: ON AN GOTO 540,550 
540 VTAB 8: FLASH : PRINT "*"; NORMAL : VTAB 9: PRINT " "; 
GOTO 600 
550 VTAB 8: PRINT " ": VTAB 9; FLASH : PRINT "#"; NORMAL : 
GOTO 600 
560 DS = 8 + 4 * QTR: VTAB 8: HTAB DS: PRINT SCR(QTR,1)31 HT 
AB 29: PRINT L1: VTAB 9: HTAB DS: PRINT SCR(QTR,2)3: HTAB 29 
: PRINT L2: GOTO 600 
570 SPEED= 255: VTAB 11: HTAB 13: PRINT TAB( 27): VTAB 11: 
HTAB 13: PRINT TEAM$(YARD(1));" ";YARD(2);" YARD LINE L 
580 VTAB 13: HTAB 6: PRINT DOWN;: HTAB 20: IF YSTGO < 10 TH 
EN PRINT ® "3 
590 PRINT TAB( 15): VTAB 13: HTAB 20: PRINT YSTGO;" YARDS 
" 


TO GO 

600 SPEED= ISPD: VTAB 24: RETURN 

610 REM 

620 REM JHEEBONUS HH 

630 REM 

640 XRAN = RND (2):0S(1) = 10: FOR | = 2 TO 9:DS(1) = DS(I 
- 1) + 5: NEXT 

650 IF XRAN * 20 > = 1 THEN 750 

660 NB = 1: IF XRAN * 30 < = 1 THEN NB = 2 

670 IF XRAN * 40 < = 1 THEN NB = 3 

680 IF XRAN * 50 < = 1 THEN NB = 4 

690 IF XRAN * 60 < = 1 THEN NB = 5 

700 IF XRAN * 70 < = 1 THEN NB = 6 

710 IF XRAN * 80 < = 1 THEN NB = 7 

720 IF XRAN * 90 < = 1 THEN NB = 8 


730 IF XRAN * 100 < = 1 THEN NB = 9 

740 BNUS = DS(NB):XRAN = 0: GOTO 760 

750 BNUS = 0:XRAN = 0 

760 RETURN 

770 REM 

780 REM ***FUMBLE### 

790 REM 

800 CHANCE = FN A(100): IF CHANCE < = 1 THEN 820 

810 FUMBL = 0:RECOV = 0: GOTO 890 

820 FUMBL = 1:FUM(AN) = FUM(AN) + 1: PRINT : PRINT TEAM$(AN) 
3" FUMBLESIII" 

830 RECOV = FN A(2): IF RECOV = AN THEN 870 

840 SET = AN:AN = OFF:OFF = SET:NPLY = NPLY + 1:1TIME = ITIM 
E - 5:DOWN = 1:YSTGO = 10 

850 IF YARD(1) < > AN AND YARD(2) < 10 THEN YSTGO = YARD(2 
) 


860 GOTO 880 

870 FUMBL = 0:RECO(AN) = RECO(AN) + 1:RECOV = 0 

880 PRINT : PRINT TEAMS(AN);" RECOVERSIII": PRINT : PRINT ” 
BALL ON THE ";TEAMS(YARD(1));" ";YARD(2);" YARD LINE" 

890 RETURN 

900 REM 

910 REM  ***PENALTY#*# 

920 REM 

930 KFIRST = O:CHANCE = FN A(100): IF CHANCE < = 5 THEN 95 
0 

940 PENALT = 0: RETURN 

950 YFIX = FN A(100):YDS = 5: IF YFIX > 66 THEN YDS = 15 

960 XTM = FN A(2) 

970 IF XTM = OFF THEN 1070 

980 IF YARD(1) = OFF THEN 1030 

990 IF YARD(2) > 20 THEN 1020 

1000 XDS = INT (YARD(2) / 2): IF YDS = 5 AND XDS < 5 THEN Y 
DS = XDS 

1010 IF YDS = 15 THEN YDS = XDS 

1020 YARD(2) = YARD(2) - YDS: GOTO 1160 

1030 IF YARD(2) > 35 THEN 1050 

1040 YARD(2) = YARD(2) + YDS: GOTO 1160 

1050 IF YARD(2) < = 45 AND YDS = 5 THEN 1040 

1060 YARD(1) = AN:YARD(2) = 50 - (YARD(2) + YDS - 50): GOTO 
1160 

1070 IF YARD(1) = AN THEN 1120 

1080 IF YARD(2) > 20 THEN 1110 

1090 XDS = INT (YARD(2) / 2): IF YDS = 5 AND XDS < 5 THEN Y 
DS = XDS 

1100 IF YDS = 15 THEN YDS = XDS 

1110 YARD(2) = YARD(2) - YDS: GOTO 1160 

1120 IF YARD(2) > 35 THEN 1140 

1130 YARD(2) = YARD(2) + YDS: GOTO 1160 

1140 IF YDS = 5 AND YARD(2) < = 45 THEN 1040 

1150 YARD(1) = OFF:YARD(2). = 50 - (YARD(2) + YDS = 50) 

1160 NPEN(XTM) = NPEN(XTM) + 1:PPEN(XTM) = PPEN(XTM) + YDS: 
IF KICK = 1 THEN 1230 

1170 IF XTM = AN THEN 1220 

1180 YSTGO = YSTGO - YDS: 

1190 IF YSTGO > 0 THEN 1230 

1200 DOWN = 1:YSTGO = 10: IF YARD(1) = OFF AND YARD(2) < 10 
THEN YSTGO = YARD(2) 

1210 KFIRST = 1:FIRST(AN) = FIRST(AN) + 1: GOTO 1230 

1220 YSTGO = YSTGO + YDS 

1230 IF YDS < > 5 AND YDS < > 15 THEN 1250 

1240 PRINT : PRINT "<<PENALTY ON ";TEAM$(XTM);">> ";YDS;" 
YARDS": PRINT "BALL IS PLACED ON THE ";TEAMS(YARD(1))3" ";YA 
RD(2): GOTO 1260 


PRINT : PRINT "<<PENALTY ON ";TEAM$(XTM);">>": PRINT 
HALF THE DISTANCE TO THE GOAL LINEI": PRINT "BALL IS PLACE O 
N THE ";TEAMS(YARD(1));" ";YARD(2) 

PRINT : IF KFIRST = 1 THEN PRINT "FIRST DOWN FOR ";TE 
AMS(AN) 

IF ZN = 0 THEN 1290 
DOWN = 1:YSTGO = 10:ZN = 0 

GOSUB 570: POP : GOTO 1580 

FOR | = 1 TO 9: PRINT "#N; 

FOR J = 1 TO 10:X = PEEK ( - 16336): NEXT J 

NEXT 

RETURN 

IF OVT = 1 THEN 1400 
QTR = 1:TMOUT(1) = 3:TMOUT(2) = 3:INCOMP = O:WARN = O:T 
IMSET = O:ITIME = 900:0VT = 0 


SAFETY = 0: FOR | = 1 TO 4:SCR(I,1) = O:SCR(I,2) = 0: N 
EXT 

REM 

REM = *##THE KICK OFF### 

REM 


GOSUB 250: VTAB 24 
YARD(1) = OFF:YARD(2) = 40:THIS = 99:ITIME = ITIME. = 5: 
HUDDL = O:KICK = 1 

GOSUB 530: GOSUB 570: VTAB 24 

PRINT : PRINT TEAMS(OFF);" KICKS OFF AND" 
YDL = 50 - (35 + FN A(18)): IF YOL < = 0 THEN 1540 
IZAL = 20 

IF YDL < = 10 THEN IZAL = IZAL + 5 

IF YOL < = 5 THEN IZAL = IZAL + 5 

GOSUB 640:RTURN = 5 + FN A(IZAL) + (BNUS * 2):ITIME = 
ITIME - 3 - (RTURN / 10): IF RTURN > = 100 - YDL THEN 4020 
IF RTURN + YDL > 50 THEN 1510 
YARD(1) = AN:YARD(2) = RTURN + YDL:DOWN = 1:YSTGO = 10: 
GOTO 1520 
YARD(1) = OFF:YARD(2) = 50 - (RTURN + YDL - 50):DOWN = 
1:YSTGO = 10: IF YARD(2) < 10 THEN YSTGO = YARD(2) 
PRINT : PRINT TEAM$(AN);" RECEIVES THE KICK": PRINT "O 
N THEIR "sYDL;" YARD LINE": PRINT "AND RUNS IT BACK ";RTURN; 
" YARDS": PRINT "TO THE ";TEAMS(YARD(1));" ";YARD(2) 
GOSUB 800: GOSUB 930: GOSUB 53U: GOSUB 560: GOSUB 570: 
GOTO 1580 

YARD(1) = AN:YARD(2) = 20:DOWN = 1:YSTGO = 10: PRINT : 
PRINT "THE KICK GOES INTO THE END ZONE": PRINT : PRINT "AND 
"TEAMS(AN) 3" WILL START": PRINT "FROM THEIR OWN 20 YARD LINE 
": GOSUB 530: GOSUB 570 

REM 

REM = ###PLAY ANALYSER### 

REM 

SPEED= ISPD: POKE 34,16: VTAB 24:KICK = 0: IF DOWN = 5 
THEN 3690 

GOSUB 460: VTAB 24 

ZN = 0 

IF AN = 2 THEN 1660 

IF DOWN < > 4 THEN 1660 

IF ITIME < 60 AND QTR = 4 AND L1 < L2 THEN 1660 

IF YARD(1) = OFF AND YARD(2) < = 40 THEN 3740 

GOTO 3380 

NPLY = NPLY + 1: IF FN B(QTR) = 0 AND ITIME < = 120A 
ND WARN = 0 THEN 1680 

GOTO 1690 

PRINT : PRINT ">>> TWO MINUTE WARNING <<<" 

IF FN BCQTR) = 0 AND ITIME < = 120 THEN WARN = 1 

NET = (SCR(1,1) + SCR(2,1) + SCR(3,1) + SCR(4,1)) = (SC 
R(1,2) + SCR(2,2) + SCR(3,2) + SCR(4,2)) 

IF FN B(QTR) = 0 AND ITIME < = 120 AND TIMSET = 0 AN 
D NET < = 0 AND AN = 1 AND HUDDL > O THEN 2000 

INCOMP = O:TIMSET = 0: POKE 34,16: IF ITIME < = 0 THEN 
4180 


IF AN = 2 THEN 1910 

REM 

REM = #####COMPUTER ON OFFENSE*## 
REM 


TYPE = FN A(100): IF TYPE < = 25 THEN THIS = FN A(3) 
IF TYPE > 25 THEN THIS = FN A(4) +3 

IF DOWN = 3 AND YSTGO < = 3 THEN THIS = FN A(4) +3 
IF DOWN = 3 AND YSTGO > 4 THEN THIS = FN A(2) +1 

IF THIS = 3 THEN THIS = FN A(2) +1 

IF YARD(1) = OFF AND YARD(2) < 15 AND THIS = 1 THEN TH 
IS = 2 

IF L1 < L2 AND ITIME < = 120 AND FN B(QTR) = 0 THEN 
THIS = 2 

IF QTR = 2 AND ITIME < 15 AND YARD(1) = OFF THEN 3740 
IF QTR = 4 AND L1 +3 = > L2 AND ITIME < 25 AND YARD( 
1) = OFF AND YARD(2) < = 40 THEN 3740 

IF FN B(QTR) = 0 AND ITIME < 120 AND YARD(1) = OFF AN 
D YARD(2) < 5 THEN THIS = 4 


PRINT s PRINT TEAM$(1);" CHOOSES ";PLAYS$(THIS): GOTO 2 
060 

REM 

REM **#PLAYER ON OFFENSE**# 

REM 


PRINT : INPUT "NEW PLAY: ";HPL$: IF HPL$ < > "PLAYS" 
THEN 1930 

TEXT : HOME : SPEED= 255: GOTO 4780 

FOR | = 1 TO 15: IF MIDS (HPL$,1,2) = MIDS (PLAYS(I) 
»1,2) THEN 1960 

NEXT 

PRINT : PRINT "ILLEGAL PLAY, TRY AGAINI": GOTO 1580 
THIS = I: IF THIS = 10 THEN 3740 

IF THIS = 8 OR THIS = 9 THEN 3390 

IF THIS < 11 THEN 2060 

IF THIS > 11 THEN 2040 

TIMESET = 1:TMOUT(AN) = TMOUT(AN) - 1: IF TMOUT(AN) > 
= 0 THEN 2030 

PRINT : IF AN = 2 THEN PRINT "NO MORE TIME-OUTS LEFT" 
GOTO 1580 

HUDDL = 0: PRINT : PRINT "TIME-OUT, ";TMOUT(AN) 3" LEFT 
IN THE HALF": GOTO 1580 

THIS = 12:TIMSET = 1 

TEXT : HOME : SPEED= 255: GOTO 4380 

ITIME = ITIME - HUDDL 

IF THIS > 3 THEN DFS = FN AC4) +3 

IF THIS < 4 THEN DFS = FN A(3) 

IF THIS < 4 THEN 2460 

SUB(AN) = 0 
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2110 


2120 
2130 
2140 
2150 


2160 
2170 
2180 


2190 
2200 
2210 


2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 


2300 
B10 
23520 
2330 


2340 


SuUCC = 1 + ( FN A(2) - 1): IF THIS = DFS THEN SUCC = ~ 
Z 


REM 

REM *#**RUN PLAY### 

REM 
RUSH(AN) = RUSH(AN) + 1:ITIME = (ITIME - 8) - FN A(10) 
:HUDDL = 20: GOSUB 800: IF FUMBL = 1 THEN 1580 

IF DOWN > 2 AND SUCC = 2 THEN SUCC = - 1 

GOSUB 930: GOSUB 640 

IF YARD(2) < 10 AND YARD(1) = OFF THEN SUCC = O:BNUS = 
0 

IF DOWN > = 3 THEN BNUS = 0 
KB = KZ(THIS - 3, FN A(3)) 
GAIN = FN A(KB) + SUCC + BNUS:YRUSH(AN) = YRUSH(AN) + 
GAIN: IF YARD(1) = AN THEN 2330 
YSTGO = YSTGO - GAIN: IF YARD(2) - GAIN > 50 THEN 2240 
YARD(2) = YARD(2) - GAIN: GOTO 2250 
YARD(1) = ANsYARD(2) = (50 - (YARD(2) - GAIN)) + 50 
DOWN = DOWN + 1: IF YARD(2) > O THEN 2270 
YRUSH(AN) = YRUSH(AN) + YARD(2): GOTO 4030 

WS = WIS: IF GAIN < 0 THEN WS = W2$ 

IF GAIN < 0 THEN GAIN = ABS (GAIN) 

PRINT : PRINT "THE PLAY "3W$;" ";GAIN;" YARDS": PRINT 
"TO THE ";TEAMS(YARD(1));" ";YARD(2) 

IF YSTGO < = 0 THEN 3660 

GOSUB 570 

GOTO 1580 
DOWN = DOWN + 1:YSTGO = YSTGO - GAIN: IF YARD(2) + GAIN 
< = 50 THEN 2370 

YARD(1) = OFF:YARD(2) = 50 = (GAIN + YARD(2) = 50): IF 
YARD(2) > 0 THEN 2360 
YRUSH(AN) = YRUSH(AN) + YARD(2): GOTO 4030 

GOTO 2380 

YARD(2) = YARD(2) + GAIN: IF YARD(2) < = 0 THEN 4030 
WS = WIS: IF GAIN < 0 THEN W$ = W2$ 

IF GAIN < 0 THEN GAIN = ABS (GAIN) 

PRINT : PRINT "THE PLAY "3WS;" ";GAIN;" YARDS": PRINT 
"TO THE ";TEAMS(YARD(1));" ";YARD(2): IF YSTGO < = 0 THEN 3 
660 

GOSUB 570 

GOTO 1580 

REM 

REM ***PASS PLAY### 

REM 

PASS = FN A(100) - SUB(AN):SUB(AN) = SUB(AN) + 1 

PZ = 0 

IF DOWN > 2 AND THIS = 1 THEN PZ = PZ + 2 

IF DOWN = 4 THEN PZ = PZ + 5 

PASS(AN) = PASS(AN) + 1: IF PASS > 5 THEN 2640 


GOSUB 930 

REM 

REM *##PASSER THROWN FOR A LOSS*##® 
REM 


ITIME = ITIME - 8 - FN A(9):HUDDL = 20:LOSS = -3 - 
FN A(8):RPASS(AN) = RPASS(AN) + LOSS:DOWN = DOWN + 1:YSTGO = 

YSTGO - LOSS 
VSAK(OFF) = VSAK(OFF) + 1 

IF YARD(1) = OFF THEN 2590 
YARD(2) = YARD(2) + LOSS: GOTO 2620 

IF YARD(2) - LOSS > 50 THEN 2610 
YARD(2) = YARD(2) - LOSS: GOTO 2620 
YARD(1) = AN:YARD(2) = 50 - (YARD(2) = LOSS - 50) 

IF YARD(2) < = 0 THEN 4140 
ALOS = ABS (LOSS): PRINT : PRINT TEAMS(AN);" PASSER IS 

THROWN FOR A ": PRINT ALOS;" YARD LOSS TO THE ";TEAM$(YARD( 
1));" ";YARD(2): GOSUB 640: GOSUB 570: GOTO 1580 

IF THIS = 1 THEN TSS = 18 + FN A(25) 

IF THIS = 2 THEN TSS = FN A(7) +3 

IF THIS = 3 THEN TSS = -3 

IF PASS > 9 + PZ THEN 3000 

REM 

REM #***|NTERCEPTED### 

REM 
ZN = 1 
ITIME = ITIME ~ 7 = FN A(10):NENT(OFF) = NENT(OFF) + 1 
sHUDDL = 20:SET = AN:AN = OFF:OFF = SET: GOSUB 640:RNBK = 5 
+ FN A(30) + BNUS:TXIS = THIS:THIS = 0 

IF YARD(1) = OFF THEN 2790 

IF TXIS = 3 AND YARD(2) > = 47 THEN 2780 
YARD(2) = YARD(2) - TSS: IF YARD(2) > 0 THEN 2820 

PRINT : PRINT TEAMS(OFF);" PASS INTERCEPTED BY": PRINT 

TEAM$(AN);" IN THE END ZONEI": PRINT "AND THEY WILL START F 
ROM THEIR OWN 20." 

YARD(1) = AN:YARD(2) = 20:DOWN = 1:YSTGO = 10: GOSUB 53 
0: GOSUB 570: GOTO 1580 
oe = 50 - (YARD(2) - TSS = 50):YARD(1) = OFF: GOTO 

IF YARD(2) + TSS > 50 THEN 2810 
YARD(2) = YARD(2) + TSS: GOTO 2820 
YARD(1) = AN:YARD(2) = 50 = (YARD(2) + TSS = 50) 

PRINT : PRINT TEAM$(OFF);" PASS INTERCEPTED BY"; PRINT 

TEAMS(AN);" AT THE ";TEAM$(YARD(1));" ";YARD(2) 

IF YARD(1) = AN THEN 2850 
YARD(2) = YARD(2) ~ RNBK: GOTO 2880 

IF YARD(2) + RNBK > 50 THEN 2870 
YARD(2) = YARD(2) + RNBK: GOTO 2880 
YARD(1) = OFFsYARD(2) = 50 - (YARD(2) + RNBK - 50) 

IF YARD(2) > 0 THEN PRINT "AND RUN BACK ";RNBK;" YARD 
S": PRINT "TO THE ";TEAMS$(YARD(1));" ";YARD(2) 

GOTO 2930 

GOSUB 800: IF YARD(2) > 0 AND FUMBL < > 1 THEN 2920 

GOSUB 530: GOSUB 570: GOTO 1580 

IF YARD(2) > 0 THEN GOSUB 930 

IF YARD(2) < = 0 AND YARD(1) = OFF THEN PRINT "AND R 
UN BACK FOR A" 

IF YARD(2) < = 0 AND YARD(1) = OFF THEN 4030 
FIRST(AN) = FIRST(AN) = 1: IF YARD(2) > 0 THEN 3660 
YARD(1) = AN:YARD(2) = 20: PRINT "AND THEY START AT THE 
IR 20": GOTO 3660 
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2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 


3130 
3140 
3150 
3160 
3170 
3180 
3190 


3200 


3210 
3220 
3230 
3240 


3250 
3260 
3270 
3280 
3290 
3300 


3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 


3400 
3410 
3420 


3430 


3440 
3450 
3460 
3470 


3480 
3490 


3500 


3510 
3520 


3530 
3540 


3550 
3560 
3570 


3580 
3590 


3600 
3610 


3620 
3630 
3640 
3650 
3660 
3670 
3680 


3690 


3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 


3860 
3870 


REM 

REM  ***DETERMINES IF PASS COMPLETE*** 

REM 

IF THIS > 1 THEN 3040 
COMPL = 67 + PZ 

IF DFS = 1 THEN COMPL = 79 + PZ 

GOTO 3080 

IF THIS > 2 THEN 3070 
COMPL = 37: IF DFS = 2 THEN COMPL = 59 

GOTO 3080 
COMPL = 27: IF DFS = 3 THEN COMPL = 54 

IF PASS > COMPL THEN 3160 

REM 

REM  ***|NCOMPLETE*## 

REM 
INCOME = 1:ITIME = ITIME ~ 3 - FN A(7):HUDDL = 0:DOWN 
= DOWN + 1: PRINT : PRINT TEAMS(AN);" PASS INCOMPLETE": GOSU 
B 570: GOTO 1580 

REM 

REM  ***COMPLETE### 

REM 

IF THIS = 1 THEN GAIN = TSS + FN A(20) 

IF THIS = 2 THEN GAIN = TSS + FN A(8) 

IF THIS = 3 THEN GAIN = TSS + FN A(15) 

GOSUB 640:XBN = BNUS * 2 - 10: IF XBN > 0 THEN GAIN = 
GAIN + XBN 
COMP(AN) = COMP(AN) + 1: /TIME = (ITIME - 7) - FN A(10) 
tHUDDL = 20:RPASS(AN) = RPASS(AN) + GAIN 

IF YARD(1) = OFF THEN 3260 

IF YARD(2) + GAIN > 50 THEN 3240 
YARD(2) = YARD(2) + GAIN: GOTO 3280 
YARD(1) = OFF:YARD(2) = 50 — (YARD(2) + GAIN ~ 50): IF 
YARD(2) > 0 THEN 3280 

PRINT : PRINT TEAM$(AN);" PASS COMPLETEII": GOTO 4030 
YARD(2) = YARD(2) - GAIN: IF YARD(2) > 0 THEN 3280 

GOTO 3250 
WS = Wi$: IF GAIN < 0 THEN WS = W2$ 

IF GAIN < 0 THEN GAIN = ABS (GAIN) 

PRINT : PRINT TEAMS(AN);" PASS COMPLETEII"™: PRINT "PLA 
Y "3W$3" ";GAIN;™ YARDS": PRINT "TO THE ";TEAMS(YARD(1));" " 
YARD(2) 

IF YARD(2) < = 0 THEN 4030 

IF WS = W2$ THEN GAIN = — GAIN 
YSTGO = YSTGO - GAIN: IF YSTGO < =O THEN 3660 
DOWN = DOWN + 1: GOSUB 640: GOSUB 570: GOTO 1580 


REM *##PUNT OR QUICK KICK### 


THIS = 8 

GOSUB 930:LNGTH = FN A(25) + 28 + SAFETY: IF DOWN = 4 
AND THIS = 9 THEN THIS = 8 

IF SAFETY > 0 THEN 3420 
PUNT(AN) = PUNT(AN) + 1:YPUNT(AN) = YPUNT(AN) + LNGTH 
SAFETY = O: IF THIS = 9 THEN LNGTH = LNGTH + 2 + FN AC 
4) 
HUDDL = 0: IF LNGTH + YARD(2) > 50 AND YARD(1) = AN THE 
N 3490 

IF YARD(1) = AN THEN 3480 
YARD(2) = YARD(2) - LNGTH: IF YARD(2) < = 0 THEN 3470 
GOTO 3500 

SET = AN:AN = OFF:OFF = SET:ITIME = ITIME - FN A(5): G 
OTO 1540 
YARD(2) = YARD(2) + LNGTH: GOTO 3500 
YARD(1) = OFF:YARD(2) = 50 - (YARD(2) + LNGTH - 50): IF 
YARD(2) < = 0 THEN 3470 

PRINT :SET = AN:AN = OFF:OFF = SET: IF THIS = 9 THEN 
PRINT TEAMS(OFF);" QUICK KICKS ";LNGTH;" YARDS": PRINT "TO T 
HE ";TEAMS$(YARD(1));" ";YARD(2) 

PRINT : IF THIS = 8 THEN PRINT TEAMS(OFF)3" PUNTS "3L 
NGTH;" YARDS": PRINT "TO THE ";TEAM$(YARD(1));" ";YARD(2) 
GOSUB 640:RTURN = FN A(12) + BNUS: IF THIS = 9 THEN R 
TURN = RTURN = 2 - FN A(3) 

IF RTURN < 0 THEN RTURN = 0 

ITIME = (ITIME = 7) = FN A(10): IF RTURN + YARD(2) > 5 
0 AND YARD(1) = AN THEN 3610 

IF YARD(1) = AN THEN YARD(2) = YARD(2) + RTURN 

IF YARD(1) = OFF THEN YARD(2) = YARD(2) - RTURN 

PRINT : IF YARD(2) < = 0 THEN PRINT TEAMS(AN);" RETU 
RNS IT FORA " 

PRINT : IF YARD(2) < = 0 THEN 4030 

PRINT : PRINT TEAM$(AN);" RETURNS IT ";RTURN;" YARDS": 
PRINT "TO THE ";TEAMS$(YARD(1));" "s;YARD(2) 

GOSUB 640:FIRST(AN) = FIRST(AN) = 1: GOTO 3660 
YARD(1) = OFF:YARD(2) = 50 = (YARD(2) + RTURN = 50): IF 
YARD(2) < = 0 THEN 3570 


GOTO 3590 

REM 

REM = *##FIRST DOWN### 
REM 


DOWN = 1:FIRST(AN) = FIRST(AN) + 1:YSTGO = 10 

IF YARD(1) = OFF AND YARD(2) < 10 THEN YSTGO = YARD(2) 
PRINT : PRINT "FIRST DOWN ON THE ";TEAMS(YARD(1));" "; 
YARD(2): GOSUB 530: GOSUB 570: GOSUB 580: GOTO 1580 
PRINT : PRINT "BALL TURNS OVER TO ";TEAMS(OFF): PRINT 
"ON DOWNS AT THE ";TEAM$(YARD(1));" ";YARD(2) 
See = O:SET = AN:AN = OFF:OFF = SET: GOTO 3660 

REM = ***F ELD GOAL ATTEMPT### 

REM 
FLD(AN) = FLD(AN) + 1 

IF YARD(2) > 0 THEN PROB = 90 


IF YARD(2) > 20 THEN PROB = 80 
IF YARD(2) > 30 THEN PROB = 45 
IF YARD(2) > 40 THEN PROB = 25 
IF YARD(1) = AN AND YARD(2) > 40 THEN PROB = 10 


IF YARD(1) = AN AND YARD(2) < 40 THEN PROB = 2 

IF FN A(100) < PROB THEN 3920 

PRINT : PRINT "FIELD GOAL ATTEMPT FAILS," 
SET = AN:AN = OFF:OFF = SET: IF YARD(1) = OFF THEN 3880 
IF YARD(2) < 20 THEN 3860 

PRINT : PRINT TEAM$(AN);" START FROM THE ";TEAMS(YARD( 
1))3" "sYARD(2):YARD(1) = AN:DOWN = 1:YSTGO = 10:HUDDL = 0: 
FOR | = 1 TO 500: NEXT : GOSUB 530: GOSUB 570: GOTO 1580 
PRINT : PRINT TEAM$(AN);" START FROM THEIR OWN 20" 
YARD(1) = AN:YARD(2) = 20:DOWN = 1:YSTGO = 10:HUDDL = 0 
+ GOSUB 530: GOSUB 570: GOTO 1580 


3880 


3890 
3900 
3910 


3920 


3930 
3940 


3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 


4030 
4040 
4050 


4060 
4070 


4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 


4160 
4170 


4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 


4320 


4330 


4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 


4540 
4550 


4560 
4570 
4580 


4590 
4600 


4610 
4620 


LNGTH = 39 + FN A(10):HUDDL = 0: PRINT : PRINT "THE KI 
CK IS SHORTI" 

IF LNGTH + YARD(2) > 50 THEN 3910 
YARD(2) = YARD(2) + LNGTH: GOTO 3520 
YARD(1) = AN:YARD(2) = 50 - (YARD(2) + LNGTH - 50): GOT 
0 3520 

SPEED= 255:MADE(AN) = MADE(AN) + 1: FLASH : PRINT : PR 
INT "##* FIELD GOAL *** FOR ";TEAMS(AN): NORMAL : SPEED= ISP 
D 
SCR(QTR, AN) = SCR(QTR,AN) + 3 
L1 = O:L2 = 0: FOR | = 1 TO QTR:L1 = L1 + SCR(1,1)3L2 = 
L2 + SCR(1,2): NEXT : GOSUB 560 
SET = AN:AN = OFF:OFF = SET 

IF OVT = 1 THEN 4180 

IF_ITIME <0 AND FN B(QTR) = 0 THEN 4180 

GOTO 1410 

REM 

REM = ** *TOUCHDOWN##* 

REM 

PRINT TEAMS(AN);" RECEIVES THE KICK": PRINT "ON THEIR 
";YDL;" YARD LINE": PRINT "AND RUNS IT BACK FOR AM 


SPEED= 255: FLASH : PRINT : PRINT "x##i#HHH TOUCHDOWN * 
wen FOR "STEAM$(AN): NORMAL : SPEED= ISPD 

IF THIS > = 1 AND THIS < 4 THEN RPASS(AN) = RPASS(AN) 
+ YARD(2) 

IF THIS > = 4 AND THIS < 7 THEN YRUSH(AN) = YRUSH( AN) 

+ YARD(2) 

IF THIS > 0 THEN FIRST(AN) = FIRST(AN) + 1 

SCR(QTR, AN) = SCR(QTR,AN) + 6:HUDDL = O: IF FN A(100) 

< 3 THEN 4090 

SCR(QTR, AN) = SCR(QTR,AN) + 1: PRINT : PRINT "POINT AFT 
ER GOODI": GOTO 4100 

PRINT : PRINT "POINT AFTER FAILED" 

GOTO 3940 

REM 

REM RRR SAFETY HHH 

REM 

SCR(QTR, OFF) = SCR(QTR,OFF) + 2: PRINT : PRINT TEAMS (AN 
)3" 1S CAUGHT FOR A SAFETYI" 

SAFETY = 20:L1 = 0:L2 = 0: FOR | = 1 TO QTR:L1 = L1 + S$ 
CR(1,1):L2 = L2 + SCR(1,2): NEXT 

GOSUB 560: IF OVT = 1 THEN 4180 

ITIME = (ITIME = 7) = FN A(5):YARD(1) = AN:YARD(2) = 2 
0: GOTO 3380 
QTR = QTR + 1:0QTR = QTR - 1:THIS = 99:ITIME = 60 * 15 

IF QTR = 5 THEN 4300 

IF QTR = 3 THEN 4220 

TEXT : HOME : VTAB 12: GOSUB 1300: PRINT " END OF QUA 
RTER ";0QTR;" "3: GOSUB 1300: FOR | = 1 TO 1000: NEXT : GOS 
UB 250: GOTO 1580 

TEXT : HOME : GOSUB 1300: PRINT "END OF THE FIRST HALF 
"3: GOSUB 1300: PRINT :TMOUT(1) = 3:TMOUT(2) = 3:WARN = 0 
IF BEGIN = 2 THEN 4250 

AN = 2:0FF = 1: GOTO 4260 

AN = 1:0FF = 2 

Li = SCR(1,1) + SCR(2,1):L2 = SCR(1,2) + SCR(2,2) 

PRINT : PRINT "SCORE AT HALF TIME": PRINT TEAM$(1); TA 
BC 13)3SCR(1,1); TAB 17);SOR(2,1); TAB 21)3"="5 TAB( 25)5L 
1 

PRINT TEAM$(2); TAB( 13);SCR(1,2); TAB( 17);SCR(2,2); 
TAB( 21)3"="5; TAB( 25)5L2 

PRINT : PRINT "STATISTICS AT HALFTIME": GOTO 4380 

TEXT : HOME : HTAB 5: GOSUB 1300: PRINT " BANGI! tad i 
GOSUB 1300: PRINT : PRINT TAB( 6);"THAT'S THE END OF THE G 
AME I" 

L1 = SCR(1,1) + SCR(2,1) + SCR(3,1) + SCR(4,1):L2 = SCR 
(1,2) + SCR(2,2) + SCR(3,2) + SCR(4,2) 

PRINT : PRINT "FINAL SCORE AT THE FOOTBALL BOWL": PRIN 
T TEAMS$(1); TAB 13);SCR(1,1)3 TAB( 17);SCR(2,1)3 TAB( 21);S 
CR(3,1)3 TAB( 25);SCR(4,1); TAB( 29);"—"; TAB( 33)3L1 
PRINT TEAM$(2); TAB( 13);SCR(1,2); TAB( 17);SCR(2,2); 
TAB( 21);SCR(3,2)3 TAB( 25);SCR(4,2); TAB( 29);"="; TAB( 33) 
3L2 


REM 

REM #EESTATISTICS#E® 

REM 

PRINT : PRINT "FINAL STATISTICS" 


ZPLAY(1) = RUSH(1) + PASS(1) + LOSS(1)sZPLAY(2) = RUSH( 

2) + PASS(2) + LOSS(2) 

Ti = YRUSH(1) + RPASS(1):T2 = YRUSH(2) + RPASS(2):X1R = 
O0:X2R = OsP1X = 0:P2X = 0 
IF RUSH(1) > O THEN X1R = YRUSH(1) / RUSH(1) 

IF RUSH(2) > 0 THEN X2R = YRUSH(2) / RUSH(2) 
IF PASS(1) > 0 THEN P1X = RPASS(1) / PASS(1) 
IF PASS(2) > 0 THEN P2X = RPASS(2) / PASS(2) 

XPUNT(1) = OsXPUNT(2) = O: IF PUNT(1) > 0 THEN XPUNT(1) 
= YPUNT(1) / PUNT(1) 

IF PUNT(2) > 0 THEN XPUNT(2) = YPUNT(2) / PUNT(2) 
PRINT TABC 17);TEAMS(1); TAB( 28);TEAM$(2) 
PRINT "NO PLAYS"; TAB( 18);ZPLAY(1); TAB( 29) ;ZPLAY(2) 

PRINT "FIRST DOWNS"; TAB( 18);FIRST(1); TAB( 29);FIRST 

(2) 

PRINT "YARDS RUSH"; TAB( 18);YRUSH(1); TAB( 29) ;YRUSH( 


2) 

PRINT "AVER RUSH"; TAB( 18) FN Z(X1R)5 TAB( 29); FN Z( 
X2R) 

PRINT "COMP/ATT"; TAB( 18);COMP(1);"/";PASS(1); TAB( 2 
9) ;COMP(2);"/";PASS(2) 

PRINT "YARDS PASS"; TAB( 18);RPASS(1)3; TAB( 29) ;RPASS( 


2) 

PRINT "AVER PASS"; TAB( 18) FN Z(P1X); TAB( 29); FN Z( 
P2X) 

PRINT "Q.B. SACKS"; TAB( 18);VSAK(1); TAB( 29);VSAK(2) 
PRINT "NO OF PUNTS"; TAB( 18);PUNT(1); TAB( 29) ;PUNT(2 
) 

PRINT "AVER YARDS/PUNT"; TAB( 18); FN Z(XPUNT(1))3 TAB 
(29); FN Z(XPUNT(2)) 

PRINT "INTERCEPTIONS"; TAB( 18);NENT(1); TAB( 29);NENT 
(2) : 

PRINT "FUMBL/RECOV"; TAB( 18);FUM(1);"/";RECO(1); TAB( 
29) ;FUM( 2) ; "/";RECO(2) 

PRINT "TOTAL YARDS"; TAB( 18);T1; TAB( 29);72 

PRINT "FIELD GOALS"; TAB( 18);MADE(1);"=";FLD(1); TAB( 
29) MADE(2) 3 "="; FLD(2) 

PRINT "PENALTIES"; TAB( 18);NPEN(1);"=";PPEN(1); TAB( 
29) ;NPEN( 2) 3"=";PPEN( 2) 

IF THIS < > 12 THEN 4650 


4630 


4640 
4650 
4660 


4670 
4680 


4690 


4700 
4710 
4720 
4730 
4740 
4750 


4760 
4770 
4780 


4790 


4800 
4810 
4820 
4830 
4840 


4850 
4860 


4870 


4880 


4890 
4900 


4910 


4920 
4930 
4940 


4950 
4960 


4970 


4980 
4990 


5000 


5010 
5020 
5030 


5040 
5050 
5060 


5070 
5080 
5090 


5100 
5110 
5120 
5130 
5140 
5150 
5160 


PRINT : PRINT : SPEED= ISPD: PRINT "HIT ANY KEY TO CON 
TINUE "3: GET A$ s 

GOSUB 250: GOTO 1580 

IF OQTR < > 2 THEN 4670 

PRINT : PRINT : PRINT "HIT ANY KEY TO CONTINUE "32 GET: 
A$: GOTO 1400 

IF Li < > L2 THEN 4740 

FOR | = 1 TO 2800: NEXT : HOME : VTAB 5: HTAB 4: PRINT 
meee OVERTIME * * ® *"; VTAB OQ: HTAB 5: PRINT 
"THE SCORE !S TIED AND THE GAME" 

PRINT : PRINT "MOVES TO A FIFTEEN MINUTE SUDDEN DEATH" 

: PRINT : PRINT "OVERTIME PERIOD. YOU HAVE TWO TIMEOUTS. ": 
PRINT : PRINT " G00D LUCK 

FOR | = 1 TO 3000: NEXT 

ITIME = 900:0QTR = OQTR - 1:0VT = 1:07R = QTR - 1 
WARN = OsTMOUT(1) = 2:TMOUT(2) = 2:TIMSET = 0 

GOTO 4770 

POKE 9,Z1: CLEAR :ALPHA = 1:Z1 = PEEK (9) 

PRINT : INPUT "DO YOU WANT TO PLAY AGAIN? ";ANS$: IF 
MIDS (ANS$,1,1) = "Y" THEN 110 

SPEED= 255: END 


TEXT : HOME 
i iMibbbbhbbiLeeLELELELLLLLLOLLLOCLE CULT TTT 
FOOTBALL 3.0 hale BY 
bell PRESTON R BLACK MD held 
AND “mn; 
PRINT "# RICHARD | MORRIS JR lea 


** COPYRIGHT 1982 BY MICRO- 
SPARC, NC, #636063636¢00060100000 00H HUHHIHH HEE EIT 

IF HPL$ = "PLAYS" THEN 4930 
POKE 34,10 

IF ALPHA = 1 THEN 5090 

IF OVT = 1 THEN 5100 
POKE 34,10: INPUT "DO YOU WANT INSTRUCTIONS? ";ANS$: | 
F MIDS (ANS$,1,1) = "Y" THEN 4860 
GOTO 5030 

PRINT "FOOTBALL 3.0 1S AN INTERACTIVE STRATEGY GAME WH 
ICH ALLOWS YOU TO PIT YOUR SKILL AS THE COACH OF A FOOTBALL 
TEAM AGAINST THE APPLE |! COMPUTER. YOU CALL EACH PLAY AS 

YOU MARCH YOUR TEAM UP AND DOWN" 

PRINT "THE FIELD. YOU HAVE YOUR CHOICE OF THREE P 
ASSING PLAYS AND FIVE RUNNING PLAYS. YOU ALSO HAVE A COM 
PLETE KICK- ING GAME WHICH INCLUDES PUNTS, QUICK KICKS A 
ND FIELD GOAL ATTEMPTS. BUT" 

PRINT "BEWARE! IF YOU TRY A FIELD GOAL FROM OUTSIDE 
THE TWENTY YARD LINE, THE BALL WILL BE PLACED THERE IF YOU 
MISS. THERE ARE GAME BREAKING LONG RUNS AND LONG";: GET A$ 
HOME 
PRINT "BOMBS, THERE ARE FUMBLES, INTERCEPTIONS, QUARTER 
BACK SACKS, AND SAFETIES. THERE ARE DRIVE STOPPING PENALTIE 
S. YOU CAN RUN YOUR TWO MINUTE DRILL BY USING YOUR TIME-OU 
TS WISELY. WHEN THE APPLE |S ON" 

PRINT "OFFENSE IT WILL CHOOSE PLAYS AUTOMATICALLY. WH 
EN YOU ARE ON OFFENSE YOU WILL BEPROMPTED BY 'NEW PLAY! AND 
YOU CAN PICK ONE OF FIFTEEN OPTIONS.": PRINT : PRINT "THE CU 
RRENT PLAYS ARE:";: GET A$ 
PRINT 
POKE 34,9: PRINT : SPEED= 255 
PRINT TAB( 5);"LPASS"; TAB( 11);"- LONG PASSING PLAY" 

: PRINT TAB( 5);"SPASS"; TAB( 11);"- SHORT PASSING PLAY" 
PRINT TAB( 5);"SCRN"; TAB( 11);"=- SCREEN PASS" 

PRINT TAB( 5);"MRUN"; TAB( 11)"= RUN UP THE MIDDLE": 

PRINT TAB( 5);"OTRUN"; TAB( 11);"= OFF TACKLE RUN" 

PRINT TAB( 5);"DRAW"; TAB( 11);"- DRAW PLAY": PRINT 
TAB( 5);"SWEEP"; TAB( 11);"= A SWEEP” 

PRINT TAB( 5);"PUNT"; TAB( 11)3"= A PUNT" 

PRINT TAB( 5);"QKKIK™; TABC 11)3"= A QUICK KICK": PRI 
NT TAB( 5);"FLDGL"; TAB( 11);"= A FIELD GOAL ATTEMPT" 
PRINT TABC 5)s;"STAT"; TAB( 11)3"= LIST OF CURRENT STA 
TISTICS": PRINT TAB(C 5);"TMOUT"; TAB( 11);"=- TAKES A TIME-0 
UT": PRINT TAB( 5);"PLAYS"; TAB( 11)3;"= LIST CURRENT PLAYS" 
3 TAB( 40)3: GET A$ 

HOME : POKE 34,10: IF HPL$ > < "PLAYS" THEN 5030 

GOSUB 250: GOTO 1580 

HOME : PRINT "IN ORDER TO INITIALIZE THE RANDOM"; PRIN 
T "NUMBER GENERATOR, PLEASE ENTER A ": INPUT "A NUMBER BETWE 
EN 1 AND 100: ";NN 

IF NN < 1 OR NN > 100 THEN 5030 

FOR | = 0 TO NN:X = RND (1): NEXT 

PRINT : PRINT "PLEASE ENTER A DISPLAY SPEED": PRINT "F 
ROM 1 (VERY SLOW TYPING)": INPUT "TO 5 (VERY FAST TYPING): " 
321 

IF Z1 > = 1 AND Z1 < = 5 THEN 5090 

VTAB 14: GOTO 5060 

PRINT : INPUT "WHAT IS THE NAME OF YOUR TEAM? "; TEAMS$( 

2): PRINT : INPUT "WHAT TEAM IS THE APPLE 11? ";TEAM$(1) 

HOME : PRINT "IT 1S NOW TIME FLIP THE COIN": PRINT "AS 

THE CAPTAIN OF ";TEAM$(2);" YOU": PRINT "GET TO CALL IT "5: 

INPUT "HEADS OR TAILS: ™;ACHOICS 
FLIP = FN A(2): IF FLIP = 1 THEN CHOICES = "H" 

IF FLIP = 2 THEN CHOICES = "T" 

IF LEFT$ (ACHOIC$,1) = CHOICES THEN 5150 
AN = 1:0FF = 2:BEGIN = AN: PRINT : PRINT "SORRY ";TEAM$ 
(2)3" BUT ";TEAM$(1): PRINT "WINS THE TOSS AND WILL RECEIVE! 
"; GOTO 5160 
AN = 2:0FF = 1:BEGIN = AN: PRINT TEAM$(2);" WINS THE TO 
SS"; PRINT "AND WILL RECEIVE!" 

FOR | = 1 TO 1000: NEXT :!ISPD = 50 * Z1 + 5: SPEED= IS 
PD: GOTO 1340 


e 
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Lower Case Letters (With 
Hi-Res Graphics) 


by James Totten 

Software Plus 

1347 Monmouth Dr. Burlington, Ontario 
Canada, L7P 3J7 


There are various ways to obtain lower case 
letters on the Apple II and Apple II Plus com- 
puters. However, almost all of these require 
buying new RAM or ROM boards, or expen- 
sive software. But remember, | said almost all. 

This idea came to me while writing a game 
in Hi-Res graphics. | needed letters and 
numbers on the top of the screen, and so | 
tried to figure out how to combine text and 
Hi-Res. But | suddenly realized: Why bother 
with trying to make a graphics/text combina- 
tion? Why not just do with the letters what | 
had done with the aliens? So, | sat down and 
‘wrote’ a master 85-character shape table. 


THE MASTER SHAPE TABLE 

This shape table contains literally every 
character present on the Apple's keyboard. 
Lower case letters are defined as standard, 
and upper case letters are tagged on the end 
of the table. This is because you'll probably 
use lower case more often than you will use 
upper case. Each character is in its proper 
ASCII position (the ASCII character 43 is 
shape number 43), and that makes using the 
table very easy. 

ENTERING THE SHAPES 

First, type CALL-151 to enter the Monitor. 
Then you can begin to enter the shape tables 
directly into memory by typing 4000: 58 00 B2 
00 C5 00 etc. from the memory listing. (See 
the Letters section for more information on 
entering machine code into memory.) 

After you’ve typed in the character set 
(whew), you can save it with BSAVE CHAR- 
ACTERS, A$4000,L1930. Notice that the table 
is stored in Hi-Res page two. This can be 
changed if you wish; however you will have to 
alter the values in the two POKEs before 
using relocated shapes (see the demo pro- 
gram). You have to set LOMEM just past the 
Hi-Res page two if the shapes are to be used 
with a program. 

Next, there is a small demo program using 
the shapes and full screen graphics in Hi-Res 
page one. When you finish analyzing the pro- 
gram, try some things on your own. You'll 
love the new letters! 

THE DEMO 

The demonstration program shows how 
the character shapes are used. This program 
can be modified to fit your needs, or even 
used as a screen printing subroutine in a 
major program. Again, if this is done, then 
LOMEM will have to be set just beyond Hi- 
Res page two. Here is a variable list: 


K$ — Key pressed 

D$ — DOS operator 

X,Y —_ screen locations 

UC — _ upper case indicator 

UL — _ upper lock indicator 

C$ — _ character typed from keyboard 

CC — _ character code (ASCII — DRAW 
value) 

L — _ loop counter 


166 NIBBLE EXPRESS/VOL. 1I|/1983 


PROGRAM DESCRIPTION 
Loads the character table into 
memory (if needed), and com- 
pletes the necessary POKEs and 
variable settings. 


Plots cursor and gets a charac- 
ter (C$). 

Checks to see if C$ is an upper 
case set or an upper case lock. If 
set, then UC = 1 for the next 
character. 


Checks to see if C$ is a cursor 
move. 


Resets CC to the proper value of 
the shape. 


If the character is a letter and 
there is no lower case restriction 
(UC or UL), then moves Y down 
by 1 line so that the letter will line 
up with the other characters. 
After drawing the character, Y is 
reset to its proper value. 


80-130 


140 


160-180 


190-200 
210-220 


230 


Clears area and draws the 
character. 


Checks to make sure that the 
cursor is not going above or 
below its maximum or minimum 
allowable value. 


240-260 


270-310 


HOW TO USE THE DEMO PROGRAM 

To use demo program, you must first have 
the character shapes in memory. However, 
this is taken care of by the demo program 
itself. 

After the loading is finished, you'll be pre- 
sented with a blank Hi-Res screen, and a 
small white line at the upper left corner. This 
is your cursor. It can be controlled with either 
arrow key (they work as they should; they will 
not erase any character), or by pressing any 
character on the keyboard. If the cursor 
should move past the right edge of the screen, 
it will reappear on the next line (on the left). 
The RETURN key works normally as well. A 
note of caution isin order, however. When the 
cursor reaches the bottom of the screen, it 
will automatically return to the top of the 
screen. Therefore, if you continue typing past 
the lower right corner of the screen, you'll 
begin over-printing the first line at the top of 
the screen. 

When you wish to use an upper case letter, 
press the ESC key once. You'll hear a beep 
when you press the key, and then the next 
letter you type will be upper case. This will 
hold for only one letter. If you wish to doa 
string of upper case letters, CTRL-N will acti- 
vate the upper case lock. Every letter after 
CTRL N will appear in upper case. To de- 
activate the upper case lock, type CTRL-L. 
Again, you'll hear a small beep and you'll 
return to lower case printing. You'll find that 
Lower Case Letters are useful for games and 
many other applications. Let us know the 
uses that you discover! 


44999.478B 


4G69- 
4928- 
4919- 
4918- 
4620- 
4928- 
4639- 
4938- 
4649- 
4948- 
4959- 
4958- 
4969- 
4968- 
4979- 
4978- 
4989- 
4988- 
4099- 
4998- 
4GAD- 
46A8- 
4@B9- 
46B8- 
4ACB- 
49C8- 
46D9- 
49D8- 
4GED— 
4GE8- 
4OF B— 
49F8- 
418G- 
4198- 
411G- 
4118- 
4128- 
4128- 
4138- 
4138- 
414G- 
4148- 
4159- 
4158- 
4169- 
4148- 
4178- 
4178- 
4189- 
4188- 
4199- 
4198- 
41AG- 
41A8- 
41B9- 
41B8- 
41C8- 
41C8- 
41D8- 
41D8- 
41E9- 
41£8- 
41F9- 
41F8- 
4209- 
4208- 
4219- 
4218- 
4220- 
4228- 
4239- 
4238- 
4249- 
4248- 
4259- 
4258- 
4268- 
4268- 


58 
EC 
3c 
BA 
D& 
26 
79 
co 
19 
69 
Ba 
Bb 
54 
AS 
Fi 
41 
99 
ES 
3a 
7F 
De 
21 
74 
49 
1B 
iB 
4D 
69 
1A 
4A 
3B 
2D 
B2 
4D 
3F 
iF 
4D 
ao 
1A 
73 
iF 
11 
4D 
1B 
2 
a9 
iF 
iF 
GE 
@2 
4D 
iF 
1B 
6D 
49 
3F 
49 
4A 
1B 
1A 
BA 
BS 
15 
iB 
1A 
4A 
B2 
a9 
1B 
15 
iF 
@D 
GA 
2D 
2D 
1A 
73 
iF 


BG 
ae 
G1 
a1 
a1 
@2 
@2 
G2 
@3 
a3 
@3 
G4 
B4 
D4 
@4 
a5 
a5 
25 
6 
Bb 
BS 
@7 
a7 
1A 
4A 
iF 
1A 
@D 
1B 
49 
2A 
2D 
aD 
1A 
re» 
3B 
i1 
469 
1B 
46D 
GA 
1B 
1A 
6E 
ao 
15 
53 
1F 
2D 
ao 
1A 
4A 
iB 
1A 
a9 
3F 
G2 
49 
3F 
1F 
4D 
29 
3B 
GE 
iB 
4D 
1) 
15 
33 
3B 
4A 
@2 
@D 
1A 
2D 
iF 
2D 
1B 


REM SESeKeeseeeeseasaesess 
REM & HI-RES CHAR. DEMO & 


REM 8 BY JAMES TOTTEN s 
REM & COPYRIGHT (C) 1982 8 
REM & BY MICRO-SPARC INC 8 
REM & LINCOLN, MA. 91773 & 
REM SETTLERS TES ESTES 


4279- 99 15 
4278- 998 2D 
4289- BOD 1A 
4288-15-57 
4299- 1F 1B 
4298- 4D 29 
42AB- G2 BB 
42A8- 69 15 
42B9-— 1B 73 
42B8- 1A 1B 
42CG- S53 6D 
42C8- 98 49 
42D9- 11 1B 
42D8- 17 46D 
42E9- 3B 1F 
42E8- 46D 11 
42FB- 9B 49 
42F8- OD 1A 
4399- 1B 1B 
4398- 1A 1B 
4319- 4A 6D 
4318- 99 29 
4329- 15 1B 
4328- 53 4D 
43398- 1B 6E 
4338- 9D 15 
434G- 99 49° 
4348- 15 3B 
4359- 3F 4A 
4358- 3B 1F 
4369- 6D 29 
4368- 98 49 
437@- 15 1B 
4378- 3F 4A 
4389- 1F SF 
4388- 4D 2D 
43998-— 98 49 
4398- 15 3B 
43AG-— SF 4A 
43A8- 1F 3B 
43B@-— 4D 11 
43B8- 49 99 
43CG-— 3B 1F 
43C8- 2D @D 
43D8- 1B 6E 
43D8- 15 3B 
43ES-— 4D iA 
43E8- 3B 53 
43FG-— 11 9D 
43F8- 29 15 
4499- 1B 73 
4498- 1A 3B 
4419- 6E 4D 
4418- 99 29 
4429- 1A 1B 
4428- 4A 49 
4439- 3B 6A 
4438- 9D 15 

19 

28 

36 

40 

36 

68 

7@ 

66 DS = 


199 
118 


128 
138 
146 


158 


PRINT 
s PRINT 


NORMAL 


CHRS (13) + CHRS (4) 
96 TEXT : HOME : PRINT : PRINT 


4449- 49 
4448- 3B 
4459- 4— 
4458- 3F 
446G- 29 
4468- 49 
4479- 3B 
4478- 6E 
4489- 3F 
4488- 15 
4499- 29 
4498- 1B 
44AG- 49 
44A8- 4A 
44B9- 1B 
44BB8- 1A 
44C9- 57 
44CB8- 90 
44D9- 15 
44D8- 3F 
44E9- 1F 
44E8- 9D 
44F9- oo 
44F8- 15 
4599- 1F 
45¢8- 1F 
4519- 9A 
4518- 92 
4529- 99 
4528- 1B 
4539- 1A 
4538- 9A 
4549- Bo 
4548- 1A 
4559- 9A 
4558- 3B 
4569- 11 
4568- 4D 
457@- 1B 
4578- 4D 
4589- 3B 
4588- 15 
4599- 99 
4598- 1B 
45AG-— 6D 
45A8- BA 
45B9- 3B 
45B8- 2D 
45C9- 1B 
45C8- 2D 
45D9- 1B 
45D8- 49 
45EG- 29 
45E8- 3F 
45F9- 2D 
45F8- 1B 
4699- 29 
4608- 29 


“HIGH-WRITER": PRINT = 


“BY JAMES TOTTEN": PRINT : PRINT : INVERSE 


“NOW LOADING SHAPE TABLE FROM DISK."s PRINT 


PRINT DS"“BLOAD CHARACTERS”: POKE 232,08: POKE 235, 


64 


X = 2:¥Y = 5: SCALE= 1: ROT= 9 


HGR : HCOLOR= 3: POKE 
HCOLOR= 3: HPLOT X,Y + 8 TO X + 5,Y + Gs HOME : GET 


cs 
IF C$ = 
149 


CHRS 


(14) THEN CALL 


— 198: UL 


= 16392,8:UC = @: 


= 1: GOTO 


IF cs 
1498 
IF Ce 
149 
IF Cc 
TO xX 
146 
IF CS 


= 
+ 


46196- 1B 1F 4A 4D 1A 1B 1F BA 
4618- 2D @D 92 96 69 2D 15 1B 
4626- 1F 353 99 @D 1A 3B 1B 4A 
4628- 69 1A 3B 1B @E 46D 11 99 
4639- 4D 29 1A 3B 1B 6E 4D 1A 
4638- 1B 3B 6E 4D 1A 3B 1B 6E 
4649- 99 15 6G SD 69 1A 1B 3B 
4648- @A 4D 11 1B 1B 57 4D 11 
4659- 3B 1B 17 2D 2D 15 @@ 4D 
4658- 29 1A 3F 3B 6E 9D 15 3B 
4669- 1B 33 4D 29 1A 1F 1B 6E 
4668- 69 15 68 4D 29 1A 1F 1B 
4679- 2E 4D 15 3B 3B 33 4D 2D 
4678- 1A 1F 1B 6E 99 15 99 29 
4689- 6D 1A 1F 1B 6E 69 15 3B 
4688- 1B 33 4D 29 1A 1F 1B GE 
4696- 2D BD 62 BG 2D SD 1A 1F 
4698- 3B 9A 4D 15 1B 3F S57 4D 
46A9- 11 1B 1B 17 6D 89 G2 BD 
46A8- 29 6D 1A 1F 1B 6E 99 15 
46B9-— 3B 1B 33 OD OD 15 1B 1F 
46B8- 73 6D 15 88 2D 6D 1A 1F 
46CG- 3B GA 4D 15 1B 3F 57 OD 
46C8- OD 1A 1F 3B 2A 4D 15 8d 
46D9-— 29 6D 1A 1F 1B 6E 49 1A 
46D8- 3B 3F 4A #9 15 3B 1B 73 
46ES-— 2D BD 92 BG 2D 2D 15 3B 
46E8- 3B 73 69 11 1B 3B 53 69 
46F9O- 11 1B 3B 53 2D BD G2 BD 
46F8- 4D 29 1A 1F 1B 6E 99 15 
4769- 3B 1B 33 4D 29 1A 1F 1B 
4788- GE 2D BD 82 68 4D 29 1A 
471@- 1F 1B 6E 99 15 3B 1B 33 
4718- 4D 29 1A 3B 3B 4A 4D 92 
4728- 96 4D 29 1A 1F 1B 6E 99 
4728- 15 3B 1B 33 SD 9D 15 3B 
4739- 1F 37 4D 29 62 6B 4D 29 
4738- 1A 1F 1B SE @D SD 1A 1B 
474G- 1F A BD OD 1A 1F 1B 6E 
4748- 969 15 98 4D 29 1A 1F 1B 
4759- FE OD OD 1A 1B 1F 4A 4D 
4758- 1A 1B 1F 4A 4D 62 6@ 2D 
4768- 2D 15 3B 1B 73 99 @D 1A 
4768- 1B 1F @A 4D 11 3B 1B 33 
4779-— 2D 2D 15 9®@ 2D 2D 15 3B 
4778—-SF (S7) 2D 2DNIS SR Sse 37 
4786-— 2D 2D 15 3B 3F 37 2D 2D 
4788- 15 68 BC 298 


CHRS (27) THEN UC = is CALL —- 198: GOTO 
CHR® (12) THEN CALL —- 198:UL = 6: GOTO 


CHRS (13) THEN HCOLOR= @: HPLOT X,Y + 8 
5,Y¥ + @:X = 2:¥ = Y + 18: GOSUB 279: GOTO 


CHR$ (8) THEN HCOLOR= @: HPLOT X,Y + 8 TO 


Xx + 5,Y + @:X = X — 7: GOSUB 278: GOTO 149 


IF Cs 


CHR$ (21) THEN HCOLOR= @: HPLOT X,Y + 8 


TO X + 5,¥ + G:X = X + 7: GOSUB 276: GOTO 149 
ASC (C$) —- Si 

IF (UL OR UC) AND ( ASC (CS) > 64 AND ASC (CS) < 
91) THEN CC = CC + 28 

IF ((UL = 6) AND (UC = 8)) AND ( ASC (CS) > 64 AND 
Asc (C$) < 91) THEN HCOLOR= @: FOR L = X TO X + 
S: HPLOT L,Y TO L,Y + 7: NEXT Ls: HCOLOR= 3:Y = Y + 
1: DRAW CC AT X,Y:Y = Y — 1: GOTO 256 

HCOLOR= @: FOR L = X TO X + Ss: HPLOT L,Y TOL,Y + 
7: NEXT L: HCOLOR= 3: DRAW CC AT X,Y3 IF UC THEN 


cc = 


UC = 


HCOLOR= @: HPLOT X,Y + 8 TO X + 5,Y + GX =X +7 
: GOSUB 279 
GOTO 149 


IF X > 278 THEN X 
IF Y > 188 THEN Y = 5 
IF X < 2 THEN X = 
IF Y < 5 THEN Y = 


RETURN 


m=2:Y = Vv + 16 


268:Y = Y - 18 
t=] 


@ 
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TIPS ’N TECHNIQUES 


Apple Scroller 


by Bill Fortenberry 
2906 36 Ave. 
Meridan, MS 39301 


One of the most confusing things to the 
beginning assembly language programmer 
has to be the subject of memory address- 
ing. Out of the nine methods offered by the 
6502 (Apple processor chip), indirect and 
indexed addressing are probably the most 
difficult to grasp. The advantage of these two 
forms is the ability to handle large amounts 
of data with asmall amount of code and as we 
all know, compact machine code is spelled 
S-P-E-E-D. 


INDEXED ADDRESSING 

Indexed addressing can be directly com- 
pared to using arrays in BASIC. You have a 
starting point (the base address) and a 
pointer into the array (the index). For ex- 
ample, the Applesoft statement X=A(5) will 
cause the computer to find the fifth item in 
the array you named A and store that 
number in the variable X. In assembly lan- 
guage this would translate to something 
like LDA $305,Y which tells the computer 
to go to the memory location $305 PLUS 
whatever is in the Y register and store this 
value in the accumulator. In the above ex- 
ample, if the Y register contained the value 
$03, the Accumulator would be loaded with 
whatever is in location $308 ($305 + $03). 


INDIRECT ADDRESSING 

Indirect addressing has no direct counter- 
part in BASIC, although it can easily be illus- 
trated. Say you want to go visit Jim but you 
don’t know where Jim lives. You do know 
that Fred knows where Jim lives, so you go 
to Fred’s and ask him where Jim lives and 
then head over to Jim’s. Because you didn't 
know Jim’s exact address, you had to go 
INDIRECTLY through Fred. In short, indirect 
addressing means that you go to one memory 
address and in that location you find the 
address of the number you really want. 


THE SCROLL DEMO 

The following program uses both of these 
methods together to scroll the text screen 
right, left, or down. Since the Apple screen 
consists of known memory locations (this 
information is found on page 16 of the refer- 
ence manual), we can move the data in these 
locations anywhere we want. 

The program uses an array that holds the 
screen addresses. These addresses are the 
left column of the screen only, but by adding 
an index to this address, all forty columnscan 
be addressed. Because the 6502 only allows 
indirect indexing from the zero page, all 
addresses must be pulled from the array and 
moved to the zero page before being used. All 
that remains is to pull the data from one 
screen location and move it to the next one. 

This program was assembled at location 
$6000. To use the program, just enter the sys- 
tem monitor and type in the hex numbers in 
the left column. (For directions on entering 
machine code into your Apple see the instruc- 
tions in the Letters column of this issue.) You 
can then save them with the command 
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BSAVE SCROLL,A $6000,L 258. The pro- 
gram is executed with the CALL statement. 
There are three addresses to call, depend- 
ing on the direction you want the screen to 
go. To scroll down, type CALL 24576. Left- 
Scrolling would be exercised with CALL 
24658, and CALL 24721 will scroll right. 


SOURCE FILE: SCREEN SCROLL 


If you call the program once, only one row 
(or column) will scroll off the screen. This 
allows you to print, scroll, print, scroll untila 
new screen appears. 

To clear the whole screen, use a statement 
such as: FOR I=1 TO 40:CALL 24657:NEXT I. 


w 





OOFF: 1 Al EQU $FF 

OOFE: 2 A2 EQU $FE 

OOFD: 3 As EQU $FD 

OOFC: 4 A4 EQU $FC 

----- NEXT OBJECT FILE NAME IS SCREEN SCROLL 

6000: 5 ORG $6000 

4000: & ARARTTA ATTA TATA T eR ATTA TAT eT TT eS 
6000: 7 * SCREEN SCROLL DOWN 

6000: 8s BY BILL FORTENBERRY 

4000: 9 * COPYRIGHT 1982 BY MICRO-SPARC, INC 
4000: 10 * APPLE ASSEMBLER (DOS TOOL KIT) 
6000: 11 #8 

4000: 12% ENTRY POINTS 

6000 13 8 SCROLL ADDRESS 

6000 14% DOWN $6000 

6000: 15 8 LEFT $6052 

6000: 16 8 RIGHT $6091 

6000: 17 SRHSHRAAAR ERATE ATTA TTT TTT 
6000: 18 % START OF SCROLL DOWN 

6000:A2 00 19 SETUP LDX #0 

6002:BD D2 60 20 LDA DATA, x ;SET BEGINNING ADRESSES 
6005:85 FF 21 STA Al 

6007:E8 22 INX 

6008:BD D2 60 23 LDA DATA,x 

400B:85 FE 24 STA AZ 

600D:E8 25 INX 

600E:BD D2 60 26 LDA DATA, xX 

6011:85 FD 27 STA AS 

6013:E8 28 INX 

6014:BD D2 60 29 LDA DATA, xX 

6017:85 FC 30 STA A4 

6019:E8 31 INX 

601A:A0 00 32 START1 LDY #0 

601C:B1 FC 33 CHANGE LDA (A4),Y ;DROP CHAR 
601E:91 FE 34 STA (A2),Y ;ONE LINE 
6020:C8 35 INY 

6021:CO 28 36 CPY #40 ;WHOLE ROW? 
6023:DO F7 37 BNE CHANGE ;DO MORE 

6025: 18 38 cLe 

6026:AS FD 39 LDA AS 

6028: 65 FC 40 ADC A4 

602A:C9 04 41 CMP #04 ;IS ADDRESS = $400 
602C:FO 17 42 BEG TROW ;LAST ROW? 
602E:A5 FD 43 LDA AS 

6030:85 FF 44 STA Al 

6032:A5 FC 45 LDA A4 

6034:85 FE 46 STA A2 ;TOP TO BOTTOM 
6036:BD D2 60 47 LDA DATA, xX ;GET NEW ADDRESS 
6039:85 FD 48 STA AS 

603B:E8 49 INX 

603C:BD D2 60 50 LDA DATA,X 

603F:85 FC Si STA A4 

6041:E8 52 INX 

6042:4C 1A 60 53 JMP START1 ;DO NEW ROW 
6045:A9 AO 54 TROW LDA #160 ;ASCII BLANK 
6047:AO 00 55 LDY #0 

6049:99 00 04 56 ERASE STA $400,Y ;BLANK TOP ROW 
404C:C8 57 INY 

604D:CO 28 58 CPY #40 

404F:DO FB 59 BNE ERASE 

6051: 460 60 RTS 3;ALL DONE 
6052: 61 * SCROLL RIGHT TO LEFT 

6052:A2 00 42 START2 LDX #0 

6054:BD D2 60 63 GETAD LDA DATA,X ;GET ADDRESS 
6057:85 FF 44 STA Al 

6059:E8 65 INX 

605A:BD D2 60 66 LDA DATA, X 

605D:85 FE &7 STA A2 

605F:E8 68 INX 

6060:A0 00 69 LDY #0 ;SETUP POINTERS 
6062:8C DO 60 70 STY I 

6065:CB 71 INY 

6066:8C Di 60 72 Sty J ; INITILIZE POINTERS 
6069:AC D1 60 73 LEFT LDY J 

606C:B1 FE 74 LDA (A2),Y ;MOVE LETTER LEFT 
606E:AC DO 60 75 Love 

6071:91 FE 76 STA (A2),Y 

6073:EE DO 60 77 INC I ;BUMP POINTERS 
6076:EE Di 60 78 INC 2 

6079:AD Di 60 79 LDA J 

607C:C9 28 80 CMP #40 ;CHECK FOR LAST COLUMN 
607E:DO E9 a1 BNE LEFT 

6080:A9 AO 82 LDA #160 ;ASCII BLANK 
6082:AC DO 60 @3 LDY I 

pe ae ae = ie Fp ;BLANK OUT RIGHT COL 
6089: 18 86 [oo 

608A:65 FE 87 ADC AZ 

608C:C9 04 88 CMP ‘ 

Scie. oo ex = Abe on ;CHECK FOR TOP LINE 
hag: ay 90 RTS ;ALL DONE 


91 * SCROLL LEFT TO RIGHT 


6091:A2 
6093: BD 
6096:85 
6098:E8 
6099: BD 
6090: 85 
609E:E8 
609F : AO 
60A1:8C 
60A4:C8 
60A5: 8C 
60A8: AC 
S6OAB: BL 
60AD: AC 
60B0: 91 
60B2: CE 
60B5: CE 
60B8: AD 
60BB:C9 
S60BD: DO 
60BF: AC 
6002: A9 
6004:91 
60C6:AS 
60C8: 18 
6009: 65 
60CB:C9 
60CD: DO 
60CF : 60 
é60D0: 

60D0: 00 
60D1:00 
60D2: 

60D2: 07 
60D5:50 
60D6:06 
60D9:50 
60DC: 05 
60DE: 04 
60E1:50 
60E4: 07 
60E6:06 
60E9: 28 
60EC:05 
60EE:04 
60F 1:28 
60F 4:07 
60F 6:06 
60F9: 00 
60FC:05 
60FF:80 


Do 


DO 
os 
So 
Do 
o7 
28 
A8 
oS 
28 
A8 
0o7 
00 
80 
es) 
00 
04 


60 


60 


07 


06 
Do 


04 
A8 


06 
Ags 


04 
80 


06 
80 
04 
990 


92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 


126 


127 


128 


129 


130 


STARTS LDX 


#O 
FINDAD LDA DATA, x 3GET ADDRESS OF ROW 
STA al 
INX 
LDA DATA, x 
STA A2 
INX 
LDY #38 3SET POINTERS 
STY I 
INY 
STY J 
RIGHT LDY I 
LDA (A2),Y ;MOVE LETTER RIGHT 
GoY ed 
STA (A2),Y 
DEC I ;BUMP POINTERS DOWN 
DEC J 
LDA J 
CMP #0 ;LAST COL? 
BNE RIGHT 
LDY J 
LDA #160 3;ASCII BLANK 
STA (A2),Y ;BLANK LEFT COL 
LDA At 
cle 
ADC AZ 
CMP #04 ;LAST ROW? 
BNE FINDAD 
RTS ;ALL DONE 
* TEMP STORAGE 
I DFB $00 
J DFB $00 
&% SCREEN ADDRESS TABLE 
DATA DFB $07, $D0,$07,$50 
DFB $04, $D0, $06, $50, $05, $D0, $05, $50 
DFB $04, $D0, $04, $50, $07, $A8, $07, $28 
DFB $06, $AS, $06, $28, $05, $AB, $05, $28 
DFB $04, $A8, $04, $28, $07, $80, $07, $00 
DFB 


$06, $80, $04, $00, $05, $80, $05, $00, $04, $80, $04, $00 


@ 
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APPLE RECIPE BOX 








Apple Recipe Box 


by J.L. Costenbader 
309 E. 1850 South 
Bountiful, UT 84010 


INTRODUCTION 


: hen! purchased my Apple II Plus late 
| We year, it was only with the approv- 


al of my wife. Part of the ‘hard sell’ 
that | laid on her was that she would find the 
computer helpful to her around the house. | 
couldn't find a way to get the computer to 
vacuum the floors, and it definitely wouldn't 
do windows, so | was left to discover some 
other task that would relieve my wife of some 
work. That’s when the Apple RECIPE BOX 
was born. We had many good recipes scat- 
tered about the kitchen in assorted books, old 
boxes and on scraps of food-stained paper. 
Additionally, my wife sometimes found it con- 
fusing when she needed to double or triple a 
recipe or (worse yet) cut one in half!!! Well, 
our Apple solved all that. Now our recipes are 
stored neatly on a floppy disk. The program 
will double, triple or even cut a recipe in half, 
and when a friend asks fora copy of her favor- 
ite recipe, our trusty Paper Tiger rapidly 
prints one out for her. | even managed to let 
my wife know how | feel by leaving a note for 
her in line 5010. 


SYSTEM REQUIREMENTS 

The RECIPE BOxX is written in Applesoft 
BASIC. It was programmed on a 48K 
machine, but should run on a 32K machine 
with some very minor changes. A printer is 
not necessary, but by modifying two lines the 
Program should work with any printer. It is 
currently set up for an IDS-445. 


OPERATING THE PROGRAM 

When the program is run, it first tries to 
RENAME the INDEX.FILE,INDEX.FILE. If it 
finds that this is the first time the program has 
been run, the data files are initialized; other- 
wise pertinent index information is loaded 
into memory. The following menu is then 
presented: 


1 = ENTER A NEW RECIPE 

2 = CHANGE A RECIPE 

3 = PRINT INDEX OF RECIPES 
4 = PRINT A RECIPE 

5 = EXIT SYSTEM 


FUNCTION CHOICE = 


If you choose 1=ENTER A NEW RECIPE, 
the Apple will ask for the name of the recipe. 
The name is limited to 40 characters as indi- 
cated by the dots. However, any character is 
legal (the input routine will be discussed 
later). Note that the back arrow can be used 
to backspace over characters; however, the 
forward arrow will not work. You must retype 
information you wish to copy. The program 
asks for the number of servings and then 
presents a list of categories for the table of 
contents. Select the category that best fits the 
recipe. 

Next the computer asks for the ingredients. 
You may type in any number of ingredients 
and you can terminate the list by typing 
<RETURN>. The ingredients are limited to 
35 characters and any character is allowable. 


ENTERING RECIPES 

In order to make the doubling and tripling 
of the recipe work properly the quantities 
must be entered according to specific rules: 

First, the quantity must be entered first; i.e. 
1 LARGE ONION. 

Second, fractions must be entered thusly: 
1/2 TEASPOON MACE. 

Third, whole numbers with a fraction are 
entered with a dash between the whole num- 
ber and the fraction: 1-1/2 LBS. GROUND 
BEEF. 

Last, variable quantities are entered with a 
dash between the numbers: 6-8 MEDIUM 
APPLES. 

The important thing to remember is that the 
quantity must be entered with no spaces. Use 
a dash fora separator within the quantity, or 
else the doubling routine will not work prop- 
erly. The quantities, however, should be sepa- 
rated from the rest of the ingredient descrip- 
tion by aspace. The maximum quantity allow- 
able is 999 units; otherwise the computer 
assumes you are feeding an army (line 90). 


Correct: 1-1/2 cups water 

Incorrect: 1 1/2 cups water 

Incorrect: 1-cup flour (A space is required 
after the 1) 


By the way, if there is no quantity asso- 
ciated with the ingredient, that’s OK since the 
multiply routine will ignore it. An example 
would be: SALT TO TASTE. 


PREPARATION INSTRUCTIONS 

Once you have approved the ingredients, 
the computer will ask for the PREPARATION 
INSTRUCTIONS. Here you may type to your 
heart's content (up to 16 lines). Any character 
is legal and the backspace arrow works as it 
did in the ingredients section. Don’t worry 
about the end of the screen - just keep typing 
as if it weren't there. The entry routine will 
break the words at the screen boundary. 
When you are finished with the instructions, 
press the RETURN key and the computer will 
pause while it rearranges the instructions in 
memory. If you choose to change the instruc- 
tions, you must retype them. Once you are 
satisfied, the recipe will be saved to the disk 
and the main menu will again be displayed. 


CHANGING A RECIPE 

If you choose 2=CHANGE A RECIPE the 
program will ask for the page number of the 
recipe, which can be found by selecting 
option 3=PRINT INDEX. If you inadvertently 
type the wrong page number, you will be 
informed that the page number doesn't exist 
and you will be returned to the main menu. 
Typing either the <ESC> or CRETURN> key 
will also return you to the main menu. If you 
have typed a proper page number, you will be 
given the following choices: 


DO YOU WISH TO CHANGE 


NAME OF RECIPE 

NUMBER OF SERVINGS 
CATEGORY 

INGREDIENTS 

PREPARATION INSTRUCTIONS 
DELETE A RECIPE 


Oe GN 


WHICH= 


Each of these options will give you the 
chance to make changes to recipes previ- 
ously entered. If you choose: DELETE A 
RECIPE, you will be given the chance to 
change your mind just in case that’s not the 
recipe you want to delete. 


PRINTING THE INDEX 

Choice 3=PRINT INDEX OF RECIPES will 
give you the option to print the index of all the 
recipes as they appear in order on the disk or 
print the recipes only for a specific category. 
The option is given to list the index to the 
printer or to the screen. If you choose to listto 
the screen, the listing will stop as the screen 
fills. At this time, you may select a page 
number to be printed or just hit the 
<RETURN> key to continue viewing the 
index. If you choose to see a page number, it 
is the same as selecting option 4=PRINT A 
RECIPE. 

PRINTING/SIZING THE RECIPE 

Option 4=PRINT A RECIPE allows you to 
print a recipe to the screen or to the line print- 
er. The screen clears and you are given the 
following choices: 


1. RECIPE SIZE AS LISTED 
2. RECIPE DOUBLED 

3. RECIPE TRIPLED 

4. RECIPE CUT IN HALF 


WHICH? 


Then you are asked if you want the listing to 
go to the screen or to the printer. If the ingre- 
dients have been entered properly, the quan- 
tities in the ingredients will be changed to 
show your size choice. Also the number of 
servings will be changed to reflect the recipe 
size. Once the listing is completed you are 
returned to the main menu. 

Option choice 5=EXIT SYSTEM clears the 
screen, leaves a message for your bride and 
returns to Applesoft. 


PROGRAM DESCRIPTION 

For those of you who are interested, here is 
a program description so that you can make 
your own improvements and modifications. 
Use caution!! If your wife catches you making 
changes and improving the program, you 
may be forced into involuntary servitude and 
she'll have you writing other programs for 
her. You may even lose your computer to 
your wife altogether!! 

There were several problems in the devel- 
opment of this program. First was the ques- 
tion of input. Recipes are notorious for all 
kinds of ‘illegal’ Applesoft characters that 
cannot be entered using normal INPUT state- 
ments. Norcan these characters be read from 
the disk file. 

Secondly, lists of ingredients and prepara- 
tion instructions vary greatly in length, and 
with my limited programming experience, | 
had to find a way to enter these lists without 
using up alot of disk space. (| was moderately 
successful.) 

Thirdly, | had to find a way to parse out the 
quantities from the ingredients so that the 
recipes could be doubled, etc. 

continued on next page 
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Apple Recipe Box (Cont.) 


KEYBOARD INPUT ROUTINES 

Two separate input routines were written to 
take care of the ‘illegal’ characters in Apple- 
soft. The standard data entry routine is found 
at lines 150-178. This routine is used for 
almost all data entry except for the prepara- 
tion instructions. The number of characters 
typed is counted by I, which is initialized to 
zero. The number of characters allowed is 
stored in NC. The bell is rung and data input 
begins by GETting a character and storing it 
in array J$(I). If the <ESC> key is pressed 
(CHR$(27)), the GOSUB return is POPped off 
and control is returned to the main menu. 

The backspace (CHR$(21)) is supported 
but the forward arrow (CHR$(8)) is not. When 
the <RETURN> key is pressed, I$ is loaded 
with the individual characters from J$(I). I$ is 
returned as the response string and | holds 
the character count. 

The other keyboard entry routine is found 
at lines 100-142. It is used exclusively by the 
preparation instructions routine. A method 
was needed to input a large number of char- 
acters unbroken by a carriage return, SO we 
used the text screen buffer. The address of 
each line (0-23) on the screen is computed 
and stored in array L%( ) by the initialization 
routine at lines 9290-9320. Line 102 GETs a 
character into J$(CL), where CL is the count 
of the characters on an input line. Lines 104- 
112 handle the backspace arrow and line 114 
terminates the input when acarriage return is 
read. Line 116 disallows all other control 
characters. Line 118 prints the character and 
checks to see if it is aspace (CHR$(32)). If itis 
a space, the character count is stored in 
LS(NW%). Line 120 checks to see if we are at 
the right edge of the screen. If we are, we back 
up to the last space written (LS(NW%)) with 
an HTAB and clear to the end of the line (line 
122). Lines 124-132 print the leftovers from 
the previous line and check for the last line 
(maximum of 16). 

Once the input is complete, lines 134-142 
read directly from screen memory and build 
the preparation instructions line by line in 
array WD§( ). Upon exit, NW% contains the 
number of lines stored in WD$. 


DISK INPUT ROUTINES 

The disk input routines, with the exception 
of the initialization routines, are found inlines 
700 to 875. Standard input statements are 
used for most variables with three excep- 
tions: line 720 inputs the name of the recipe- 
NR3(); line 815 inputs the ingredients -1G$(); 
and line 865 inputs the preparation instruc- 
tions - WD$( ). Since illegal Applesoft charac- 
ters were allowed to be typed in from the 
keyboard, now normal input statements will 
not read these fields from the disk. 

A machine language routine, which uses 
advanced system techniques that were de- 
scribed on page 120 of NIBBLE EXPRESS- 
VOL 1, was POKEzd into decimal location 800 
($0320). NXTCHAR at location $FD75 is 
called and it reads one field from the disk 
and stores it at $0200. The X register contains 
the number of characters read +1 (which is 
the carriage return). Notice that variable CV$ 
is initialized in line 10 and it is the first string 
variable defined in the program. By doing this 
we have established CV$ as the first variable 
in Applesoft’s variable table and the pointer at 
$69 and $6A point to this variable. The first 
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two bytes, starting at $69, contain the variable 
name in ASCII code, and the third byte con- 
tains the length of the string. So we transfer 
the X-register to the A-register and store the 
string length in $69 + 2. The fourth and fifth 
bytes of a string variable contain a pointer to 
the start of the actual string, so we change 
that pointer to point to the NXTCHAR buffer 
at location $200. 

Essentially what we have done is to change 
all the pointers for variable CV$ to point at the 
NXTCHAR input buffer. Since NXTCHAR 
doesn't care what characters are input we are 
free to read commas, colons or anything else. 
The only drawback is that NXTCHAR sets the 
high bit in each ASCII character, and the 
machine language routine quickly strips off 
that bit with AND #$7F. Control is then 
returned to the BASIC program. 

The program variable is then loaded into an 
array by using X$=MID$(CV$,1). This must be 
done immediately, as the next read or key- 
board input will destroy the information in the 
NXTCHAR buffer. 

This routine doesn't appear to slow down 
disk read time and can be useful in any appli- 
cation where you want to read ‘illegal’ charac- 
ters from the disk. Make sure, however, that 
the input string variable is defined first in the 
program. An assembly language listing of 
this routine is included for information only, 
as itis putinto memory by the POKEs in lines 
9160-9170. 


DISK FILE STRUCTURE 

There are three disk files used for data stor- 
age: INDEX.FILE.L60,RECIPE.FILE, and 
OPEN.RECORDS. Each of these is a random 
access file whose respective length is defined 
by L$=",L60”; LR$=",L45” and LO$=“,L14”. 
Record 0 of the index file contains two impor- 
tant pointers: First N= the number of recipes 
in the index file. Second, NX% points to the 
end of the RECIPE.FILE+ 1. The remainder of 
the records in the index file contain the fol- 
lowing information: 


TR%( )=type of recipe (1 to 9) 

NR§$( )=name of the recipe 

NS%=number of servings 

P1%=pointer to the start of the ingredients 
. PP%=pointer to the start of the prepara- 
tion instructions. 


OP wR 


The RECIPE.FILE contains all of the ingre- 
dients and preparation instructions in records 
that are 45 characters in length. Each record 
contains two fields: First, NR, which isa point- 
er to the next record, and second, the ingre- 
dient or instruction itself. This way the 
records are chained together until NR=0, 
which then indicates the last record of this set 
of ingredients or instructions. For example, 
Pl% = 4 points to record 4 of the RECIPE. 
FILE. This record will contain the first ingre- 


stig of the recipe. Record 4 may look like 
s: 


5, 1/2 CUP SUGAR 


This indicates that the next ingredient may 
be found at record 5 and the first ingredientis 
1/2 CUP SUGAR. Record 5 may look like this: 


0, 1 TSP. MACE 


The zero indicates the last ingredient of this 
recipe. The preparation instructions are 
Stored on the same file in the same fashion, 


where PP% points to the first record of the 
instructions. 

The OPEN.RECORDS file keeps track of 
the number of records that may have been 
previously deleted and are lying unused. 
Record 0 of this file is the count of these 
records, and each subsequent record of this 
file points to an empty record in the RECIPE. 
FILE. If the first record of this file is zero, then 
there are no abandoned records and the next 
data is written to the RECIPE.FILE starting at 
record NX%. The write routines at lines 600 
and 650 make heavy use of these files. 


RECIPE SUBROUTINES 

The rest of the program is pretty much 
straightforward file manipulation. 

Lines 30-70 contain the main menu which 
drives the rest of the program. 

Lines 75-90 check for ingredient quantities 
greater than 999. 

Lines 200-210 and 225-240 are the one and 
two line title subroutines used in screen and 
printer presentation. Liberal use is made of 
“text windowing” by POKEing memory loca- 
tion 34 (the top line of the text window). 
These routines center and print a title TL$ 
(T1$ is the second line in 225) on the screen 
(PR=0) or on the 80 column printer (PR=1). 

Lines 300-315 print a prompt, PM$, and 
then GET a number greater than zero but not 
greater than UL. The choice is returned in 
CH. This is used primarily by menu choices. 
See line 60. 

The printer setup is in lines 325-335. It is 
currently set up for an Apple Parallel inter- 
face in slot 1 connected to an IDS-445 Paper 
Tiger. You can check the printer manual for 
your printer and substitute any code changes 
that are appropriate, but this setup should 
handle most of the popular printers as it 
stands. 

Screen scrolling is controlled by the rou- 
tine at 350-370. Two entries are used, depend- 
ing on what message needs to be printed. It 
can be entered at either 350 or 355. The 
<ESC> key is checked and if it is pressed 
control is returned to the main menu at line 
30. Cis used as ascreen line countin the print 
routines. 

Lines 410 and 420 are error messages per- 
taining to data stored in the index file. 

Disk write routines are in lines 400-690. See 
the variable table for an explanation of the 
variables. Also since l'm very lazy, string vari- 
ables are used for DOS commands. For exam- 
ple, OP$ stands for CTRL-D,OPEN. 

At lines 900 and 950 are the routines that 
delete the ingredients and preparation instruc- 
tions by placing the deleted record number in 
the OPEN.RECORDS file. 


THE MAIN PROGRAM 

The program starts by defining CV$ so that 
it may be used in the special input routines. A 
jump is made to line 9000 which is the initiali- 
zation routine. Here, the variables are dimen- 
sioned and the data statements are read. If 
you wish to change any recipe categories, it 
may be done in lines 9130 and 9140. If you 
wish to add more categories, make sure you 
change the number of headings, NH, in line 
9100. 

Next, an attempt is made to RENAME the 
index file with the same name. If there is such 
a file on the disk, there is no problem and the 
program continues by reading the names of 
the recipes, NR$( ), and the type of recipes, 
TR%(), into memory. If thisis the first time the 


program has been run a FILE NOT FOUND 
message (error#6) will be generated and con- 
trol is passed to the routine at line 7000. If, in 
fact, the index file was not found, the error 
routine will create a new index file and pass 
control to the main menu at line 30. 

The only other error that.is treated in the 
error routine is a DISK FULL. When this 
happens you are informed that there is no 
more room on the disk and you must initialize 
a new disk. All other errors are treated as 
non-recoverable and the program ends. You 
may want to add a more sophisticated error 
handling routine at line 7000. 


FIRST TIME RECIPES 

Recipes are entered for the first time at 
lines 1000-1290. This routine is straightfor- 
ward and the variables used can be found in 
the attached variable table. Notice that ample 
opportunity is given to the user to correct 
errors at input time by asking after each entry 
if the input is correct. This is to prevent mak- 
ing massive changes later. 

If errors are made during input, achance to 
correct the recipes is given in lines 2000-2960. 

Lines 3000-3570 allow the user to print 
either a list of recipes by page number or by 
category. Each choice allows output to the 
printer or to the screen (GOSUB 375). If out- 
put is sent to the screen, the index stops as 
the screen fills and the user can press the 
<RETURN> key to continue the list (lines 
3150 and 3480), or he may elect to print a 
recipe by selecting the page number. 

If the option is chosen to print out a recipe, 
control is transferred to the routine at line 
4500. Recipe size is selected by lines 4550- 


4560 and is stored in R3. The printer optionis 
called for in line 4570 and then the informa- 
tion is read from the disk. If the recipe size is 
other than “as listed” (RS=1) then a jump is 
made to line 6000 to multiply the ingredients; 
otherwise, lines 4610-4770 neatly print out 
the recipe for the cook to take to the kitchen. 

The routine at lines 4000-4030 merely sets a 
page number and jumps to the print routine at 
line 4500. 

Line 5000 ends the program with a short 
message to the cook as the screen clears. 


SIZING RECIPES 

The multiply routine for the ingredients is 
found in lines 6000-6260. A routine to convert 
the fractions is at lines 6500-6590. 

First the number of servings (NS%) is 
changed by the value of RS. Remember that 
RS=4 means to cut the recipe in half. Line 
6060 checks to see if the first character in the 
ingredient is a number. If it is not a number 
there is no sense multiplying it, so we get the 
next ingredient. (It may be something like 
DASH OF SALT.) 

Lines 6080-6110 then search character by 
character until a space is found. NN% is the 
number of characters and each character is 
stored in array C$( ). Lines 6110-6140 evalu- 
ate the number. If there is only one number, it 
is assumed to be a single whole number. The 
denominator (DE%) is assigned value =1 and 
the numerator (NU%) is the number itself 
(VAL (C$(1))). If there are two characters, the 
only possibility is a whole number greater 
than 10. This is handled by line 6130. 

If there are only three characters and the 
second oneisa‘/’, itis assumed to be a simple 


fraction, e.g., 1/2. Line 6140 takes care of this. 

If there are only three characters and the 
second is not a ‘/’ then it is assumed to be of 
the form 6-8, as in 6-8 LARGE APPLES. 

Each number is separately multiplied by 
lines 6160-6170. Lines 6180-6240 parse out 
complex fractions like 2-1/2 and convert the 
whole number (WN$) into fractional form. 
Thus, 2-1/2 becomes 5/2, when NU%=5 and 
DE%=2. 

All of the fraction multiplication takes place 
in lines 6500-6590. If the recipe size is tripled 
or doubled then numerator (NU%) is multi- 
plied by the appropriate number (line 6520). If 
the recipe is to be cut in half, the denominator 
is multiplied by two (line 6510). The fractionis 
then reduced by line 6530. Then, since rec- 
ipes rarely have unusual fractions like 3/7, a 
very simple fraction reduction method is 
used. The unreduced fraction is compared to 
those in array RE$( ) and if a match is found, 
the reduced equivalent fraction is found in 
array FA$( ) (line 6550). The new quantity is 
then loaded into NM$ and it is exchanged for 
the old quantity in line 6240. Strange, but it 
works!! 


CONCLUSION 

This was an enjoyable program to write as it 
endeared my wife a little bit more to our 
Apple. It helped give her a better understand- 
ing of the capabilities of the machine and 
helped me develop a few more programming 
skills. Next on the list is the refinement of a 
shopping list program tailored to her favorite 
grocery store. It’s hard to tell where it will end. 
Who knows? Someday we may have His and 
Hers Apples!! 


continued on next page 
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78 ON CH GOTO 1900, 2000 , 3090, 4900, 5900 162 IF J$(I) = CHR$ (27) THEN POP : GOTO 3 
75 ND = @:CK = 1 5 
80 CK$ = MID$ (I$,CK,1): IF CK$ < "@" OR CK$ ies TRUS) «CARA O18) TENT 1 cake note 
> "9" THEN 99 vs 
ener meek ees 0 + Deere Be 166 IF J$(I) = CHR$ (21) THEN 160 
nr ea 168 IF J$(I) = CHR$ (8) AND I = @ THEN PRINT 
AS IF YOU'RE FEEDING AN ARMY": PRINT "US sia. eater iba 
E A QUANTITY LESS THAN 1908": PRINT 170 IF J$(1) = CHRS (8) THEN PRINT J$(1):: 
95 RETURN I = 1.- 1} GOTO 154 
190 HOME : VTAB VT: HTAB 1:CL = 1:NW% = 1:LS 172° IF ASC (IS(I)) < 32° THEN GOTO 160 
sae res (ree 174 IF NC = I THEN PRINT "";: GOTO 169 
176 PRINT J$(I);:1 = I + 1: GOTO 154 
184 IF J$(CL) = CHR$ (8) AND NW% = 1 AND CL Soa MeaInT =: PRIMI IIe at *s POR’ c Oe Ll 
= eels $ = I$ + J$(J): NEXT : RETURN 
UDG, FED RCCL Se ahs > 7 CS CB) THEN 214 208 POKE 34,0: HOME :TB = 20 + (PR+ 1) - INT 
198 IF CL > 1 THEN PRINT CHR$ (8);:CL = CL ( LEN (TL$) / 2). IF TB > 8 THEN PRINT 
116 IF NW% > 1 THEN NW% = NW% - 1:VT = VT ode aint Ths 
1:CL = LS(NW%): VTAB VT: HTAB CL 218 FOR X = 1 TO 40 + (PR +1): PRINT "=";: NEXT 
112 GOTO 192 : PRINT : IF PR = @ THEN POKE 34,3 
114 IF J$(CL) = CHR$ (13) THEN LS(NW%) = CL in ere 
: GOTO 134 225 POKE 34,0: HOME :TB = 20 « (PR +1) - INT 
116 IF ASC (J$(CL)) < 32 THEN 102 ( LEN (TL$) / 2): IF TB > ® THEN PRINT 
118 PRINT J$(CL);: IF J$(CL) = CHR$ (32) THEN TAB( TB); 
LS(NW%) = CL 238 PRINT TL$ 
122 HTAB LS(NW%): CALL - 868:VT = VT + 1: VTAB ): IF TB > @ THEN PRINT TAB( 7B): 
tei ais cere ee 
126 ontinued-on next page 
126 FOR X = LS(NW%) + 1 TO 40: PRINT J$(X);: c pag 


NEXT 
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: RE$() 
Apple Recipe Box (Cont.) 
FAS() 
APPLE RECIPE BOX 
VARIABLE TABLE HD$( ) 
BL Address of monitor routine to 
beep speaker NH 
Cc Screen line count for screen print 
routines HT 
C$ Characters parsed from VT 
ingredients to form the quantities I$ 
CC% Character count in preparation 
instructions IG$ 
CH Choice number selected from NI% 
subroutine at 300 
IX$ 
CL$ DOS command to close file L$ 
cs Address of monitor routine to LFS 
clear to end of screen 
CVv$ Return string from machine disk Lo$ 
read (CALL 800) N 
D$ CHR$(4) (CTRL - D) NR3$() 
DE% Denominator in fractions for NS% 
multiply routine NU% 
DH Number of characters to the first NX% 


dash in the quantity 


Fractions that will need to be OP$ DOS command to open a file 
reduced PI% Pointer to the first record of the 
Fractional equivalents of the ingredients 

above in reduced form PM$ Prompt string for subroutine 300 
The categories available for recipe —_ py Page number of currently active 
index recipe 

Number of headings (HDS§) PP% Pointer to the first record of the 
available preparation instructions 

HTAB position PR PR=0 - output to screen. PR=1 - 
VTAB position output to printer 

Character string returned from RD$ DOS command to read disk 
input routine RS Multiplication factor to increase 
Ingredients recipe 

Number of ingredients TL$,T1$ Titles to be printed at top of page 
“INDEX.FILE.L60” TR%() Type of recipe (1 to NH) 

Record length of the index file UL Max number of choices in 
Record length of the recipe file sath sa 
Record length of open records file WDS() Hsieh) preparation 
Number of recipes Bore saya NW% Number of fields necessary to 
Name of the recipe hold preparation instructions 
Number of servings WR$ DOS command to write to disk 


Numerator for multiply routine 
Pointer to the last record on the 


The remaining variables are work variables 
and are used only within particular sub- 


recipe file + 1 


routines. @ 





245 


2508 
389 
385 


318 CH = 


315 
325 
330 
335 
358 


355 
368 
365 


3768 
375 


389 


385 PR = CH - 1: 


416 
426 


456 
466 


476 
489 
588 
519 
515 
528 
5368 
558 
568 
578 
589 
598 
688 
662 
694 
696 
688 
618 
612 
614 


616 
618 
628 
622 


174 


FOR X = 1 TO 46 « > NEXT 
BPRINT = IF PR-= 
RETURN 

PRINT PM$; 

GET CH$: IF CH$ 
GOTO 38 

VAL (CH$): 


(PR + 1): PRINT "="; 
@ THEN POKE 34,4 


CHR$ (27) THEN POP : 


IF CH < 1 OR CH > UL THEN 
365 

PRINT : RETURN 

PRINT D$;"PR#";PR: PRINT CHR$ (29) 

IF PR > @ THEN PRINT CHR$ (9); "88N" 
RETURN 

VTAB 22: HTAB 1: PRINT "HIT 'RETURN' TO 
CONTINUE...";: GOTO 368 

VTAB 22: PRINT "HIT 'RETURN' FOR MORE... 


GET CH$: IF CH$ = 
GOTO 38 

IF ASC (CH$) < > 13 THEN 369 

PRINT : HOME :C = @: RETURN 

HOME : PRINT TAB( 13); "OUTPUT CHOICES": 
PRINT : PRINT " 1=OUTPUT TO SCREEN" 
Bye 2=OUTPUT TO PRINTER" 

VTAB 15:PM$ = "OUTPUT CHOICE: ":UL = 2: GOSUB 
320 


CHR$ (27) THEN POP : 


RETURN 

HOME : VTAB 8: PRINT " THERE ARE NO RECI 
PES IN THE FILE": GOSUB 358: RETURN 

HOME : VTAB 8: PRINT "THAT PAGE NUMBER I 

N NOT IN COMPUTER": GOSUB 358: RETURN 
PRINT OP$; IX$;L$ 

PRINT WR$;1X$;",R";PN: PRINT TR%(PN): PRINT 
NR$ (PN) 

PRINT NS%: PRINT PI%: PRINT PP% 

PRINT CL$: RETURN 

PRINT OP$; IX$;L$ 

PRINT WR$; IX$;",RO" 

IF N = 9 THEN N = 1 

PRINT N: PRINT NX% 

PRINT CL$; IX$: RETURN 

PRINT OP$; IX$;L$ 

PRINT RD$; IX$;",RO" 

INPUT N: INPUT NX% 

PRINT CL$; 1X$ 

RETURN 

PRINT OP$;RF$;LF$ 

PRINT OP$;RO$;LO$ 

PRINT RD$;RO$;",RO" 

INPUT RN:NR = NX%:PI% = NX% 

FOR X = 1 TO NI%:OP = NR 

IF RN = @ THEN NR = OP + 1: GOTO 624 

PRINT RD$;RO$;",R";RN 
INPUT OP:RN = RN - 1: 
op 

IF X = NI% THEN NR = 9: GOTO 626 
IF RN = @ THEN NR = NX%: GOTO 626 
PRINT RD$;RO$;",R";RN 

INPUT NR 


IF X = 1 THEN PI% = 


NIBBLE EXPRESS/VOL. I11/1983 


IF X = NI% THEN NR = @ 


624 
626 
628 
638 
632 
634 
636 
638 
648 
658 
652 
654 
656 
658 
669 
662 
664 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT RN 
PRINT CL$ 
IF Oars 

RETURN 
PRINT 
PRINT 
PRINT 
INPUT 
FOR X = 
IF RN 
PRINT 
INPUT 
oP 

IF X = NW% THEN NR = @ 


WR$ ;RF$;",R"; OP 
NR 

IG$(X): NEXT 
WR$ ;RO$;" , RO" 


OP$;RF$;LF$ 
OP$ ; RO$;LO$ 
RD$;RO$;", RO" 


= @ THEN NR = OP 
RD$ ;RO$;",R";RN 
OP:RN = RN - 1: 


666 
668 
6798 
672 
674 
676 
678 
688 
682 
684 
686 
688 
6998 
728 
7108 
728 


PRINT RD$;RO$;",R";RN 
INPUT NR 

IF X = NW% THEN NR = @ 
PRINT WR$;RF$;",R";OP 
PRINT NR 

PRINT WD$(X): NEXT 
PRINT WR$;RO$;",RO" 
PRINT RN 
PRINT CL$ 
IF OP > 
RETURN 
PRINT OP$; IX$;L$ 
PRINT RD$; IX$;",R";PN 


(CV$,1) 
INPUT NS%: INPUT PI%: 
PRINT CL$; 1IX$: RETURN 


730 
7408 
888 
885 
819 
815 


PRINT RD$;RF$;",R";RN 
RI(NI%) = RN 
INPUT RN: CALL 888: 1G$ 
,1) 
818 


RN:NR = NX%:PP% = 
1 TO NW%:OP = NR 


INPUT TR&(PN): CALL 888:NR$(PN) = 


IF RN > 18008 THEN A$ = 


= NX% THEN NX% = OP + 1 


NX% 
+ 1: GOTO 674 
IF X = 1 THEN PPS = 


: GOTO 676 


IF RN = @ THEN NR = NX%: GOTO 676 


= NX% THEN NX& = OP + 1 


MID$ 
INPUT PP% 


PRINT OP$;RF$;LF$:NI% = 1:RN = PI% 


(NI%) = MID$ (CV$ 


STR$ (RN):RN = 


ASC ( RIGHT$ (A$,4)) + 1 


820 
825 
858 
855 
869 


IF RN THEN NI® = NI% + 
PRINT CL$;RF$: RETURN 


PRINT RD$;RF$;",R";RN 
RD(NW%) = RN 


1: GOTO 885 


PRINT OP$;RF$;LF$:NW% = 1:RN = PP% 


865 INPUT RN: CALL 888:WD$(NW%) = MID$ (CV$ 
1) 

870 IF RN THEN NW% = NW% + 1: GOTO 855 

875 PRINT CL$;RF$: RETURN 

986 PRINT OP$;RO$;LO$ 

985 PRINT RD$;RO$;",RO" 

918 INPUT RN 

915 FOR X = 1 TO WS% 

926 PRINT WR$;RO$;",R";X + RN 


925 
938 
935 
949 
958 
955 
968 
965 
978 
975 
989 
985 
998 
1988 
1818 


1928 
1938 


19498 
1958 
1968 
1978 
1889 
1999 
1109 
1119 
1128 
1138 
1148 
1158 
1169 


11798 


1189 


1198 


1288 
1218 


12298 
1238 


1249 
1259 
1269 


1270 
1289 


1298 
1388 
1319 
2888 
2905 
2618 
2815 
2620 
2625 
26368 
2635 


2048 


2045 
2058 
2055 
2968 
2199 
2118 
2128 


PRINT RD(X): NEXT 
PRINT WR$;RO$;",RO" 
PRINT RN + WS% 
PRINT CL$;RO$: RETURN 
PRINT OP$;RO$;LO$ 
PRINT RD$;RO$;",RO" 
INPUT RN 
FOR X = 1 TO N1% 
PRINT WR$;RO$;",R";X + RN 
PRINT RI(X): NEXT 
PRINT WR$;RO$;",RO" 
PRINT RN + N1% 
PRINT CL$;RO$: RETURN 
TL$ = "ENTER RECIPES ": GOSUB 288 
PRINT : PRINT "WHAT IS NAME OF RECIPE 
": PRINT :NC = 48: VTAB 8: HTAB 1: PRINT 
LEFT$ (DT$,NC): HTAB 1: VTAB 8: GOSUB 1 
5@8:NA$ = I$ 
TL$ = NA$: GOSUB 289 
POKE 32,4: PRINT : FOR X = 1 TO NH: PRINT 
X;". ";HD$(X): NEXT : POKE 32,8: PRINT 
HTAB 1: VTAB NH + 7: CALL CS:PM$ = "WHA 
T TYPE ":UL = NH: GOSUB 3@0:T = CH 
HOME : PRINT "HOW MANY SERVINGS? ";:NC = 
2: GOSUB 158:NS% = VAL (I$) 
HOME : PRINT : PRINT "CATEGORY="; HD$(T) 
: PRINT : PRINT "THIS WILL SERVE ";NS% 
PRINT : PRINT “IS THIS CORRECT? ";: GET 
PSaelRitS < “Sry” THEN 1909 
T1$ = "INGREDIENTS": GOSUB 225 
NI% = 1:NC = 35 
PRINT "ENTER INGREDIENTS ('RETURN' TO Q 
UIT)": PRINT 
PRINT NI%;") ";: HTAB 4: PRINT LEFT$ ( 
DT$,NC): CALL - 998: HTAB 4: GOSUB 159: 
IF I$ = CHR$ (13) GOTO 1148 
GOSUB 75: IF ND > 3 THEN 1119 
IG$(NI%) = I$:NI% = NIZ + 1:VT = VT + 2: 
GOTO 1119 
NI% = NI% - 1: HOME : IF NI% = @ THEN 108 
96 
FOR X = 1 TO NI%: PRINT X;") "; 1G$(X): NEXT 


PRINT : PRINT "IS THIS CORRECT ";: GET 

I$: IF I$ = "Y" THEN 1219 

PRINT : PRINT : PRINT "WHICH INGREDIENT 

IS INCORRECT ":CV = PEEK (37):NC = 2: GOSUB 
158:X = VAL (I$): IF X < 1 OR X > NI% THEN 
VTAB CV - 1: CALL - 958: GOTO 1179 

HOME : PRINT "CHANGE:": PRINT : PRINT X 

woe 4 LGSCA) > PRINE) 2 (PRINT °TO: ~ 2 PRINT 


PRINT X;". ";:NC = 35: GOSUB 158: GOSUB 

75: IF ND > 3 THEN 1198 

IG$(X) = I$: HOME : GOTO 1159 
T1$ = "PREPARATION INSTRUCTIONS": GOSUB 
225 
HT = 1:VT = 5: POKE 34,4: GOSUB 189 

HOME : FOR X = 1 TO NW%: PRINT WD$(X): NEXT 


VTAB 22: HTAB 1: PRINT "IF THIS IS CORR 
ECT HIT 'RETURN'";: GET I$: IF I$ = CHR$ 
(13) THEN GOTO 1268 

GOTO 1228 

PRINT :PN = @: FOR X = 1 TON: IF TR&(X 
) = @ THEN PN = X 

NEXT : IF PN = @ THEN N = N + 1:PN=N 
NR$(PN) = NA$:TR%(PN) = T: HOME : PRINT 
: PRINT "WRITING TO DISK": POKE 34,98 
GOSUB 69%: GOSUB 658: GOSUB 459 
GOSUB 599 
GOTO 38 
TL$ = "CHANGE AN ENTRY": GOSUB 200 

IF N < 1 THEN GOSUB 419: GOTO 38 

IF I$ = CHR$ (27) THEN 39 
VTAB 6: PRINT "WHAT PAGE NO. DO YOU WIS 
H TO CHANGE? ";:NC = 3: GOSUB 158 
PN = VAL (I$): IF PN = 8 GOTO 38 

IF PN > N THEN GOSUB 428: GOTO 2015 

IF PN = @ THEN GOTO 39 
GOSUB 798:TL$ = "CHANGE":T1$ = NR$(PN): 
GOSUB 225 
PRINT : PRINT " DO YOU WISH TO CHANGE": 
POKE 32,4: PRINT : PRINT "1. NAME OF RE 
CIPE ": PRINT "2. NUMBER OF SERVINGS": PRINT 
"3. CATEGORY" 

PRINT "4. INGREDIENTS": PRINT "5. PREPA 
RATION INSTRUCTIONS" 

PRINT "6. DELETE RECIPE": PRINT : POKE 
32,0 
PM$ = "WHICH: ":UL = 6: GOSUB 3@8:C1 = C 


H 
ON Cl GOTO 2190, 2208, 2308, 2498 , 2800 , 298 


@ 
HOME : PRINT "CHANGE NAME FROM: ": PRINT 
: PRINT " ";NR$ (PN) 

PRINT : PRINT "TO: ": PRINT : PRINT " 
";:NC = 48: GOSUB 158:NR$(PN) = I$ 
HOME : PRINT “NAME: ";NR$(PN): PRINT "S 
ERVES ";NS%: PRINT "“CATEGORY=";HD$(TR%(P 


N)) 


21368 


2148 
2288 


22198 
2300 
23198 


23208 
2490 


2418 


2426 
24328 


2448 
2459 


2468 
2478 


2488 


2498 
2588 


25198 
2528 


2538 
2549 
2559 
2569 
2578 
2588 
2599 
2668 
2619 
2626 


2638 
2648 
2658 
2669 


2678 
2688 


2698 
2728 
2808 
2818 
2826 
28308 
2849 


28598 


2869 
28708 
2888 
2988 


2918 
2928 


29308 


2949 
29598 
2968 
3809 
3819 
3820 


3838 
3840 
3859 
3969 
3878 
3689 


3188 
31198 


PRINT : PRINT : PRINT "IS THIS CORRECT 

? 2 GET I$: IF I$ = "N" THEN GOTO 29 
66 

PRINT : GOSUB 459: GOTO 39 

HOME : PRINT "CHANGE NUMBER OF SERVINGS 
TSePRINDo®) PRINT ” FROM: ";NS%: PRINT 


PRINT " TO: ";:NC = 2: GOSUB 159:N 
S% = VAL (I$): GOTO 2126 

HOME : PRINT : FOR X = 1 TO NH: PRINT X 
;") "“;HD$(X): NEXT : PRINT 

PRINT "CHANGE HEADING FROM NO. ";TR%(PN 
): PRINT : PRINT " TO: 
";:UL = NH: GOSUB 385:TR%(PN) = CH 

GOTO 2128 

HOME : PRINT "DO YOU WISH TO ": PRINT " 

1. CHANGE AN INGREDIENT": PRINT " 
2. ADD AN INGREDIENT” 

PRINT :PM$ = "WHICH? ":UL = 2: GOSUB 38 
@: GOSUB 8@8:N1% = NI%: IF CH = 2 THEN 2 
598 


C=98 

HOME FOR X = 1°TO NIZ2 PRINT X77) e5 1 
G$(X):C = C + 1: IF C > 16 THEN GOSUB 3 
55 

NEXT 

PRINT : PRINT "CHANGE WHICH INGREDIENT? 
";:NC = 2: GOSUB 15@:X = VAL (1$) 

IF X < 1 OR X > NI% THEN 2458 

HOME : PRINT "CHANGE INGREDIENT ";X;" F 


ROM: ": PRINT : PRINT IG$(X) 

PRINT "TO: ": PRINT :NC = 35: GOSUB 159 
: GOSUB 75: IF ND > 3 THEN 2489 

IG$(X) = I$ 
C = 9: HOME : FOR X = 1 TO NI%: PRINT X; 
") "s1G$(X):C = C + 1: IF C’> 15 THEN ‘GOSUB 
355 

NEXT 

VTAB 22: PRINT "IS THIS CORRECT? ";: GET 
I$: PRINT : IF I$ < > "“Y¥" THEN 2439 
PRINT OP$;RF$;LF$:RI(NI%Z + 1) = @ 

FOR X = 1 TO NI% 

PRINT WR$;RF$;",R";RI(X) 

PRINT RI(X + 1) 

PRINT IG$(X): NEXT 

PRINT CL$;RF$: GOTO 39 

HOME : PRINT "LAST INGREDIENT WAS: ”" 
PRINT NI%;") "“; I1IG$(NI%): PRINT 
NI% = NIZ + 1 

PRINT NI%;") ";:NC = 35: GOSUB 158: GOSUB 
75: IF ND > 3 THEN 2629 

IF I$ = CHR$ (13) THEN 2659 

IG$(NI%) = I$: GOTO 2619 
NI% = NI% - 1:C = 9: HOME 

FOR X = 1 TO NI%: PRINT X;")} ";IGSCX):¢ 
= C + 1: IF C > 15 THEN GOSUB 355 

NEXT 

VTAB 22: PRINT "IS THIS CORRECT? ";: GET 
I$: PRINT } TF I§ <=" > “Y¥" THEN NIX = NI 
%: GOTO 2599 

GOSUB 95@: GOSUB 688: GOSUB 459 

GOSUB 598: GOTO 39 

GOSUB 858 
TL$ "“REENTER PREPARATION INSTRUCTIONS" 
T1$ = NR$(PN): GOSUB 225 
HT = 1:VT = 5: GOSUB 199 

HOME : FOR X = 1 TO NW%: PRINT WD$(X): NEXT 


VTAB 22: HTAB 1: PRINT "IF THIS IS CORR 
ECT HIT ‘RETURN “;: GET I$? PRINT = IF 
I$ < > CHR$ (13) THEN GOTO 2869 


GOSUB 988: GOSUB 658: GOSUB 459 

GOSUB 598 

GOTO 38 

HOME : PRINT : PRINT “ARE YOU SURE YOU 
WANT TO DELETE :": PRINT 

PRINT NRSC(PN);"....7°): GET TS 

PRINT I$: IF I$ < > "Y" THEN GOTO 280 


1) 

GOSUB 898: GOSUB 858:N1% = NI%:WS% NW 
% 

GOSUB 9898: GOSUB 959 
NR$(PN) = "DELETED":NS% = @:TR%(PN) = 
GOSUB 458: GOTO 38 
TL$ = "INDEX": GOSUB 299 

IF N < 1 THEN GOSUB 416: GOTO 39 

PRINT : PRINT "INDEX SELECTIONS": POKE 
32,5: PRINT 

PRINT "1= LIST ALL RECIPES BY PAGE NUMB 
ER": PRINT "2= LIST RECIPES BY CATEGORY" 
PRINT "3= RETURN TO MAIN MENU": POKE 32 
,8: PRINT : PRINT 
PM$ = “INDEX CHOICE: ":UL = 3: GOSUB 3898 
:Cl = CH 

IF CH = 3 THEN 39 

ON Cl GOTO 3189, 34908 
TL$ = "INDEX": GOSUB 209 


GOSUB 375: GOSUB 325: GOSUB 2@8:C = @ 
FOR PN = 1 TO N: IF TR&(PN) = @ THEN 31 
96 


continued on next page 
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Apple Recipe Box (Cont.) 


3128 


3139 
3149 
3158 


3169 
3178 


3189 
3199 
3288 
3218 


3229 
3239 
3499 
3419 


34298 


3439 
3449 
3459 


34698 


34708 
34898 


3499 
3588 


3519 
3520 
3539 
3549 


3559 


3569 
35768 
4999 
4919 
4929 


4930 
4949 
4580 
4519 
4529 
4539 


4546 


4550 


4569 
4578 
4580 
4599 
4690 
4618 


4629 
4630 


4648 
4658 
4668 
4672 
4688 
46968 


4798 


4718 
4728 
4730 
4748 
4759 
4769 


4776 
5988 
50168 
6229 
6618 


176 


PRINT PN;" "; SPC( PN < 18); SPC( PN < 
198); SPC( PN < 180) ;NR$(PN) 

IF PR > @ THEN 3198 
C=C +1: IF C < 16 THEN 3198 

VTAB 22: PRINT "ENTER PAGE NUMBER DESIR 
ED" 

VTAB 23: PRINT "OR HIT 'RETURN' FOR MOR 
E: ";:NC = 3: GOSUB 159 

IF I$ < > CHR$ (13) THEN PN = VAL (I 
$): GOTO 3228 
C = 9: HOME : PRINT 

NEXT 

IF PR > ® THEN 30 

PRINT : PRINT "PAGE NUMBER DESIRED: "; 
:NC = 3: GOSUB 159 

GOSUB 4599 

GOTO 30 
TL$ = "CATEGORY INDEX": GOSUB 200:C = @ 

POKE 32,4: PRINT : FOR X = 1 TO NH: PRINT 
X;". ":HD$(X): NEXT : POKE 32,8: PRINT 
HTAB 1: VTAB NH + 7: CALL CS:PM$ = "WHI 
CH HEADING: ":UL = NH: GOSUB 3@9:T = CH 
GOSUB 375: GOSUB 325 
TL$ = HD$(T): GOSUB 298 

FOR PN = 1 TON: IF TR&(PN) < > T THEN 
GOTO 3529 

PRINT PN;" "; SPC( PN < 18); SPC( PN < 
198); SPC( PN < 19080);NR$(PN): IF PR > @ 
THEN 3529 

C =C +1: IF C < 16 THEN 3529 

VTAB 22: PRINT "ENTER PAGE NUMBER DESIR 
ED" 
VTAB 23: PRINT "OR HIT 'RETURN' FOR MOR 
: "::NC = 3: GOSUB 158 

IF I$ < > CHR$ (13) THEN PN = VAL (I 
$): GOTO 3569 
C = @: HOME : PRINT 

NEXT 

IF PR > @ THEN 32 

IF C = @ THEN PRINT "THERE ARE NO RECI 
PES IN THIS CATEGORY": GOSUB 358: GOTO 3 
r) 


E 


PRINT : PRINT “PAGE NUMBER DESIRED: ";: 
NC = 3: GOSUB 159 

GOSUB 4589 

GOTO 38 


HOME :TL$ = "PRINT RECIPES": GOSUB 288 

IF N < 1 THEN GOSUB 419: GOTO 39 
PRINT "WHAT PAGE NUMBER? ";:NC = 3: GOSUB 
158 
GOSUB 4588 
GOTO 39 
PN = VAL (I$): IF PN = 8 GOTO 30 

IF PN > N THEN GOSUB 428: GOTO 39 
FOR X = 1 TO 16:WD$(X) = "": NEXT 

IF TR&(PN) = 8 THEN GOSUB 428: POP : GOTO 
38 
HOME : PRINT "DO YOU WANT: ": POKE 32,4 
: PRINT : PRINT "1. RECIPE SIZE AS LISTE 
D" 

PRINT "2. RECIPE DOUBLED": PRINT "3. RE 
CIPE TRIPLED": PRINT "4. RECIPE CUT INH 
ALF": PRINT :UL = 4:PM$ = "WHICH? " 

GOSUB 388:RS = CH: PRINT : POKE 32,9 

GOSUB 375: GOSUB 325 

GOSUB 79%: GOSUB 89%: GOSUB 859:C = @ 

IF RS = 1 THEN GOTO 4618 

GOSUB 6989 

IF PR > @ THEN NR$(PN) = CHR$ (31) + CHR$ 
(1) + NR$(PN) + CHR$ (2) + CHR$ (29) 
TL$ = NR$(PN):T1$ = "SERVES " + STR$ (N 
$%): GOSUB 225 

FOR X = 1 TO NI%: PRINT X;*) "+; SPC( X «< 
19); 1G$(X): IF PR > @ THEN 4659 
C=C +1: IF C > 14 THEN GOSUB 355 

NEXT 

IF PR > @ THEN GOTO 4696 

IF C > 11 THEN GOSUB 355: GOTO 4799 

PRINT :C = C + 1: GOTO 4799 

PRINT :TL$ = "PREPARATION INSTRUCTIONS" 
: GOSUB 208 

IF PR = @ THEN PRINT TAB( 8);"PREPARA 
TION INSTRUCTIONS": PRINT :C = C + 2 

IF PR > @ THEN 4769 

FOR X = 1 TO NW%: PRINT WD$(X) 

C =C +1: IF C > 14 THEN GOSUB 355 

NEXT 

GOSUB 358: RETURN 

FOR X = 1 TO NW% STEP 2: PRINT WD$(X);" 

";WD$(X + 1): NEXT 

IF PR > @ THEN PRINT : PRINT : PRINT : 

PRINT : PRINT : PRINT : PRINT D$; "PRH¥Q" 
:PR = 8: RETURN 
HOME : VTAB 11: HTAB 18: SPEED= 196 
CALL BL: PRINT "JAN LOVES NOREEN": CALL 
BL: SPEED= 255: CALL BL: END 

IF RS > 3 THEN NS% = NS% / 2: GOTO 6929 
NS% = NS% « RS 
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6020 
69398 
6949 
6858 
6069 


68768 
6088 
68908 


6188 
6119 
6128 


6138 
6148 


6158 
6169 
61798 


6188 


6198 
62088 
6219 


6228 


62308 
6248 


6258 
6269 
6588 
65168 
6528 
65398 


6548 
6559 


6569 
6579 
6588 
6598 
7828 


7018 


7628 
7838 
7848 
7658 
7868 
7878 
7688 
7998 
7188 
7118 
7128 
71308 
7148 


7158 


71698 
7178 
7188 


71968 


72008 
72168 
9888 


9618 


9829 
9838 
9849 
9858 


9868 


9878 
9689 
96998 
9188 
9118 


9128 
91308 


IF NS% < 1 THEN NS% = 1 
FOR X = 1 TO NI&% 
NN% = 1 
C$(1) = LEFT$ (IG$(X),1) 
IF ASC (C$(1)) < 49 OR ASC (C$(1)) > 
57 THEN 6258: REM 1ST CHARACTER WAS N 
OT A NUMBER 
NN% = NN% + 1 
C$(NN%) = MID$ (I1G$(X) ,NN%,1) 
IF C$(NN%) = CHR$ (32) THEN NN% = NN% - 
1: GOTO 6129 
NN% = NN% + 1 
GOTO 6989 
IF NN% = 1 THEN DE% = 1:NU% = VAL (C$( 
1)): GOTO 6238 
IF NN% = 2 THEN DE% = 1:NU% = VAL (C$( 
1) + C$(2)): GOTO 6239 
IF NN% = 3 AND C$(2) = "/" THEN DE% = VAL 
(C$(3)):NU% = VAL (C$(1)): GOTO 6238 
IF NN% > 3 THEN 6189 
DE® = 1:NU% = VAL (C$(1)): GOSUB 6599 
T1$ = NM$:DE% = 1:NU% = VAL (C$(3)): GOSUB 
6580:NM$ = T1$ + "-" + NM$: GOTO 6249 
WN$ = "": FOR Y = 1 TO NN&: IF C$(Y) = “ 
-" THEN DH = Y 
NEXT 
IF DH > NN% THEN 6259 
FOR W = 1 TO DH - 1:WN$ = WN$ + C$(W): NEXT 


DE% = VAL (C$(DH + 3)):NU% = VAL (C$(D 
H + 1)) + VAL (WN$) « DE% 


GOSUB 65898 

IG$(X) = NM$ + RIGHT$ (IG$(X), LEN (IG$ 
(X))_- NN%) 

NEXT 

RETURN 
WN% = O:TF$ = "" 


IF RS = 4 THEN DE% = DE% « 2: GOTO 6539 
NU® = NU% « RS 

IF DE% < = NU% THEN WN% = INT (NU% / 
DE%) :NU% = NU% - WN% + DE% 

IF NU% = @ THEN NM$ = STR$ (WN%): GOTO 
6599 
TF$ = STR$ (NU%) + "/" + STR$ (DE%): FOR 
Y = 1 TO 13: IF TF$ = RE$(Y) THEN TF$ = 
FA$(Y) 

NEXT 

IF WN% = 8 THEN NM$ = TF$: GOTO 6599 
NM$ = STR$ (WN%) + "-" + TFS 

RETURN 
ET = PEEK (222):LN = PEEK (218) + PEEK 
(219) » 256: POKE 216,98 

IF ET = @ OR ET > 15 THEN 7188: REM AP 
PLESOFT ERROR 

IF ET < > 6 THEN 7128 

PRINT : PRINT OP$;IX$;L$ 

PRINT WR$; IX$;",RO" 

PRINT N: PRINT NX% 

PRINT CL$; IX$ 

PRINT OP$;RO$;LO$ 

PRINT WR$;RO$;",RO" 

PRINT @ 

PRINT CL$;RO$ 
TR&(1) = 1: GOTO 9298 

IF ET < > 9 THEN 7189 

CALL BL: CALL BL 

TEXT : HOME : VTAB 8: PRINT "THERE IS N 
O MORE ROOM ON THIS DISK!!" 

PRINT : PRINT “INITIALIZE A NEW DISK AN 
D CONTINUE" 

PRINT "ADDING RECIPES" 

END 

TEXT : HOME : VTAB 8: PRINT "ERROR NUMB 
ER ";ET;" IN LINE ";LN 

IF ET = @ OR ET > 15 THEN PRINT "SEE A 
PPLESOFT MANUAL, PAGE 81": GOTO 7219 
PRINT "SEE DOS MANUAL, PAGE 115" 

END 

HOME : VTAB 8: HTAB 13: PRINT "RECIPE B 
OX": PRINT : HTAB 11: PRINT "JL COSTENBA 
DER": VTAB 23: PRINT "“»#« COPYRIGHT 1982 
BY MICROSPARC, INC +e" 

DIM WD$(16) , TR%&(388) ,NR$(300) , IG$(25) ,H 
D$(19) , J$ (8B) 

DIM RD(16) ,RI(25) ,L%(23) ,LS(16) 

DIM C$(15);,FA$(15) ,RE$(15) 
CS = - 958:BL = - 1054 
D$ = CHR$ (4):CL$ = D$ + "CLOSE":OP$ = 
D$ + "OPEN" 

IX$ = "“INDEX.FILE.L6@":RD$ = D$ + "READ" 
:RF$ = "RECIPE.FILE" 
RO$ = "OPEN.RECORDS":LO$ = ",L5" 
WR$ = D$ + "WRITE" 

LF$ = ",L45":L$ = ",L69” 
N = @:PP% = 1:PI% = 1:NH = 9:NX% = 1 
DT$ =" 
ONERR GOTO 7929 

DATA APPETIZERS/PICKLES/RELISH, SOUP 
S/SALADS/SAUCES/DRESSINGS,MAIN DISHES (M 
EAT/FISH/POULTRY) ,MAIN DISHES (DAIRY/CAS 
SEROLES) 


continued on page 192 


DISK DOCTOR 








Apple Disk Doctor 


by Ben E. Colley 
Rt. #1, Box 67B 
Hallsville, MO 65255 


INTRODUCTION 
hat do you call a program that helps 
\J/aiasrose diskette illnesses and pro- 
vide a remedy? | call this program 
“APPLE DISK DOCTOR", a diskette utility 
that is easy to use and easy to enhance. 

DISK DOCTOR is a member of the ZAP 
family of utilities. It allows you to accurately 
display, edit, and then write information 
directly to the sectors of the disk that you 
select. You can modify Disk Directories, read 
and write control characters, examine hidden 
names, and a whole host of other things. 

DISK DOCTOR is written primarly in Apple- 
soft Basic and it has a short machine lan- 
guage program which it uses to interface with 
DOS. It requires a 48K Apple II with Applesoft 
in ROM or an Apple II Plus. It also requires at 
least one Disk II. With minor modifications, 
DISK DOCTOR will work with DOS 3.2.1 as 
well as its standard DOS 3.3 mode. 

Before using DISK DOCTOR, it may help 
you to become familiar with the information 
on disk storage found on pages 123-137 of 
the DOS 3.3 manual. 

Caution! Since DISK DOCTOR allows 
direct writing of disk sectors it should be 
tested and tried with a scratch/test diskette in 
order to become thoroughly familiar with it. It 
should not be used with a valuable diskette 
until this familiarity has been established. 

As you review the listing you will probably 
notice the lack of GOTO statements. Disk 
Doctor is avery structured, modular program 
using lots of GOSUB and FOR... NEXT logic. 
Let’s go through the options and see what 
Disk Doctor can do with your diskettes. 


DISK DOCTOR DUMP/ZAP 

Option #1 - Dump Sector. This section 
(lines 1000-1310) reads a sector and displays 
iton the screen, or the sector may be dumped 
to the printer if you have one (see line 1120 for 
printer modifications if you do not have your 
printer in slot #1, or use other than the Apple 
parallel printer interface). The routine dis- 
plays the sector in hexadecimal and charac- 
ter format in 40 column mode for screen dis- 
plays, and in 80 column mode for printed 
dumps. 

Option #2 - Zap Sector. Lines 2000-2995 
allow you to change any byte on the disk. The 
data is displayed one-half sector at a time; 
you may flip back and forth between the 2 
pages by keying CTRL-P. The Zap routine 
recognizes five sub-commands, namely: 

<CTRL-M> - Move mode permits you to 
quickly tab right, left, up, or down via the I, J, 
K, M keys, positioning the cursor at the dis- 
play cell you wish to edit. The cursor will wrap 
around the screen any time you tab beyond 
the display bounds. 

<CTRL-E> - Edit mode is where the “zap- 
ping” takes place. After positioning the cur- 
sor at the desired cell, CTRL-E will move the 
cursor into the data cell. You may then key in 
the necessary hexadecimal digits directly 
over the current data. Each sector byte may 
be changed a nibble (half a byte) at a time. 
Disk Doctor calls a machine language routine 
(described later) to perform a nibble zap. As 
you would expect, the display is updated to 


reflect the new sector data in hex and 
character. 

You may key in any valid hex digit (0-F) or 
use the right and left arrows to skip over data 
you do not wish to change. This mode also 
wraps around the screen when you back- 
space, forward space, or key past display 
bounds. 


<CTRL-P>_ - Display alternate half of 
sector. 
<CTRL-W> - Write the sector back to 


disk and return to MENU. 


- Return to MENU without 
writing sector. 

As is probably apparent, you will spend 
most of your time in either MOVE or EDIT 
mode. At any time, you may switch to another 
mode, or flip display pages and remain in the 
Current mode. 

RECOVER DELETED FILES 

Option #3 - Recover File. Because we all 
make occasional mistakes and delete files 
that should not be deleted, option 3 (lines 
3000-3550) patches up the directory entry for 
the deleted file. Like most file recovery pro- 
grams, the VTOC (Volume Table of Contents) 
bit map is NOT changed; you must still load 
and save the file in question. 

This means that when you have used DISK 
DOCTOR to recover a deleted file, the very 
first thing you should do is to LOAD the file 
and then SAVE it to the disk again. This sets 
up the VTOC to reserve the proper sectors to 
contain the file. 

Also, please be cautioned that a deleted file 
must be recovered before any other data or 
programs are written to the disk. If you have 
written anything to the disk in the intervening 
period between deleting and recovering a file, 
the written data may have overwritten some 
of the sectors of the disk that were occupied 
by the deleted file. 

Disk Doctor only looks for deleted files in 
this option; if you tell it to recover a file that 
has not been deleted, you will get a “NOT 
FOUND” message. 


<CTRL-X) 


REMOVE DOS FOR MORE SPACE 

Option #4 - Remove DOS. If you are like 
most Apple users | know, you only boot your 
system with one or two diskettes. The rest all 
have a copy of DOS on them that is simply 
taking up valuable disk space. Option 4 (lines 
4000-4210) does two things: 1) makes availa- 
ble an additional 32 sectors (tracks 1 and 2), 
and 2) places a “mini-boot” routine on track 0, 
sector 0. (DOS will not use track 0, and that 
space cannot be recovered.) If you try to boot 
a disk that has had the DOS removed in this 
manner you will get a message indicating that 
there is no DOS on the disk. The assembly 
listing for the “boot” program accompanies 
the article; the object code is maintained in 
Disk Doctor in an array called NDB (No DOS 
Boot). 


SLOT/DRIVE CONTROL 

Option #5 - Change Slot and/or Drive. 
Since | have moved to a two drive system, | 
wanted to be able to use both drives. If you 
change drives and then end the program, the 
slot and drive will revert to the values they had 
when you ran Disk Doctor. This is because 
Disk Doctor only changes the IOB, and not 
the DOS internal values for the slot and drive. 
(lines 5000-5090). 


Option #6 - End. Select option 6 when you 
are ready to exit Disk Doctor. 


HOW IT WORKS 

When you first RUN Disk Doctor, initializa- 
tion is performed by lines 10000-10280. From 
that time on, lines 20-50 control the pro- 
gram’s flow. First the MENU is presented viaa 
GOSUB to line 500, and when a valid selec- 
tion is keyed, control is RETURNed at line 
600. Then, based on the selection (SEL), one 
of the six subroutines outlined above is called 
to perform the requested function. 

Notice the ‘endless loop’ at lines 20-50. | 
use this technique heavily in all of my pro- 
grams, and Disk Doctor is no exception. This 
little trick eliminates the need for countless 
GOTO statements! (ED NOTE: This approach 
speeds up program execution since a GOTO 
statement forces the program to search for 
the line number starting at the beginning — 
lowest line number — of the program each 
time a GOTO is executed.) 

Another trick to eliminate GOTO state- 
ments is simulating the ELSE statement 
(which Applesoft does not have). The follow- 
ing example shows how to handle “ELSE” 
conditions without using GOTO’s. 


IF cond-A THEN statement 
IF NOT cond-A THEN statement 


Using the “simulated ELSE” eliminates the 
line number search (referred to above). It 
should be apparent that restricting the use of 
GOTO statements will help speed program 
execution. Enough rambling; let’s look at the 
machine language subroutines used by Disk 
Doctor. 


THE MACHINE LANGUAGE 

Four machine language routines are used 
during execution of Disk Doctor. The first one 
is used only during initialization to obtain the 
address of DOS’s 1OB (Input/Output Block). 
The second provides the RWTS interface. 
The third provides the hex dump interface. 
The fourth routine is the nibble zap used by 
option two. 

The routines reside in page three of mem- 
ory at locations 770-833 ($302-$341), and 
are POKEd into memory by line 10020. Entry 
points to the three frequently used routines 
are at 780($30C), 800($320), and 810($32A), 
and are referred to by Disk Doctor as RWTS, 
PRBYTE, and ZAP, respectively. The initiali- 
zation only routine at $302 is not named. A 
source listing of these routines accompanies 
the article. While the routines are fairly clear, 
some explanation may be helpful. 


RWTS (READ WRITE TRACK SECTOR) 

Disk Doctor interogates the 1OB (DOS 
Input/Output Block that controls the disk) 
error field after each call to the RWTS inter- 
face. RWTS (in DOS) returns a “clear” carry 
bit in the status register (P) but does not clear 
the 1OB error field if the call is successful. The 
interface insures that the status register will 
be zero (0) if there were no errors. If there was 
an error, then RWTS (in DOS) sets this field 
and the carry bit. The interface simply exits to 
Applesoft with an error message (Line 11000) 
when a DOS error occurs. 


continued on next page 
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Apple Disk Doctor (Cont.) 


PRBYTE ROUTINE 

The hex dump routine that is used to dis- 
play the sector is really quite simple. The data 
byte to be displayed is POKEd into memory 
location 8. PRBYTE is then called (e.g. line 
1160), and the interface routine calls the 
“real” (Apple Monitor) PRBYTE routine as 
described on page 61 of the Apple Reference 
manual, using the byte at location 8. 


ZAP DISK 

Because the machine language zap routine 
changes “nibbles” (half bytes) in the sector, it 
must know whether to change the upper nib- 
ble or the lower one. This information is 
passed as part of the new nibble data. If the 
new nibble value has the high bit set (i.e., 
value is greater than 127), then the left (high) 
nibble is to be “zapped”, otherwise, the right 
(low) nibble is “zapped”. Program statements 
2500-2535 prepare for and make the CALL to 
zap the sector byte. 

Information passed to the zap routine 
includes the displacement of the sector byte 
to change, the new nibble value, and the left 
or right nibble flag as just mentioned. 

To pass the required parameters, Disk Doc- 
tor uses the simplest method | know, POKE- 
ing the variable data into known locations. 
Examination of the initialization at lines 10040 
through 10220 shows the parameter fields are 


named such that they may be referenced 
symbolically by the program. This makes the 
program easier to read to debug and later on, 
to enhance! 


ENHANCEMENTS 

| mentioned earlier in the article that Disk 
Doctor is easy to enhance. To add another 
option, simply: 1) change the MENU to dis- 
play the option, 2) change the selection edit 
line (580) to allow the new option value, 3) 
change line 40 to call the option, and 4) put 
your option into Disk Doctor. 

There is plenty of room to add option(s) in 
the 7000-9999 line number range. Remember, 
the options are called using the GOSUB 
command, so be sure to RETURN upon com- 
pletion. What additional option might you 
wish to add? One feature that comes to my 
mind is a routine to read sector X and write it 
to sector Y. Another option that might prove 
useful on occasion is a VTOC reconstruction 
routine. There are a lot of options that could 
be added to Disk Doctor. 


REFERENCE READING 

Acouple of last notes. If you are not familiar 
with the organization of information on Apple 
DOS diskettes, two very good references are, 
1) the Apple DOS manual (Chapter 9 and 
Appendix C) and, 2) Beneath Apple DOS, by 
Don Wirth and Pieter Lechner (Copyright 
1981 by Quality Software, Reseda, CA 91335). 


Beneath Apple DOS is packed full of informa- 
tion, including a description of the boot proc- 
ess which armed me to write the “mini-boot” 
routine. You really should be comfortable 
with diskette storage concepts before you 
use Disk Doctor; otherwise you might really 
“ZAP” a disk! 


DOS 3.2.1 

As written, Disk Doctor is a DOS 3.3 utility. 
To use it with DOS 3.2.1 all you have to dois 
change the 16 in lines 1040 and 2020 to 13, 
change the 15 in line 3060 to 12, change the 
second 255 in line 4130 to 248, delete line 
4120, and change line 4160 to RETURN. It 
works well for DOS 3.2.1 as well. Everything 
works; that is, except the “mini-boot” routine. 
Because DOS 3.3 boots in a significantly dif- 
ferent way than DOS 3.2.1, do not use the 
“mini-boot”. It simply will not work. On a posi- 
tive note, Disk Doctor uses the page 3 DOS 
vectors exclusively to interface with DOS, 
and as such it should work with 32K Apples. 


SUMMARY 
While there are a lot of “disk zap” routines 
available, | think Disk Doctor will be a good 
addition to your library. Even if you already 
have a disk utility, |'m sure you can use some 
of the techniques implemented in Disk Doctor. 


v 





19 REM RRR EEE REKERER EES 
11 REM »* DISK DOCTOR : 1108 POKE ICMD,RD: CALL RWTS 
12 REM » BY BEN COLLEY : 1118 IF PEEK (IERR) < > 9 THEN GOSUB 1199 
13 REM + COPYRIGHT (C) 1982 « @: RETURN 
14 REM + BY MICROSPARC INC « 1128 IF S$ = "Y" THEN INC = 16: PRINT CHR$ 
15 REM + LINCOLN, MA 91773 « (4); "PR#1": PRINT CHR$ (9);"80N";: PRINT 
SNS oi lathe Aad alah dal ad "TRACK=";TRK;" _ SECTOR=";SEC: PRINT 
18 GOSUB 19999 1138 IF S$ = "N" THEN INC = 8: HOME : PRINT 
26 FOR I = 1 TO 2 STEP @ : TRACK=";TRK;"  SECTOR=";SEC: PRINT 
38 GOSUB 599 
49 ON SEL GOSUB 1000, 2000, 3000, 4000, 5000, 600 1148 FOR XX = BUF TO BUF + 256 - INC STEP IN 
c 
50 NEXT 1158 IF XX = BUF + 128 AND S$ = "N" THEN VTAB 
6G TEXT : HOME : END 22: INPUT "PRESS RETURN TO CONTINUE: ";X$ 
500 HOME : VTAB 5: CALL ESCF 
505 VTAB 5: HTAB 15: INVERSE : PRINT " OPTIO 1168 POKE BYTE,XX - BUF: CALL PRBYTE 
NS ": NORMAL 1178 PRINT": "; 
SOS Mace ; : 1188 FOR XY = @ TO INC - 1 
B 12: PRINT "1) DUMP SECTOR": PRINT 1198 POKE BYTE, PEEK (XX + XY): CALL PRBYTE: 
538 HTAB 12: PRINT "2) ZAP SECTOR": PRINT REM PRINT 1 BUFFER BYTE 
549 HTAB 12: PRINT "3) RECOVER FILE": PRINT 1200 IF INT (XY / 2) * 2. < > XY THEN PRINT 
550 HTAB 12: PRINT "4) REMOVE DOS": PRINT 1218 NEXT 
56@ HTAB 12: PRINT "5) SET DRIVE PARMS": PRINT 1226 PRINT" :": 
1238 FOR XY = @ TO INC - 1 
570 HTAB 12: PRINT "6) END": PRINT : 
580 FOR XX = 1 TO 2 STEP @: VTAB 22: INPUT " See a NE eee ee ee ee 
ENTER SELECTION: "; S$: IF S$ > "®" AND S$ 1258 IF XZ < 32 THEN XZ = 46 
65 soe! THEN XX = 2 1268 PRINT CHR$ (XZ); 
600 SEL = VAL (S$): RETURN rR rp 
is = "N" . " 
1918 FOR XX = 1 TO 2 STEP 9: VTAB 7: HTAB 5: at ¥é CONEIMUE ee eane Ae taies cee 
Soe PER TRACK. iSS7TRK = VAL (S$) 1300 IF S$ = "Y" THEN PRINT :; PRINT : PRINT 
: IF TRK > - 1 AND TRK < 35 AND S$ < > CHR$ (4) ; "PR#0" 
ao ee 1318 RETURN 
1020 IF NOT (S$ > = "B" AND S$ < = "9") THEN 2000 HOME 
ree 2005 FOR Xx = 1 TO 2 STEP @: VTAB 7: HTAB 5: 
1949 FOR XX = 1 TO 2 STEP : VTAB 9: HTAB 5: Ra i i a I RE ag BD 
INPUT "ENTER SECTOR: ";S$:SEC = VAL (S$ a eta Se a a ee 
C > - 1 AND SEC < 16 AND $ 
"" THEN XX = 2 it of 2018 IF NOT (S$ > = "®" AND S$ < = "9") THEN 
1958 IF_NOT (S$ > = "8" AND S$ < = "9") THEN dais REET 
=1 
1960 NEXT 2020 FOR XX = 1 TO 2 STEP @: VTAB 9: HTAB 5: 
1078 FOR XX = 1 TO 2 STEP @: VTAB 11: HTAB 5 TATE BEG Pan Waeee ee omen oe, see 
INPUT, "LIST ON PRINTER? (Y/N) :*:88: IF dA cTHEN Sie a cit ee oe ee eal ee 
= "Y" OR S$ = "N" THEN XX = 2 < 
Ms ee 2025 IF NOT (S$ > = "@" AND S$ < = "9") THEN 
1998 POKE ITRK,TRK: POKE ISEC,SEC onadineene 
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2035 
2048 
2045 


2058 
2855 


2868 
2065 


2078 
2075 
2888 
2885 
2898 
2695 
2188 
2195 


2118 
2115) 
2129 
2125 


2465 


2478 


2475 
24868 
2485 


2488 
2499 
2495 
2496 
2588 
2505 


2518 
2515 
2526 


2525 
2539 


2535 
25408 
2544 
2545 
2558 


POKE ITRK,TRK: POKE ISEC,SEC 

POKE ICMD,RD: CALL RWTS 

IF PEEK (IERR) < > @ THEN GOSUB 1199 
@: RETURN 

HOME : PRINT " 
SECTOR=";SEC: PRINT 
VTAB 22: HTAB 1: PRINT " >AGE FLIP >0 
VE >DIT >RITE >EXIT" ; 

INVERSE : HTAB 1: VTAB 22 

PRINT ©P";: HTAB 13:2 PRINT “M":: HTAB 
20: PRINT "E";: HTAB 27: PRINT "W";: HTAB 
SOP PRINT. Xo 

NORMAL 
Bl = 9:B2 = 128:T = - 128: GOSUB 2829 
VK = 1:SEL = 13: REM MODE=MOVE 

FOR XX = 1 TO 2 STEP @ 

IF VK = @ THEN GOSUB 2975 


TRACK=" ; TRK; " 


IF SEL = 5 THEN GOSUB 2499 

IF SEL = 13 THEN GOSUB 2789 

IF SEL = 16 THEN Bl = Bl + T:B2 = B2 + 
T: GOSUB 2889 

IF SEL = 23 THEN XX = 2 

IF SEL = 24 THEN XX = 2 

NEXT 


IF SEL = 23 THEN POKE ICMD,WR: CALL RW 
TS: IF PEEK (IERR) < > @ THEN GOSUB 1 
1988 


RETURN 

REM 

REM EDIT MODE 

REM 

VTAB 3: HTAB 34: INVERSE PRINT "EDIT" 

;: NORMAL 

VTAB 24: HTAB 6: PRINT "<@-F>-HEX DIGIT 
ORO i<=, =>" 


FOR XY = 1 10 2 STEP 9 
HT = HT + 1: REM MOVE TO NEXT NIBBLE 

IF HT > 24 THEN HT = 6:VT = VI + 1: IF 
VT > 28 THEN VI = 5 

[Peon eCHiY S)eees = HT THEN ‘AT = HT + 
1: REM CHECK FOR COL 19,15,29 

GOSUB 2975:VK = @ 


IF (S$ > = "@" AND S$ < = "9") OR (S$ 
> = "A" AND S$ < = "F") THEN GOSUB 2 
588:VK = 1 


IF SEL = 13 THEN VK = 1:XY = 2: REM SW 
ITCH TO MOVE 

IF SEL = 16 THEN Bl = B1 + T:B2 = B2 + 
T: GOSUB 2898: REM PAGE FLIP 


IF SEL = 23 THEN VK = 1:XY = 2: REM EX 
IT 

IF SEL = 24 THEN VK = 1:XY = 2: REM WR 
ITE 

IF SEL = 21 THEN VK = 1: REM RIGHT ARR 
Ow 


LF SELC=78 THEN VKo=el2 HT. = HT - 2: IF 
HT < 5 THEN HT = 24:VT = VI - 1: IF VT < 
5 THEN VT = 28: REM LEFT ARROW 

FF SEG = 8) AND) COUNT “CCHT + 1) 7.5) 05 

= HT + 1) THEN HT = HT - 1: REM CHECK 
COL 18,15,20 

IF VK = @ THEN HT = HT - 1: REM NO VAL 


REM SET HT TO NEXT CELL BEFORE LEAVING 
Hie =) INT CCHIT + 4)/eo) abe TE. HT > 29 
THEN HT = 5:VT ="Vinee ts TF Vi > 28 THEN 
VT = 5 

VTAB 24: HTAB 1: PRINT SPC( 35); 
RETURN 

REM PREPARE FOR AND CALL ZAP 

REM CALC BUFFER DISPLACEMENT 
Xl = (VT - 5) « 8 + ZTBL(HT - 6) - 38 

IF PEEK (1536) = 184 THEN X1 = X1 + 12 
8: REM NIBBLE IN 2ND HALF OF SECTOR 
POKE BDISP,X1 
BIT = @ 

IF ZIBE(HT = 6) = ZTBL(HT,- 5) THEN BIT 
= 128: REM DET IF LEFT NIBBLE 


IF S$ < = "9" THEN POKE BYTE, VAL (S$ 
) + BIT 

IF S$ > = "A" THEN POKE BYTE, ASC (S$ 
) - 55 + BIT 


CALL ZAP: REM ZAP THE NIBBLE 

REM NOW UPDATE DISPLAY 

VTAB VT 

HTAB HT: PRINT S$;: REM PRINT NIBBLE 
X1 = PEEK (BUF + X1): REM GET NEW VALU 
E 


VTAB VT: HTAB ZTBL(HT - 6): REM POS FOR 
CHAR 

Dex > 12 75THEN Xl = Xi = 128 

Lr XL <9 32" THEN) Xl = 46 

PRINT CHR$ (X1);: REM PRINT CHARACTER 
RETURN 

REM 

REM MOVE MODE 

REM 

VTAB 3: HTAB 34: INVERSE 
;: NORMAL 

VTAB 24: HTAB 3: PRINT "<I>-UP <M>-DOWN 
<J>-LEFT <K>-RIGHT": 

FOR X¥o= 1.70: 2 STEP 9 

GOSUB 2975:VK = @ j 

RE S$omy UK THENSHT =o lin tee) rain ee 
O THEN AT = Se VT ve Ve 1 Pail Oe, 


PRINT "MOVE" 


LE sSS3=nJ) THEN HT =)HT - 5: 1Rehiee< 5 
THEN Hi = 28:VT = VI - 1: IF VI < 5 THEN 
VT = 26 

LESS c= Ie THEN? VT = Vi = late vil ceo. 
THEN VT = 209 

LRSS$ =" M" THEN Vie= Viet 1a PVT ea2 


@ THEN VT =25 


IF SEL = 5 THEN VK = 1:XY = 2 

IF SEL = 16 THEN Bl = Bl + T:B2 = B2 + 
T: GOSUB 2882 

IF SEL = 23 THEN VK = 1:XY = 2 

IF SEL = 24 THEN VK = 1:XY = 2 

NEXT 

VTAB 24: PRINT SPC( 38); 

RETURN 

POKE 35,21: VTAB 5: HTAB 1: CALE ESCE: POKE 
35,24: REM CLEAR MIDDLE OF SCREEN 

FOR X1 = BUF + Bl TO BUF + B2 - 8 STEP 


8 
POKE BYTE,X1 - BUF: CALL PRBYTE 
PREND es 6 "% 
FOR X2 = @ TO 7 
POKE BYTE, PEEK (X1 + X2): CALL PRBYTE 
Te INT (CX2 7 2) #2) <) Se X22) THEN ™ PRENT, 
NEXT 
PRINT " fons 
FOR X2 = 9 TO 7 
X3 = PEEK (Xl + X2) 


IF X3 > 127 THEN X3 = X3 - 128 
IF X3 < 32 THEN X3 = 46 
PRINT CHR$ (X3) ; 
NEXT 
PRINT ":" 
NEXT 
Ti Seht 
VK = @:SEL = @:VT = 5:HT = 5: REM INIT 


CURSOR POSITION 


RETURN 

VTAB VT: HTAB HT: REM POSITION CURSOR 
GET S$: PRINT CHR$ (8): REM PRINT NON 
-DISPLAY CHAR 

IF S$ < > “" THEN SEL = ASC (S$) 

IF S$ = CHR$ (@) THEN SEL = @ 

RETURN 

FOR XX = 1 TO 2 STEP @: HOME : VTAB 7 
HTAB 3: INPUT "ENTER FILE NAME:";S$ 

IF LEN €S$) < 2530 THEN XX == 2 

NEXT 

POKE ITRK,17 
XU = 8 

FOR XX = 15 TO 1 STEP - 1 

POKE ISEC, XX 

POKE ICMD,RD: CALL RWTS 

IF PEEK (IERR) < > @ THEN GOSUB 1199 


®: RETURN 

FOR XY = 11 TO 221 STEP 35 

IF PEEK (BUF + XY) = 255 THEN GOSUB 3 
528 

TE°XU>="1) THEN) SPOKE “BUF. +°X¥);,” PEEKS 
BUF + XY + 32): POKE (BUF + XY + 32) ,169 
: POKE ICMD,WR: CALL RWTS:XY = 221:XX = 
I TR) PEEK CIERR). <9) > @ THEN, GOSUB Ti 
920: RETURN 

IF, PEEK (BUF. + XY) + PEEK (BUF + XY + 
1) = @ THEN XY 221:XX = 1 

NEXT : NEXT 

VTAB 18: HTAB 5 

IF XU = 1 THEN PRINT "FILE RECOVERED I 
N VTOC": VTAB 28: HTAB 5: PRINT “REMEMBE 
R TO LOAD AND SAVE IT" 


continued on page 193 
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QUASAR II: A Machine 
Language Arcade Game 


by Brent Iverson 
9538 Pondwood Road 
Boca Raton, FL 33433 


INTRODUCTION 

A quasar in the Andromeda Nebula has 
spread galactic debris through many nearby 
quadrants. Your mission is to enter the 
Andromeda Nebula and clear as many quad- 
rants of debris as you can with the three ships 
allotted to you. 

The universe fades away before your eyes. 
Seconds later, your ship reappears, in the 
center of a quadrant of deep space. Stellar 
debris approaches your ship from all sides. 
Swiftly, you fire your thrusters, narrowly 
missing a fast-moving chunk of rock. A blast 
from one of your photon guns vaporizes 
another piece. Acting quickly, you destroy 
the remaining debris in the quadrant. 

Your hyperspace automatically kicks in, as 
your instruments tell you that you are advanc- 
ing to quadrant two. But this quadrant con- 
tains even more debris than the last one. . . 
and the debris is moving more quickly. Fran- 
tically, you fire your photon guns. How long 
can you hold out? How long will it be 
before. ..The End? 


INSTRUCTIONS 
To Move To Fire 
Ww I 
nfeo iat 
x , 


As shown above, movement of your ship is 
controlled by the four keys in the W-A-D-X 
diamond. For example, to move left, press A. 
Pressing A again will make you move to the 
left more quickly. There is a limit to how fast 
you can move in any direction, though. 

To fire your photon guns, use the four keys 
in the I-J-L-, diamond. For example, to fire to 
the right, press L. The instructions for this 
game are also given when you begin play. 


ENTERING THE PROGRAM 

First, enter the Applesoft program shown in 
listing 1. When you have finished checking it 
for errors, SAVE it. The name you save it 
under doesn't matter. . .so why not call it 
QUASAR, or something similar? 

After you have SAVEzd it, enter the monitor 
and type in the shape table given in listing 2. 
When you have done so, save it to disk with 
the following command: 


BSAVE QUASAR.SHAPES, A$300,L$0045 


In this case, you must save the shapes 
under the name given, as that is the name that 
the program in listing 1 uses to look for them 
on your disk. 

Finally, you can enter the machine lan- 
guage program for Quasar directly into 
memory using the instructions for entering 


machine language programs in the Letters 
section of this issue. Having entered the pro- 
gram into memory you can save it to disk with 
the command: 


BSAVE QUASAR.OBJ,A$4000,L$04F5 


Now you are ready to play. Warning: This 
game has been known to induce sweaty 
palms and increased pulse rate! 


THE PROGRAM — GENERAL COMMENTS 

Quasar ][ is a fast (machine language and 
Applesoft), hi-res arcade game. All of the 
action is in the machine language for speed. 
Applesoft is used between quadrants to gen- 
erate random numbers, keep track of ships 
lost, and keep track of the current quadrant 
number. It is also used to print instructions at 
the start of a game. Writing assembler code 
for all of these tasks would have been a 
tedious job, particularly for the random 
numbers. Furthermore, the few seconds that 
Applesoft takes to generate these random 
numbers is just enough time for the player to 
catch his breath and glance down at his 
score. Therefore, all random numbers are 
generated in Applesoft. 


THE MACHINE LANGUAGE PROGRAM 

This part of the game consists of a short 
main program (whose primary function is to 
call all of the other routines in the program), 
and the subroutines that the main program 
calls. 

These subroutines are primarily of two 
kinds: crunching and checking. The crunch- 
ing routines (whose names end with 
“crunch”) are used to move things around, 
checking for the limits of the screen. Note 
that since all coordinates are one-byte 
numbers (0/255), it is not necessary to check 
for horizontal wraparound. When an object's 
position exceeds 255, it automatically wraps 
around to 0, and vice-versa. 

The crunch routines also call Applesoft hi- 
res routines to erase and draw what they have 
been moving. The crunch routines do not 
check for collisions between the player, his 
missile, and the space debris. 

That is the function of the checking rou- 
tines, whose names all end in “check.” These 
routines check for collisions between the 
above-mentioned items. If a collision is 
detected, the routine will jump to an appro- 
priate collide routine, whose function is to 
take care of the results of a collision. 

In an arcade game such as this one, it is 
important to keep the game moving at the 
same pace, regardless of how many or how 
few things are on the screen at onetime. This 
is accomplished in this program in two ways. 
First, the crunching routines continue to 
move all debris around the screen, whether or 
not the object “exists” at that time. If an object 
does not “exist” (meaning that it is inactive), 
the crunch routines do not draw it or erase it 
on the screen. That object will also not be 
considered for possible collisions by the 
check routines. 

In other words, all routines try to spend as 
much time on inactive objects as they do on 
active ones. As it turned out, the Applesoft 
hi-res routines for drawing shapes took up a 


great deal of time, compared to the rest of the 
program. To counteract this, | had to tack on 
a “wait” routine, which delays the program for 
a specified amount of time. This amount of 
time is related to how many objects are active 
at the time it is called vs. how many were 
active when the player first entered the quad- 
rant. Further information on this and other 
routines can be found in the section describ- 
ing the individual routines in the machine- 
language program. 


MACHINE LANGUAGE 
ROUTINE DESCRIPTIONS 

Main Program Loop: This loop calls the 
checking and crunching routines. It also 
checks for any of the conditions required 
for a return to Applesoft: Having no ob- 
jects left (num=0) or having the player des- 
troyed (rtncode=1). If either of these is 
true, itexecutes an RTS instruction, which 
returns control to the Applesoft part of the 
game. 

Ocrunch: Moves all objects. If the code of the 
object is 1, meaning that the object is 
active, it erases and redraws it. 

Ecrunch: If the explosion is still active 
(Ecount is greater than zero), it decre- 
ments Ecount and draws the explosion 
with Heolor=Ecount. 

Mcrunch: If the missile is active (Mactive is 
greater than zero), it moves and erases it. 
Then it decrements Mactive. If Mactive is 
still greater than zero, it redraws the mis- 
sile at its new position. 

Pcrunch: Moves the player. If a key was 
pressed, it resets the keyboard strobe and 
takes the appropriate action for that key. If 
Pxvel or Pyvel was changed, it makes sure 
that they are still wi. hin the legal limits of 
-3 and 3. If a missile was shot, it initializes 
the missile’s position and initializes Mac- 
tive. Finally, it erases the player and re- 
draws him. 

Mcheck: Checks for a collision between the 
missile and all active objects. If there was 
one, it jumps to Mcollide. 

Pcheck: Checks for a collision between the 
player and all active objects. If there was 
One, it jumps to Pcollide. 

Mcollide: Initializes the explosion to be at the 
position of the object that was destroyed. 
Sets the code of that object to 2, rendering 
it inactive. Increments the score by one, 
then prints it, using the Applesoft routine 
to print a floating-point number. Sets Mac- 
tive to zero. Erases the missile and the 
object. 

Pcollide: Sets Rtncode to 1. For Temp2=$20 
to zero, it draws the player with Hcolor= 
Temp2, moves everything else around the 
screen, and makes an explosion sound. 
After it has done this, and the player is 
gone, it moves everything else around the 
screen $40 more times. 

Sound: Makes a noise. The pitch depends on 
the value of the variable tone. 

Lastobj: Moves everything around the screen 
$20 times, waiting for the last object’s 
explosion to disappear. 

Wait: Delay routine. The time of the delay 
depends on the value of [Max-Num]. 


continued on next page 
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QUASAR II: A Machine 
Language Arcade Game (Cont.) 


MACHINE LANGUAGE VARIABLES 


APPLE ROUTINES AND ADDRESSES USED 

Kybd: location to read keyboard 

Strobe: resets keyboard strobe 

Hcolor: sets Hcolor to contents of X-register 

Hposn: positions hi-res cursor. Sets X and ‘i 
registers to the horizontal coordinate 
(X=low, Y=high), and puts the vertical 
coordinate in the accumulator. 

Draw: Draws a shape at the position of the 
Hi-Res cursor. Sets the X and Y registers 
to the starting address of the shape you 
want drawn (the address of the shape, not 
the address of the whole table); X=low, 
Y=high. Puts the desired rotation in the 
accumulator. 

Hplot: Identical to Hposn, except that it plots 
a point at the location given. Setup the 
same as Hposn. 

Ch: text cursor’s horizontal displacement 
from left of text window. 

Taby: text cursor’s vertical position. 

Prntfac: prints the contents of the floating- 
point “accumulator” (locations $9D-$A3) 
at the current text cursor position. 

Givayf: puts the two-byte hex number defined 

by the A and Y registers into the floating- 

point “accumulator” (A=Isb, Y=msb). 

note***: For more details on how to call 
and use the routines mentioned above, | 
recommend William F. Luebbert’s book, 

What’s Where In The Apple, and Roger 

Wagner's Assembly Lines columns in Softalk 

magazine. 


ete 


EXPLOSION VARIABLES 
Ex: explosion x position 
Ey: explosion y position 
Ecount: number of turns left until the explo- 
sion ends. Also, the Hcolor used when the 
explosion is drawn in this turn. 


OTHER VARIABLES 
Score: two bytes used to hold the player 
score: 0-65025. 


Index: temporary variable used to index 


arrays. 

Char: keyboard input 

Tone: pitch of sound to make when the sound 
routine is called. 

Num: current number of active objects left. 

Rtncode: condition of return to Applesoft. 
1=player destroyed, 2=all objects des- 
troyed (advance to next quadrant). 

Max: maximum number of objects on-screen. 
The number of objects that are active 
when you first move into a new quadrant. 

Temp, Temp2, Temp3: temporary variables 
used in many ways. 


APPLESOFT VARIABLES 

A$: user response to questions 

I: Index. A temporary variable used while 
generating random numbers. 

Nu: number of objects to put in current quad- 
rant. Linearly related to Q. 

Q: number of current quadrant 

S: number of ships left 

SP: current maximum allowable speed for the 
debris in the quadrant. Linearly related to 
Q. 

X,Y: variables used to hold random numbers. 


OBJECT VARIABLES 

Xpos: object x-position array 

Ypos: object y-position array 

Xvel: object x-velocity array 

Yvel: object y-velocity array 

Color: array of Hcolors to draw the objects in 

Code: array of objects’ codes:1=move, erase, 
draw, and check for collisions with the 
missile and the player. 2=move only; do 
not check for collisions. 

XX: object xpos 

YY: object ypos 

XV: object xvel 

YV: object yvel 

Tcol: object Hcolor 

Tcode: object code 


PLAYER VARIABLES 
Pxpos: player x position 
Pypos: player y position 
Pxvel: player x velocity 
Pyvel: player y velocity 
Opxpos: player's former x position 
Opypos: player's former y position 


MISSILE VARIABLES 

Mactive: number of turns left until the missile 
disappears. If Mactive is zero, then the 
missile is inactive. 

Mx: missile x position 

My: missile y position 

Mxvel: missile x velocity 

Myvel: missile y velocity 

Omx: missile’s former x position 

Omy: missile’s former y position 





Quasar Basic 

by Brent Iverson 
Copyright © 1982 

by Micro SPARC Inc. 


4146 POKE 28512 + 1,X 
415@ Y = RND (1) * SPD + 1: IF RND (1) ¢ .5 THEN Y = 2 


36> ¥ 


4168 POKE 28528 + 1,Y 
4178 X = INT ¢ RND (1) * 6 + 1): IF X = 4 THEN 4178 
4188 POKE 26544 + 1,X: POKE 28568 + I,1 


4198 NEXT 
@ PRINT CHRS$ (4)"BLOAD QUASAR.SHAPES*: PRINT CHRS® (4) 4288 POKE 28584,127: : 
Se aateemansmas: seaasia , : POKE 28585,88: POKE 28586,8: POKE 


18 GOSUB 5eee 

28 GOSUB 4860 

38 CALL 146384 

48 ON PEEK (28686) GOSUB 2608,3000 

S@ GOTO 28 

1999 REM ---SHIP DESTROYED 

2868 S = S - 1: VTAB 22: HTAB 39: PRINT 8; 
2618 IF S > @ THEN RETURN 


E TO PLAY AGAIN?";: POKE - 16368,@: GET AS 


2838 IF A$ = "N* THEN HOME ; END 
2848 GOTO 18 

2999 REM ---QUADRANT CLEARED 
3008 @=O+1 


3828 RETURN 
3999 REM ---INIT,PART 2 
4886 HGR : VIAB 22: HTAB 1 


4018 PRINT *SCORE:"; SPC( 6);"QUADRANT:"; SPC( 4);"SHIP 5e8e "PRINT : PRINT * 


S LEFT:*; 


4828 HTAB 7: PRINT PEEK (20686) + PEEK (20601) * 254; 


4218 POKE 26598,8: POKE 28599,8: POKE 28685,NUM: POKE 2 
0606,8: POKE 204687,NUM 

4228 POKE - 16368,8 

4238 VTAB 23: HTAB 1: CALL - 868 


4248 RETURN 


4999 REM ---INIT,PART 1 

5866 = POKE 28668,8: POKE 20681,8:Q = 1:S = 3: SCALE= 1 
5016 TEXT : HOME : NORMAL : POKE 21 

2626 POP : TEXT : VIAB 23: HTAB 4: PRINT “WOULD YOU LIK 5826 HOME : INVERSE : HTAB 16: PRINT  *GUMOAR J* CHRS (9 


1): NORMAL 


5636 VTAB 3: HTAB 12: PRINT “BY BRENT IVERSON" 
5848 VTAB S: HTAB 6: PRINT “WOULD YOU LIKE INSTRUCTIONS 
?*;: GET AS: HTAB 1: CALL - 868 


“we ' 
3018 VTAB 23: HTAB 8: PRINT “ADVANCING TO QUADRANT "Q; 3068 VIAe 31 TA 1 ne 


DEEP IN THE ANDROMEDA NEBULA, A QUA 


5078 PRINT * 


RETURN 


SAR HAS EXPLODED, SPREADING DEBRIS INALL DIRECTIONS 


YOUR MISSION 1S TO ENTER THE NE 


BULA, CLEARING AS MANY QUADRANTS OF DEBRIS AS YOU CA 
N WITH THE THREE SHIPS ALLOTTED TOYOU." 


se ane ah PRINT Q;: HTAB 39: PRINT Sj site PRINT "sce b)*—— == BCE BLS ral la 
= +@ SUMUMORIS THEN MU TS emrtiOl Banta 16 MIR GORY Nats Gen ; 
405@ SPD = a / ai IF poet ; a THN SPD = 4 art dae alc EBS tv Be 
ep tPA = 6 70 148 PRINT SPC( 11)".* SPC( 14)*."* 
515@ PRINT "As. .D" > 
4078 ia INT ¢ RND (1) * 4 + 1) GOTO 4988,4098,4100,411 5168 PRINT chie ri . piece sex 
4080 X = RND (1) * 248 + 18:Y = RND (1) # 5+ rei So I hea ag Se dh IE. 
cine 5: GOTO 5188 PRINT : PRINT * EACH PARTICLE OF DEBRIS THAT YO 


4098 
4168 
4116 


4128 
4138 


X = RND (1) * 5 4+ S5:1¥ = RND (1) * 148 4 18 

ae 1 GOTO 
X = RND (1) * 248 + 18:Y = 155 - RND (1) # 5: GOTO 
4120 

X = 258 - RND (1) * 5:¥ = RND (1) * 140 + 18 
POKE 26486 + 1,X: POKE 28494 + 1,Y 

X = RND (1) ® SPD + 1: IF RND (1) ¢ .5 THEN X = 2 
56 - X 
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U HITIS WORTH ONE POINT.* 


PRINT : PRINT SPC( 7)*<PRESS ANY KEY TO START) 
POKE - 16368,@: WAIT - 16384,128 
HOME : RETURN 


APPLESOFT PROGRAM 
DOCUMENTATION 

20: Bload the shape table and the machine 
language part of the game. 

20: Gosub 5000 and 4000 to print the instruc- 
tions and generate random numbers for a 
new quadrant of debris. 

30: Call the machine language part of the 
game. 

40: Look at the return code (held in memory 
location 20606) and take appropriate 
action. 

50: Go back to 20 to start out a new quadrant. 

2000: The return code must have been 1 for 
the program to get here, so the player’s 
ship must have been destroyed. Decre- 


ment the number of ships that he has left. 
If he has none left, then ask him if he’d like 
to play another game and take appropriate 
action for the response. 

3000: In order for the program to get here, the 
return code must have been 2, meaning 
that the player cleared another quadrant 
of debris. Add one to the current quadrant 
number (Q), print a message telling him 
what quadrant he is about to enter, and 
then return. 

4000: Initialization, part two. This routine is 
called every time the player is going to 
enter a new quadrant. It clears the screen, 
and then updates the display in the text 
window. It figures out the number of 


objects to put in the quadrant, and the new 
maximum speed of these objects. Then it 
generates the starting positions, veloci- 
ties, and colors for these objects. It initial- 
izes the player’s position and velocity, the 
missile counter, and a few other variables. 
It then resets the keyboard strobe, clears 
line 23 of the text window, and returns. 
5000: Initialization, part one. This is the initial- 
ization that takes place at the start of every 
game. It resets the number of ships, the 
quadrant number, and the score. It also 
presents the title page. If the player wants 
instructions, it gives them to him. Finally, 


it returns. 





5071: 63 MXVEL EQU $5971 
5072: 64 MYVEL EQU $5972 
QUASAR ¢ SHAPES 5073: 65 OMX EQU $5973 
5074: 66 OMY EQU $5074 
ae 4999: 67 8 
4390.345 4990: 68 & EXPLOSION VARIABLES 
4996: 69 & 
_ az 5975: 7@ EX EQU $5975 
G3GBG-— GX OG SB BH 16 BH 2D ae 5076: WAL ee ry ep 
BS88— 29 SE SEo27. 27.25 467 2 S077: 72 ECOUNT EQU $5977 
=4 A x 4900: 73% 
931G- 2E G7 BB 1C 27 FC 4D 26 4990: 74 * OTHER VARIABLES 
@318- 1C 27 FC 36 BF 3E B7 2D Bret, Se * 
: 76 SCORE EQU $5978 
B8S20— AE SS GE 240655926 25 38 507A: 77 INDEX EQU $597A 
9328- 97 94 1A 15 DF @9 F5 1A eee the foe an be 
@3398- 15 DF 22 DC 1A BC 84 18 597D: 89 NUM EQU $597D 
@338- 67 98 1C 4C 31 8D @C 94 plies ee as hae an 
BHS4G-— GHA BD 468 5G BG BO 5989: 83 TEMP EQU $5089 
5981: 84 TEMP2 EQU $5981 
5982: 85 TEMPS EQU $5982 
4969: 86 & 
4966: 87 g-----------~-~-~---~ 
4999: 88 * MAIN PROGRAM LOOP 
4GG9: 89 g-------------------~ 
SOURCE FILE: QUASAR. SOURCE 4909: 99 
9899: 1 CSREES ERTE ETE ETE EES 4909:26 31 49 91 START JSR OCRUNCH ;MOVE OBJECTS 
9996: 2 * QUASAR. OBJ * 4903:26 E9 48 92 JSR ECRUNCH ;ERASE & DRAW EXPLOSION 
9999: 3 * BY BRENT IVERSON * 4996:20 17 41 93 JSR MCRUNCH ;MOVE MISSILE 
9990: 4 * COPYRIGHT (C) 1982 * 4999:20 EB 42 94 JSR MCHECK 3;CHECK FOR COLLISIONS 
9996: S * BY MICRO-SPARC INC ¥ 499C:26 BF 41 95 JSR PCRUNCH ;MOVE PLAYER 
9999: 6 * LINCOLN, MA. 91773 * 490F:29 4F 43 96 JSR PCHECK ;CHECK FOR COLLISIONS 
9999: 7 * TOOLKIT ASSEMBLER * 4912:AD 7E 56 97 RTNCHK LDA RTNCODE  ;CHECK RTNCODE’S VALUE 
9999: GB PAESASS AAA AAR EAE E TES 4915:F9 O1 98 BEQ OKAY 3IF 9, THEN IT WASN’T SET 
----- NEXT OBJECT FILE NAME IS QUASAR.SOURCE.OBJa 4917:68 99 RTS 3;RETURN TO BASIC 
4989: 9 ORG $4969 4918:29 17 41 186 OKAY JSR MCRUNCH ;MOVE MISSILE AGAIN 
9999: 19 OBJ $4999 4G1B:29 EB 42 191 JSR MCHECK 3;CHECK FOR COLLISONS 
4999: 11 8 491E:AD 7D 59 192 NUMCHK LDA NUM 3;HOW MANY OBJECTS ARE LEFT? 
4999: 12 ¢-------~------------- 4921:D9 68 193 BNE END 31F>@, THEN SKIP THIS 
4986: 13 % APPLE ROUTINES AND ADDRESSES 4823:A9 @2 194 LDA #$62 3NO OBJECTS LEFT, SO 
4990: 14 #------~------------- 4925:8D 7E 59 105 STA RTNCODE ;SET RTNCODE AND 
4989: is: * 4928:4C B9 44 166 RETURN JMP LASTOBJ ;JMP TO LASTOBJ 
C898: 16 KYBD EQU s$CoeG 492B:28 EG 44 167 END JSR WAIT 3;SLOW EVERYTHING DOWN 
C919: 17 STROBE EQU $CG19 492E:4C 96 49 198 JMP START 3;DO IT ALL AGAIN 
F6FO: 18 HCOLOR EQU $sFéFo 431: 199 * 
F411: 19 HPOSN EQU $F411 4931: 11@ #--------------~----_ 
F6@1: 29 DRAW EQU $F691 4931: 111 % OCRUNCH 
F457: 21 HPLOT EQU $F457 4931: 112 #---~---------------- 
9924: 22 CH EQU $9924 4931: 113 8 
FBSB: 23 TABY EQU $FBSB 4931:A9 BO 114 OCRUNCH LDA #s$90 3 INDEX=9 
ED2E: 24 PRNTFAC EQU $ED2E 4933:8D 7A 58 115 STA INDEX 
E2F2: 25 GIVAYF EQU $E2F2 4@36:AE 7A 5@ 116 OCRUNCH2 LDX INDEX 3 ARRAY-— >TEMPS 
4900: 26% 4939:BD @@ 5@ 117 LDA xXPOS,x 3 XX=XPOS (INDEX) 
4998: 27 &-------------------- 493C:8D 69 5@ 118 STA XX 
4999: 28 * VARIABLES 4@3F:BD 19 5@ 119 LDA yPos, x 3 YY=YPOS ( INDEX) 
4999: 29 $-------------------- 4942:8D 61 5@ 120 STA YY 
4990: 39 8 4045:BD 20 5@ 121 LDA XVEL,x 3 XV=XVEL (INDEX) 
4999: 31 % OBJECT VARIABLES 4948:8D 62 5@ 122 STA xv 
4969: 328 494B:BD 38 5@ 123 LDA YVEL,X 3 YV=YVEL (INDEX) 
5090: 33 XPOS EQU $5900 404E:8D 63 5@ 124 STA YV 
5819: 34 YPOS EQU $5019 4951:BD 40 50 125 LDA COLOR,X 5 TCOL=COLOR( INDEX) 
5929: 35 XVEL EQU $5929 4054:8D 66 5@ 126 STA TCOL 
59390: 36 YVEL EQU $5930 4957:BD 50 5@ 127 LDA CODE,X 3 TCODE=CODE ( INDEX) 
5640: 37 COLOR EQU $5040 4950:8D 67 5@ 128 STA TCODE 
5050: 38 CODE EQU $5950 495D: 129 8 
4990: 39 4 495D: 130 * FIND TX AND TY 
5969: 4D XX EQU $5860 495D: i3i s 
561: #1 XV EQU $5061 495D:AD 69 5@ 132 OCALC LDA xXx 3 TX=XX#XV 
5662: 42 XV EQU $5062 4969:18 133 cic 
5@63: 43 YV EQU $5963 4961:6D 62 5@ 134 apc xv 
5064: 44 TX EQU $5064 4964:8D 64 5@ 135 STA TX 
5965: 45 TY EQU $5965 4067:AD 61 5@ 136 LDA YY 3 TY=YY+YV 
5066: 46 TCOL EQU $5966 496A: 18 137 cLe 
5067: 47 TCODE EQU $5967 496B:4D 63 59 138 apc YV 
4999: 484 496E:8D 65 58 139 STA TY 
4909: 49 * PLAYER VARIABLES 4971: 148 & 
4999: 5o * AG71: 141 * SEE IF IT WENT OFFSCREEN 
5668: 51 PXPOS EQU $5668 4071: 142 8 
5069: 52 PYPOS EQU $5969 4971:C9 95 143 OPCHK1 CMP #$¢5 3 TY<5? 
506A: 53 PXVEL EQU $596A 4973:B@ OC 144 BCS OPCHK2 3NO 
SO6B: 54 PYVEL EQU $596B 4875:A9 9A 145 LDA #$9A YES, SO WRAP 
5@6C: 55 OPXPOS EQU $596C 4977:18 146 GLE 
5@6D: 56 OPYPOS EQU $566D 4978:6D 63 50 147 ADC YV 
4990: 57 8 497B:8D 65 5@ 148 STA’ TY 
4999: 58 * MISSILE VARIABLES 497E:4C BE 49 149 JMP OACTIVE 
4099: 59 8 4981:C9 9A 15@ OPCHK2 CMP #$9A 3 TY>$9A? 
S5O6E: 69 MACTIVE EQU $566E 
SO6F: 61 MX Ee, sa06r continued on next page 
5979: 62 MY EQU $5976 
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QUASAR II: A Machine 


Language Arcade Game (Cont.) 


4983:99 99 151 BCC OACTIVE 3NO 
4985:A9 @5 152 LDA #885 

4987:18 153 cLc 

4966:6D 63 58 154 aDC YV 

4968B:8D 65 5@ 155 STA TY 

498E: 156 8 

498E: 157 * SEE IF IT IS ACTIVE 
4O8E: 158 8 

498E:AD 67 5@ 159 OACTIVE LDA TCODE 

4991:C9 @1 169 CMP #$81 

4993:FO8 OS 161 BEQG OERASE 
4095:4C CB 4@ 162 JMP OQUPDATE 3NO, SO DON’T 
4098: 163 # 

4998: 164 & IF ACTIVE ERASE & DRAW IT 
4998: 165 8 

4998:A2 OO 166 OERASE LDX #860 

489A:28@ FO FE 167 JSR HCOLOR 
499D:AE 68 SO 168 LDX Xx 

49AG: AB BO 169 LDY #$280 

49A2:AD 61 58 178 LDA YY 

49A5:26 11 F4 171 JSR HPOSN 

49AB:A2 BB 172 LDX #808 

4BAR: AD BS 173 LDY #883 

4BAC: AP OO 174 LDA #3800 ;ROT=08 
4GAE:29 @1 F& 175 JSR DRAW 

49B1:AE 66 5@ 176 ODRAW Lpx TCOL 

49B4:26 F@ F& 177 JSR HCOLOR 
40B7:AE 64 59 178 LDX TX 

ABBA: AG OO 179 LDY #890 

4@BC:AD 65 SO 188 LDA TY 

4@BF:28 11 F4 181 JSR HPOSN 

49C2:A2 68 162 LDX #$98 

48C4:AB OS 183 LDY #$93 

48CE:AP BO 184 LDA #990 ;ROT=9 
49C8:26 @1 F& 185 JSR DRAW 

49CB:AE 7A 5@ 186 OUPDATE LDX INDEX 

4@CE:AD 64 58 187 LDA TX 

49D1:9D 66 58 188 STA xXPOS,X 
49D4:AD 65 5@ 189 LDA TY 

49D7:9D 16 5S® 196 STA YPOS,X 

46DA: 191 & 

49DA: 192 % INCREMENT INDEX 

4@DA: 193 8 

4ODA:EE 7A 5B 194 INC INDEX 

48DD:AD 7A 58 195 LDA INDEX 

48E9:CD 7F SB 196 CMP MAX 

49E3:B8 93 197 BCS OEND 

40ES:4C 36 49 198 JMP OCRUNCH2 ;NO, SO DO IT AGAIN 
40E8: 199 8 

49E8: 268 8 THAT IS ALL 

49E8: 261 & 

49£8: 68 282 OEND RTS 

4GE9: 263 

49E9: 264 & 

AGES: 265 &-—----—-----—--------- 
40E9: 286 & EXPLOSION ROUTINE 

49E9: 287 %*----—--—-------------~— 
4BED: 208 & 

49E9:AD 77 5@ 269 ECRUNCH LDA ECOUNT 
49EC:FS 28 216 BE@ EEND 

4@EE:CE 77 58 211 DEC ECOUNT 
4OF1:AE 77 5B 212 LDX ECOUNT 

40F 4:26 FO FH 213 JSR HCOLOR 
4OF7:ARE 75 5B 214 LDX EX 

4OFAIAS BG 215 LDY #899 

49FC:AD 76 5G 216 LDA EY 

4OFF:20 11 F4 217 JSR HPOSN 

4192:AG OS 218 LDY #$93 

4164:A2 2D 219 LDX #$2D 

4186:A9 68 228 LDA #390 3;ROT=6 
4108:28 61 F& 221 JSR DRAW 

419B:AD 77 58 222 LDA ECOUNT 
419E:49 FF 223 EOR #$FF 

4118:8D 7C 58 224 STA TONE 

4113:28 9D 44 225 JSR SOUND 

4116: 226 8 

4116: 227 $ THAT IS ALL 

4116: 2268 8 

4116:68 229 EEND RTS 

4117: 238 & 

4117: 231 &%-----—---—----------- 
4117: 232 &% MCRUNCH 

4117: 233 %-----------~--~--~--- 
4117: 234 8 

4117:AD 6E 5@ 235 MCRUNCH LDA MACTIVE 3 MACT IVE >3? 
411A:D® 61 236 BNE MSAVE ;YES 
411C:69 237 RTS 3NO, 
411D: 238 ¢ 

411D: 239 & SAVE CURRENT POSITION 
411D: 246 & 

411D:AD 6F 56 241 MSAVE LDA MX 5 OMX =x 
4126:8D 73 5@ 242 STA OMX 

4123:AD 76 58 243 LDA MY 

4126:8D 74 S® 244 STA OMY 

4129: 245 8 

4129: 246 & FIND NEW POSITIONS 

4129: 247 & 

4129:AD 6F 5@ 248 MCALC LDA MX 

412C:18 249 CLc 

412D:46D 71 58 256 ADC MXVEL 

4136:8D 6F 58 251 STA Mx 

4133:18 252 CLC 

4134:AD 76 58 253 LDA MY 

4137:6D 72 5@ 254 ADC MYVEL 

413A:8D 76 58 255 STA MY 

413D: 256 8 

413D: 257 & CHECK BOUNDARIES 

413D: 258 4% 

413D:AD 78 50 259 MPCHK1 LDA MY 

41490:C9 @5 268 CMP #895 3MY<5? 
4142:B8 OC 261 BCS MPCHK2 3NO 


4144:A9 9A 262 LDA #390 
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;YES,SO WRAP 


; TCODE=17 


3YES,SO ERASE&DRAW IT 


;HCOLOR=0 


;POSITION CURSOR 


3POINT TO SHAPE #1 


;ERASE IT 


3 HCOLOR=TCOL 


;POSITION CURSOR 


3POINT TO SHAPE#1 


;DRAW IT 
3 XPOS (INDEX) =TX 


3 YPOS (INDEX) =TY 


3 INDEX=INDEX+1 


3 INDEX >=MAX? 
;YES, SO END 


3I1F ECOUNT=@ THEN END 
3 ECOUNT=ECOUNT—1 
3 HCOLOR=ECOUNT 


3POSITION CURSOR 


3POINT TO SHAPES#S 


3DRAW EXPLOSION 
$ TONE=255-ECOUNT 


3MAKE NOISE 


3 OMY=My 


3 MX=MX+MXVEL 


7 MY=MY+MYVEL 


7YES, SO WRAP 


4146:18 
4147:6D 
414A:8D 
414D:4C 
415@:C9 
4152:90 
4154:A9 
4156:18 
4157:6D 
415A:8D 
415D: 

415D: 

415D: 

415D:A2 
415F:28 
4162:AE 
4165:AG 
4167:AD 
416A: 28 
4146D:CE 
4178:AD 
4173:FO 
4175:A2 
4177:20 
417A: AE 
417D: Ae 
417F:AD 
4182:20 
4165:AD 
4188:8D 
418B:20 
418E: 40 
416F: 

418F: 

416F: 

416F: 

416F: 

416F: 

418F:AD 
4192:8D 
4195:AD 
4198: 8D 
419B:AD 
419E:C9 
41A0: BO 
41A2:4C 
41AS:8D 
41A6:8D 
41 AB: AP 
41AD:CD 
41B8:D@ 
41B2:CE 
41B5:4C 
41B8:A9 
41BA:CD 
41BD:D@ 
41BF:CE 
41C2:4C 
41C5:a9 
41C7:CD 
41CA:D@ 
41CC:EE 
41CF:4C 
41D2:A9? 
41D4:CD 
41D7:De 
41D9:EE 
41DC:4C 
41DF:AD 
41E2:C9 
41E4:99 
41E6:4C 
41E9: Ag 
41EB:CD 
4i1EE:De 
41F8:A9 
41F2:8D 
41F5:a9 
41F7:68D 
41FA:4C 
41FD:A9 
41FF:CD 
4262:D8 
4204:A9 
4206:8D 
4209:A9 
420B:8D 
420E: 4C 
4211:A9 
4213:CD 
4216:D8 
4218:A9 
421A:8D 
421D:Aa9 
421F:68D 
4222:4C 
4225:A9 
4227:CD 
422A:FO@ 
422C:4C 
422F:A9 
4231:8D 
4234:A9 
4236:8D 
4239: 4C 
423C: 

423C: 

423C: 

423C:AD 
423F 236 
4241:C9 
4243:99 
4245:A9 
4247:8D 
424A: 4C 
424D:C9 
424F:BO 
4251:A9 
4253: 8D 


56 
41 


bs] 
5@ 


Sa28 


42 


Se 


42 


Se 


5@ 
42 


cLc 
ADC MYVEL 
STA MY 


MP MERASE 


MPCHK2 CMP #$9A 
BCC MERASE 
LDA $95 
CLC 
ADC MYVEL 
STA MY 


* 
* ERASE MISSILE 
s 


MERASE LDX #$69 
JSR HCOLOR 
LDX OMX 
LDY #8060 
LDA OMY 
JSR HPLOT 


DECREM DEC MACTIVE 
LDA MACTIVE 
BE@ MEND 


MDRAW LDX #8983 
JSR HCOLOR 
LDX MX 
LDY #860 
LDA MY 
JSR HPLOT 
MSOUND LDA MACTIVE 
STA TONE 
JSR SOUND 
MEND RTS 
a 
ernest nt anime rereliriniiasinean 
% PCRUNCH 
Brite rettnrnisettennennicneinioees 
& SAVE OLD POSITION 
s 
PCRUNCH LDA PXPOS 


STA OPXPOS 


LDA PYPOS 
STA OPYPOS 
GETKEY LDA KYBD 
CMP #889 
BCS GOTKEY 
JMP PCALC 


GOTKEY STA STROBE 
INTERP STA CHAR 


KEYW LDA #$D7 
CMP CHAR 
BNE KEYA 
DEC PYVEL 
IMP CHKYV 
KEYA LDA #$C1 
CMP CHAR 
BNE KEYD 
DEC PXVEL 
JMP CHKXKYV 
KEYD LDA #$C4 
CMP CHAR 
BNE KEYX 
INC PXVEL 
JMP  CHKXV 
KEYX LDA #sDe 
CMP CHAR 
BNE CHKMA 
INC PYVEL 
JMP CHKYV 
CHKMA LDA MACTIVE 
CMP #891 
BCC KEYI 
JMP PCALC 
KEYI LDA #$C9 
CMP CHAR 
BNE KEYJ 
LDA #@sFC 
STA MYVEL 
LDA #800 
STA MXVEL 
JMP ACTIVE 
KEYJ LDA #$CA 
CMP CHAR 
BNE KEYL 
LDA #806 
STA MYVEL 
LDA SFC 
STA MXVEL 
JMP ACTIVE 
KEYL LDA #sCC 
CMP CHAR 
BNE KEYCOM 
LDA #800 
STA MYVEL 
LDA #864 
STA MXVEL 
JMP ACTIVE 
KEYCOM LDA #$AC 
CMP CHAR 
BE@ ISCOM 
NONE JMP PCALC 
ISCOM LDA #800 
STA MXVEL 
LDA #904 
STA MYVEL 
JMP ACTIVE 


* CHECK PXVEL OR PYVEL 
s 


CHKXKY LDA PXVEL 


BMI CHKVELK2 
CHKVELK1 CMP #604 
BCC PCALC 
LDA #863 
STA PXVEL 
JMP PCALC 
CHKVELX2 CMP #$FD 
BCS PCALC 
LDA #SFD 
STA PXVEL 


3MY>S9A? 
3NO 
;YES, SO WRAP 


;HCOLOR=6 
;POSITION CURSOR 
;ERASE MISSILE 
;MACTIVE=MACTIVE-1 
;MACTIVE+1=07 
;YES, SO SKIP 

3;NO, SO DRAW IT 


3; HCOLOR=3 
;POSITION CURSOR 


;DRAW IT 
; TONE=MACTIVE 


3MAKE NOISE 


3; OPXPOS=PXPOS 

3 OPYPOS=PYPOS 
3;KEY PRESSED? 

3; YES 

3;NO 

;RESET STROBE 

7; STORE KEY-—CODE 
3; CHAR="W"? 


3NO 
3;PYVEL=PYVEL-1 


3 CHAR="A"? 


3;NO 
3PXVEL=PXVEL-1 


3 CHAR="D"? 


3;NO 
3 PXVEL=PXVEL+1 


3 CHAR="X"? 


3NO 
3PYVEL=PYVEL+1 


sMACTIVE >? 
3NO, SO CHECK OUT OTHER KEYS 
;MACTIVE>@, SO DON’T BOTHER 
3; CHAR="I1"7 


3NO 
3MYVEL=-4 


sMXVEL =o 


+ CHAR#="J"? 


3NO 
sMYVEL=8 


sMXVEL=—4 


3 CHAR="L"? 


3NO 
+MYVEL =o 


sMXVEL=4 


sPXVEL<@ 
3 PXVEL >3? 


3 PXVEL<-32 
3NO 
+YES, SO INCREASE 


4256: 4C 
4259:AD 
425C: 38 
425E:C? 
4260:99 
4262:A9 
4264:8D 
4267:4C 
426A:C9 
426C: Be 
426E: AP 
42798:8D 
4273:4C 
4276: 

4274: 

4276: 

4276:AD 
4279:8D 
427C:AD 
427F:8D 
4282:A9 
4284:8D 
4287: 

4287: 

4287: 

4287:18 
4288: AD 
428B:6D 
428E:8D 
4291:18 
4292:AD 
4295: 6D 
4298: 8D 
429B: 

429B: 

429B: 

429B:C9 
429D: Bd 
429F :AG 
42A1:18 
42A2:6D 
42A5:6D 
42A8: 4C 
42AB:C9 
42AD:99 
42AF:AP 
42B1:18 
42B2:6D 
42B5:8D 
42B8: 

42B8: 

42B8: 

42B8:A2 
42BA: 29 
42BD: AE 
4209: AS 
42C2:AD 
42C5: 28 
42C8:A2 
42CA: AD 
42CC:A9 
42CE:28 
42D1: 

42D1: 

42D1: 

42D1:A2 
42D3: 28 
42D6: AE 
42D9: AS 
42DB: AD 
42DE: 28 
42E1:A2 
42E3: Ad 
42E5:A9 
42E7:28 
42EA: 

42EA: 

42EA: 

42EA: 69 
42EB: 

42EB: 

42EB: 

42EB: 

42EB: 

42EB:AD 
42EE:De 
42F 0:60 
42F1:A9 
42F3:8D 
42F6:AE 
42F9: BD 
42FC:8D 
42FF:BD 
43982:8D 
4385: BD 
4308: 8D 
436B: 38 
430C:AD 
430F:ED 
4312:C9? 
4314:99 
4316:C9 
4318:Bd 
431A:4C 
431D:38 
431E:AD 
4321:ED 
4324:C9 
4326: BO 
4328: AE 
432B:E9 
432D: Bd 
432F:4C 
4332:C9 
4334:99 
4336: AE 
4339:E9 
433B: BS 
433D:4C 


97 
FC 
@3 
49 


78 
61 
@4 
GA 
67 
92 
oS 
AD 
FC 
BA 
67 
92 
93 
AD 


42 
50 


nee 


28 


Fé 


Fé 


g 


SSssseae 


a8 


5o 


43 


Se 


43 


3PYVEL<O 
sPYVEL >3? 
3NO 


;YES, SO REDUCE 


pPYVEL<-37? 
3NO 


3YES, SO INCREASE 


3MX=PXPOS 
3MY=PYPOS 


3MACTIVE=814 


3 PXPOS=PXPOS+PX VEL 


3 PYPOS=PYPOS+PYVEL 


3PYPOS<5? 
3NO 
3YES, SO WRAP 


7PYPOS>$9A? 
3NO 


3YES, SO WRAP 


3 HCOLOR=9 


3;POSITION CURSOR 


3POINT TO SHAPE#2 


3ROT=9 
;ERASE PLAYER 


; HCOLOR=3 


;POSITION CURSOR 


;POINT TO SHAPE#2 


;ROT=6 
sDRAW PLAYER 


3MACTIVE=0?7 

3NO 

3;YES, SO RETURN 

3 INDEX=8 

3 TCODE=CODE ( INDEX) 
3 XX=XPOS ( INDEX) 

3 YY=YPOS ( INDEX) 


BMX—XX< 4? 


JMP = PCALC 

CHKYV LDA PYVEL 
BMI CHKVELY2 

CHKVELY1 CMP #964 
BCC PCALC 
LDA #$93 
STA PYVEL 
JMP PCALC 

CHKVELY2 CMP @SFD 
BCS PCALC 
LDA #*#$FD 
STA PYVEL 
gmp = PCALC 

s 

8 MISSILE NOW ACTIVE! 

* 

ACTIVE LDA PxXPOS 
STA MX 
LDA PYPOS 
STA MY 
LDA $14 
STA MACTIVE 

’ 

® CALCULATE NEW POSITION 

* 

PCALC CLC 
LDA PXPOS 
ADC PXVEL 
STA PXPOS 
CLC 
LDA PYPOS 
ADC PYVEL 
STA PYPOS 

s 

% CHECK FOR BORDERS 

z 

CHKTOP CMP #825 
BCS CHKBOT 
LDA #$9A 
cLCc 
ADC PYVEL 
STA PYPOS 
JMP ERASEPL 

CHKBOT CMP #$9A 
BCC ERASEPL 
LDA #895 
cLC 
ADC PYVEL 
STA PYPOS 

s 

% ERASE THE PLAYER 

s 

ERASEPL LDX #889 
JSR HCOLOR 
LDxX OPXPOS 
LDY #3899 
LDA OPYPOS 
JSR HPOSN 
LDX #$16 
LDY #$83 
LDA #869 
JSR DRAW 

s 

& DRAW THE PLAYER 

s 

DRAWPL LDX #893 
JSR HCOLOR 
LDX PXPOS 
LDY #890 
LDA PYPOS 
JSR HPOSN 
LDX $16 
LDY #3893 
LDA #800 
JSR DRAW 

s 

& WE’RE DONE! 

2 

PEND RTS 

s 

s ——-—-—-—-— - - -— - - - - - - 

& MCHECK 

i —a 

. 

MCHECK LDA MACTIVE 
BNE MCHECK1 
RTS 

MCHECK1 LDA #899 
STA INDEX 

MCHECK2 LDX INDEX 
LDA CODE,X 
STA TCODE 
LDA XPOS,X 
STA XX 
LDA YPOS,X 
STA YY 

MCHECKX1 SEC 
LDA MX 
SBC XX 
CMP #804 


BCC MCHECKY1 
MCHECKX2 CMP #$FC 
BCS MCHECKY1 


JMP MCHECKS 
MCHECKY1 SEC 

LDA MY 

SBC YY 

CMP #904 

BCS MCHECKY2 

LDX TCODE 

CPX $62 

BCS MCHECKY2 

JMP MCOLLIDE 
MCHECKY2 CMP #$FC 

BCC MCHECKS 

LDX TCODE 

CPX #$92 

BCS MCHECKS 

JMP MCOLLIDE 


3 YES 

3 MX—XX>SFC? 

3YES 

3NO, SO NO COLLISION POSSIBLE 
3MY-YY<4? 


3NO 

,VES 

31S OBJECT ACTIVE? 
3NO 

3YES, SO IT COLLIDED 


3MY-YY >$FC? 

3NO, SO NO COLLISION POSSIBLE 
3; YES 

31S OBJECT ACTIVE? 

3NO 


;YES, SO IT COLLIDED 


4349:EE 
4343:AD 
4346:CD 
4349: BO 
434B:4C 
434E: 460 
434F: 

4S4F: 

4S4F: 

4S4F: 

4A34F: 

434F2A9 
4351:8D 
4354: AE 
4357: BD 
435A: 8D 
435D: BD 
43690: 8D 
4363: BD 
4366:8D 
4369:38 
436A: AD 
436D:ED 
4370:C9 
4372:96 
4374:C9 
4376:Bo 
4378:4C 
437B:38 
437C:AD 
437F:ED 
4382:C9 
4384: B® 
4386: AE 
4389:Eo 
438B: Ba 
438D: 4C 
4398:C9 
4392:99 
4394:AE 
4397:E9 
4399: BO 
439B:4C 
439E:EE 
43A1:AD 
43A4:CD 
43A7:BO 
43A9:4C 
43AC: 69 
ASAD: 

43AD: 

43AD: 

43AD: 

43AD: 

43AD: AD 
43B9:FO 
43B2:A2 
43B4: 29 
43B7:AE 
43BA: Ad 
43BC:AD 
ASBF: 20 
43C2:A2 
4304: AG 
43C6:A9 
43C8: 28 
43CB:AD 
43CE:8D 
43D1:AD 
43D4:8D 
43D7:A9? 
43D9:8D 
43DC: AE 
43DF:A9 
43E1:9D 
43E4:CE 
43E7:168 
43E8:AD 
43EB: 469 
43ED: 8D 
43F 8:96 
43F2:AD 
ASF5:3 69 
43F7:8D 
4SFA: AC 
43FD:AD 
4408: 20 
44031 A9 
4405:65 
4407:A9 
4409: 20 
449C: 28 
440F AD 
4411:8D 
4414:A2 
4416:20 
4419: AE 
441C: AG 
441E:AD 
4421:20 
4424: AE 
4427: AB 
4429:AD 
4420: 26 
442F2:A2 
4431:A0 
4433:A9 
4435: 20 
4438: 49 
4439: 

4439: 

4439: 

4439: 

4439: 

443923 AP 
443B:8D 
4435E:A9 


7A 
7A 
ZF 
@3 
Fé 


@1 
rl 


56 
5@ 
5o 


42 


43 


58 


44 


Sse 


44 
56 
5@ 
59 


43 


50 


Fé 


5@1 MCHECK3 INC INDEX 
502 LDA INDEX 
593 CMP MAX 

504 BCS MCHECK4 
595 IMP MCHECK2 
5@6 MCHECK4 RTS 

597 & 

5@8 #-------------~------~ 
509 © PCHECK 

51g #---------~-~--------- 
Sli 8 

512 PCHECK LDA #890 
513 STA INDEX 
514 PCHECK2 LDX INDEX 
515 LDA XPOS, x 
516 STA XX 

517 LDA yYPOS, Xx 
518 STA YY 

519 LDA CODE, x 
520 STA TCODE 
521 PCHECKX1 SEC 

522 LDA PXPOS 
523 BEC 2K 

524 CMP #806 
525 BCC PCHECKY1 
526 PCHECKX2 CMP #$FB 
527 BCS PCHECKY1 
528 JMP = PCHECKS 
529 PCHECKY1 SEC 

530 LDA PYPOS 
531 SBC YY 

532 CMP #306 
533 BCS PCHECKY2 
534 LDxX TCODE 
535 CPX #$82 
536 BCS PCHECKY2 
537 JMP PCOLLIDE 
538 PCHECKY2 CMP #$FB 
539 BCC PCHECK3 
549 LDX TCODE 
541 CPX #$92 
542 BCS PCHECKS 
543 JMP PCOLLIDE 
544 PCHECK3 INC INDEX 
545 LDA INDEX 
546 CMP MAX 

547 BCS PCHECK4 
548 JMP PCHECK2 
549 PCHECK4 RTS 

55@ 8 

5S$1 #-------------------- 
552 % MCOLLIDE 

553 s-------------------- 
554 # 

555 MCOLLIDE LDA ECOUNT 
556 BEQ Pil 

557 LDX #s60 
558 JSR HCOLOR 
559 LDX EX 

569 LDY #$90 
561 LDA EY 

562 JSR HPOSN 
563 LDX #$2D 
564 LDY #$03 
565 LDA #899 
566 JSR DRAW 
567 Pil LDA XX 

568 STA EX 

569 LDA YY 

576 STA EY 

571 LDA #$9A 
572 STA ECOUNT 
573 LDX INDEX 
574 LDA #862 
575 STA CODE,X 
576 DEC NUM 

577 P9 cic 

578 LDA SCORE 
579 ADC #801 
5e8 STA SCORE 
561 BCC P16 

582 LDA SCORE+1 
5e3 ADC #860 
5e4 STA SCORE+1 
Ses P19 LDY SCORE 
586 LDA SCORE+1 
587 JSR GIVAYF 
568 LDA #866 
se? STA CH 

590 LDA #815 
591 JSR TABV 
592 JSR PRNTFAC 
593 LDA #00 
594 STA MACTIVE 
595 LDX #800 
596 JSR HCOLOR 
597 LDX MX 

598 LDY #360 
599 LDA MY 

600 JSR HPLOT 
601 LDX XX 

662 LDY #800 
683 LDA YY 

604 JSR HPOSN 
685 LDX #898 
606 LDY #$93 
607 LDA #3900 
608 JSR DRAW 
609 RTS 

618 & 

11 
612 % PCOLLIDE 

613 3-——-—________-____—_ 
614 8% 

615 PCOLLIDE LDA #$01 
616 STA RTNCODE 
617 P13 LDA #320 


3 INDEX=INDEX+1 


3 INDEX >=MAX? 

3 YES 

3NO, SO CHECK NEXT OBJECT 
3 RETURN 


3 INDEX=9 


3 XX=XPOS ( INDEX) 
3 YY=YPOS ( INDEX) 
3 TCODE=CODE ( INDEX) 


3 PXPOS-XX<6? 


;YES 

3 PXPOS-XX >SFB? 

3YES 

3NO COLLISION POSSIBLE 
3PYPOS-YY<6? 


3NO 

;YES 

31S OBJECT ACTIVE? 
3NO 

3;YES, SO COLLISION 
3 PYPOS-YY>$FB? 
3NO..NO COLLISION POSSIBLE 
3;YES 

31S OBJECT ACTIVE? 
3NO 

3YES, SO COLLISION 
3 INDEX=INDEX+1 

3 INDEX >=MAX? 


3 YES 


3NO, SO CHECK NEXT OBJECT 
; RETURN 


3 ECOUNT >8? 

3NO 

3YES, SO ERASE CURRENT EXPLOSION 
;HCOLOR=9 

3;POSITION CURSOR 


3POINT TO SHAPES®S 
3;ROT=9 

;ERASE IT 

3 EX=xX 

sEY=vYY 

3 ECOUNT=86A 


3 CODE ( INDEX) =2 


7 NUM=NUM—1 


3 INCREMENT SCORE 


3PUT SCORE IN Y 

3;PUT SCORE+1 IN A 
;PUT A&Y IN FP ACCUM 
sHTAB 7 

;VTAB $15 


3PRINT FP ACCUM 
;MACTIVE=6 


3; HCOLOR=9 
3;POSITION CURSOR 


jERASE MISSILE 
3PUT CURSOR AT OBJECT’S POS 


;POINT TO SHAPE@1 
3;ROT=90 


3ERASE OBJECT 
3 RETURN 


3 RTNCODE=1 
3 TEMP2=$20 
continued on next page 
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1 449D: 657 * 
QUASAR I: A Machine 449D:A9 8B 658 SOUND LDA #808 ; TEMP=0 
449F:8D 88 58 659 STA TEMP 
Lanquage Arcade Game (Cont.) SE ee panna eee ee 
q 4404:E8 641 SOUNDS INX aXex 
4405: BA 662 TXA 3 
44A6:CD 7C 58 663 CMP TONE } A=TONE? 
4409:98 FF 664 BCC SOUNDS NO, SO WAIT LONGER 
A4ABLAD 30 C@ 645 SOUND4 LDA $C@38 ;MAKE CLICK 
A4AE:EE 89 58 666 SOUNDS INC TEMP j TEMP=TEMP+1 
44B1:AD 89 5@ 647 LDA TEMP ; TEMP<37 
CHE # 
444¢:8D 81 58 618 STA TEMP2 pet ge ae 
A443:AE 81 58 619 P14 LDX TEMP2 ;HCOLOR=TEMP2 panes es ies aed ee Oe re cle 
4446:20 FOF 628 JSR HCOLOR nt acne pea ti SOUN ee Pe AGA 
4449:AE 68 58 421 LDX PXPOS ;POSITION CUR —_ - — TURN 
444C:AD BB 622 LDY #$99 pi id da a a 
Aa4E:AD 69 5B 423 LDA PYPOS — 2 pete 
4451:20 11 F4 624 JSR HPO — 7h Midas 
4454:A2 16 625 LDX #816 ;POINT TO SHAPEW2 pple oh Ce er I betes 
pease so ehh gone 44BB:8D 82 58 476 STA TEMPS 
eels eu pusadetakicn: able 44BE.28 31 48 477 LASTOBJ2 JSR OCRUNCH SLOW THINGS DOWN 
eee ee cece phish aaron Lactate, 44C1:28 E9 48 478 JSR ECRUNCH ;DRAW EXPLOSION 
AaSD:28 31 40 429 JSR OCRUNCH ;MOVE OBJECTS sacheae By oe ee aan EXPLOSIO 
4466:28 E9 48 638 JSR ECRUNCH DRAW EXPLOSION aaeerae 3y om MCRUNCH tev 
4463:28 17 41 631 JSR MCRUNCH ;MOVE MISS aireta ae a une am PCRLNEH — PLAYER 
4466:28 E® 44 632 JSR WAIT SLOW _1T DOWN eee oe ee san yal? NGE DOWN 
A469:AD 81 58 633 LDA TEMP2 ; TONE=TE pe on ms a 
446C:8D 7C 58 634 STA TONE cs saperhy Wee 20 Apa oon 
A46F328 9D 44 635 JSR SOUND SHAKE NOISE ane as Sees BTA i pew 
4472:CE 81 58 634 DEC TEMP2 5 TENP2=TEMP2 asvasen tua ee INC TEMPS EMPSSTEMPS 
4475:AD 81 58 437 LDA TEMP2 ;TEMP2+1 susp Sz ane Tee TEMP3>=8 
ae ceo no a4 44DD: 98 DF 688 BCC LASTOBJ2 ;NO, SO DO IT AGAIN 
Srna = cual AADF: 68 689 LASTOBJ3 RTS ;YES, SO RETURN TO MAIN LOOP 
447B:C9 @1 649 CMP 8se1 aa0F 287 LASTODIS RTS 
447D:B@ C4 641 BCS P14 ;YES aaeet pf gone 
AA7FZA9 OB 642 LDA e860 ;TEMP2=8 asees ay. WAIT 
4481:8D 81 58 643 T soins 
4484:28 31 40 644 P17 JSR OCRUNCH ;THE PLAYER HAS iets ae pe wal Pr wae 3 + 
4487:28 £9 49 445 JSR ECRUNCH — ; FINISHED EXPLODING, AMELIA 7 Se 64 LDA MAK ACCUM=MAX—NUM 
ceeds ta 44 aay nh Ment peel SON Enae ARCIND FOR AWHILE A4E73FO OB 696 P4 BEQ Pé IF MAX-NUMR® THEN SKIP TO END 
: = 
4496:EE 81 58 648 INC TEMP2 j TEMP2=TEMP2+1 4457102 FE “v7 LDX @9FE sXnere 
apa eatin “es ne aste oe 44EC:D@ FD 699 BNE PS SIF X28 THEN DO IT AGAIN 
: . 
4498:998 EA 651 BCC P17 ;NO, SO DO 17 SOME HORE thal A4EE: 38 708 sec } ACCUM=ACCUM— : 
= To : 
449A: 4C AC 43 652 JMP PCHECK4 ; JUMP asersev oi 781 SBC 8 
ween: aes A4F 4: 68 783 Pé RTS RETURN 6 
0 Sy le tnt or ee A 
4490: 655 # SOUND 
449D: Rack goo ee 
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DOS Command Entry Points 


By Mark Chatow 
6510 Le Bec Place 
Rancho Palos Verdes, 
CA 90274 


This disk protection method was developed 
as a backup to other protection methods. 
When a disk command is entered, it goes 
through the DOS keyboard input routine. 
Basically the routine checks to see if the 
entered command matches a standard com- 
mand in memory. If it does, then the routine 
checks for any names or numbers that must 
accompany the command. When itis finished 
checking, the routine retrieves the starting 
address of the command from a table. It then 
jumps to this starting address. The command 
is then executed. 


COMMAND CHANGING 

For example, when the LOAD command is 
executed, the routine checks for the name of 
the program to be loaded. It then jumps to 
A413(42003 in decimal). By changing the 
A413 byte to 4C you can jump to any location 
you wish, whenever the LOAD command is 
entered. Here is an example of how this could 
be used to protect a disk from unauthorized 
use: If the A413 byte is changed to 4C and 
then the starting address of the delete routine 
($A263) is given, you can change LOAD to 
DELETE. (Since the RUN command does a 
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LOAD and then goes to the starting address 
of the program loaded, you will automatically 
change the RUN command any time that you 
change the LOAD command.) 

In the monitor the change would look like 
this; A413:4C 63 A2. Notice that the address 
must be entered in “least significant-most 
significant” byte order. 


KEEP A LIST 

As you can see, it is easy to change com- 
mands to suit your tastes if you know their 
starting addresses. | have included a list of 
starting addresses for the DOS commands. 
After several changes, further command 
changing can get confusing, so it is a good 
idea to keep an organized list of the com- 
mands you have changed and what you have 
changed them to. 

Once the commands have been changed, 
you should insert a blank diskette in the disk 
drive. This is the disk that will have the protec- 
tion on it. If the disk is likely to be used by 
others, then an appropriate “HELLO” pro- 
gram should be used. Your HELLO program 
might print something such as, “Warning,. 
this disk has been protected against unauthor- 
ized usage.” This might scare the average 
user for fear of damaging the disk. It also 
serves as a reminder to you that the disk is 
protected. When you have finished the HELLO 
program, then initialize your disk. From then 
on the changes will be present every time you 
boot with that disk. 


| hope that the protection method de- 


scribed here is as helpful for you as it is for 
me. If followed correctly, it should keep the 
average user from tampering with your disks. 


COMMANDS ADDRESSES 
APPEND A298 
BLOAD A35D 
BRUN A38E 
BSAVE A331 
CATALOG AS6E 
CHAIN A4F0 
CLOSE A2EA 
DELETE A263 
EXEC AS5C6 
FP AS7A 
INIT AS4F 
IN# A22E 
INT AS9E 
LOCK A271 
LOAD A413 
OPEN A2A3 
PR# A229 
RENAME A281 
RUN* A413 
SAVE A397 
UNLOCK A275 
VERIFY A27D 


“RUN does aLOAD then jumps to the starting 


location of the program you are running. 
Changing LOAD will also change RUN. 


w 


continued from page 27 


TRAC-I the | S t 11200 FOR A = 30 TO 49 
ncome ys em 11210 IF ACCT$(A) = "" THEN Y = O: FOR X1 = 1 TO 12:Y = B 
Cc z AL(A,X1) + Y: NEXT Xi1 IF Y = 0 THEN GOTO 11280 
ont. 11220 PK = 1:V® = ACCT$(A): GOSUB 80 
11230 FOR X = 1 TO 12 
A 11240 IF BAL(A,X) = 0 THEN GOTO 11270 
9870 PRINT CHR® (9)3"40N" 11250 P = BAL(A,X): GOSUB 2400:PK = (X * 9) + 15 - CiV6 = 
9872 PRINT CHR® (2)3 CHR® (30) 
Coat nee STR$ (BAL(A,X)): GOSUB 80 
abe WRENS dae ae m8 11260 YTD(X) = YTD(X) + BAL(A,X) 
: dy" INCOME RECORDS 8", sRMOs"/"GR 11270 NEXT XsPK = O:SY = O: PRINT 
DY "7"sRYR 11280 NEXT A 
9885 IF OM = 3 THEN PRINT TAB( 7)3"SORTED ";AS 11290 FOR X = 1 TO 130: PRINT ' NEXT Xs PRINT 
‘ = 2 sal if | Fy 
9890 PRINT : PRINT "# &% REFERENCE & A® MM/DD AMT” 11300 PK = 1:V® = "g& TOTALS #8": GOSUB 80 
_— 11310 FOR X = 1 TO 12:P = YTD(X)s GOSUB 2400:PK = (X 8 9) 
Ras 2 EDR AS 2510/40: PRINT “eK ye NEXT XU PRINT + 15 - CrV® = STR® (YTD(X)): GOSUB 801 NEXT XiPK = 
9900 PGCT = 0 
IIIS POCT =P PGCT (eet Pe tet aah eee N PRIN 0) 
pita 
9910 IF PRTYPE = 1 AND PGCT > 16 THEN GOSUB 2800: HOME 5 See net cce ee Wh eae er so eee 
GOTO 9880: REM NEW PAGE 
11340 IF PB® = "2" THEN PRINT CHR® (27); CHR® (19) 
9915 A= A+ 1: IF A >R THEN GOTO 9955 ei 
11345 IF PBS = "3" THEN PRINT CHR® (146): REM TURN OF 
9920 PK = 1:V® = STR® (A): GOSUB 80 
F CONDENSED PRINT 
9925 PK = 5:V$ = W6(A,6)1 GOSUB 80 ae 
11350 PRINT CHR® (9)3"40N 
9930 PK = 20:V6 = W6(A,1)1 GOSUB GO 11360 PRINT D8; "PR#O" 
9935 PK = 24:V® = W8(A,3) + "/" + W6(A,4)» GOSUB 80 11400 WTEXT*/"BOTD 1000 
9940 W = VAL (WS(A,5))1TA = TA + W 
Sere ber Gh Becta eico me 12000 REM &&8 SCREEN PROFILE REPORT 
s 8 : = 36 -— C:VB = STR® (W)s GOSUB 8 12010 FOR X = 1 TO 12 STEP 3 
“ “ NT 
a 12020 HOME 1 HTAB 81 PRINT “# YTD INCOME PROFILE #8": PRI 
9955 PRINT :PK = 22:V® = "STOTALS&"s: GOSUB 80 , " 
12030 PRINT “INCOME DESC "yMNAMES (X) 3" y MNAMES ( 
9960 .- TA: GOSUB 2400:PK = 36 - CiV$ = STR® (TA): GOSUB Ke A)3" “)MNAMES (X + 2)1 PRINT 
12040 FOR A = 30 TO 49 
9965 IF PRTYPE = 1 THEN VTAB 24: INVERSE « INPUT "HIT RE 12650 EF ACRTELAi « «© THEN V0. 0s ERC WE = Kk 10 46 oe 
pe rene a ete © TERE Gets soe Y = Y + BAL(A,X1): NEXT Xi: IF Y = © THEN GOTO 12130 
9970 PRINT CHR® (9); "40N" , 
9900 Tuer w Garo i060 12060 PK = 0:V® = LEFT® (ACCT$(A),12)s GOSUB 80 
T AaG UMG eee Tlecieu PROE te 12070 F = BAL (A,X) GOSUB 24001PK = 16 - CiV® = STR® (BAL 
= = ke 
aes ee ee yer ee ye 12080 P = BAL(A,X + 1)1 GOSUB 2400::PK = 26 — C:V$ = STS 
i ’ (BAL(A,X + 1)): GOSUB 80 
10020 FOR X = 1 TO 12:YTD(X) = O: NEXT X: REM USE FOR MO 12090 P = BAL(A,X + 2)1 GOSUB 2400:PK = 36 - C1V$ = STRS 
NTH TOTALS (BAL(A,X + 2))1 GOSUB 8S 
10030 SW = 1: GOTO 2500: REM ADD INCOME DETAIL 12100 YTD(x) = YTD(x) + BAL(A,X) 
10040 SW = 4: GOTO 3000: REM LOAD ACCT NAMES 12110 YTD(X + 1) = YTD(X + 1) + BAL(A,X + 1) 
10050 IF PRTYPE = 1 THEN GOSUB 12000: REM SCREEN PROFIL 12120 YTD(X + 2) = YTD(X + 2) + BAL(A,X + 2) 
E RPT 12130 NEXT A 
11000 REM &%8 PRINTER PROFILE REPORT 12200 PRINT “ “PK = O:V$ = "8% TOTALS 88": GOSUB 80 
11010 PRINT D$;"PR#1" 12205 P = YTD(X)s GOSUB 2400:PK = 16 - CiV® = STRS (YTD(X 
11020 PRINT CHRS (9)3;"130N" ))2 GOSUB 80 
11025 IF PBS = "1" THEN PRINT CHR® (2)3 CHR® (31) 12210 P = YTD(X + 1): GOSUB 2400:PK = 26 - C:V$ = STR (Y 
11030 IF PBS = "2" THEN PRINT CHR$ (27); CHR$ (20) TD(X + 1))3 GOSUB 80 
11035 IF PBS = "3" THEN PRINT CHR$ (15) 12220 P = YTD(X + 2): GOSUB 2400:PK = 36 - C:V$ = STRS (Y 
11100 PK = 50:V$ = “YEAR-TO-DATE INCOME PROFILE " + STR$ TD(X + 2))2 GOSUB 85 
(RMO) + "/" + STRS (RDY) + "/" + STR® (RYR): GOSUB 12240 VTAB 23: INVERSE 1 PRINT “HIT ANY KEY TO CONTINUE"; 
85 : GET X$: NORMAL 
11110 POKE 36,0: PRINT : PRINT “INCOME DESCR’ "; TAB( 10) 12250 NEXT X 
yMNAMES (1) 5 12300 TEXT : GOTO 1000 
11120 FOR X = 2 TO 12: PRINT TAB( 07);MNAMES(X)52 NEXT X 20000 DATA JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, D 
: PRINT EC 
11130 FOR X = 1 TO 130: PRINT “="32 NEXT Xz PRINT a 
J 


Tap aay Ce ae ta es ee 


continued from page 85 







s s * s es 
Initializin Arrays with Sereeececacesssesesssses 
s s 
age t INITIA s 
pecific Values (Cont. : vn wont 
s P. FRANCOIS 8 
sar i. = 8 % 
EEE BOLE . cata se &% COPYRIGHT (C) 1982 & 
187 +: IS IT ANOTHER ARRAY TO INITIALIZE 7 ; MICRO-SPARCT, INC. : 
196° 5 
2GB70G 189 JSR RELGAD pRARSDASESSERSESSAS TESTES 
194 CMP 8.7 3USE THE SAME SPECIFIC VALUE LIST 
191 BEG LABLE ¥ 
192 CMP #SLASH 3 USES ANOTHER SPECIFIC VALUE 1@ POKE 1013.76: POKE 1014.0: POKE 1615.3: REM INITIALIZATION OF AMPERSAND "& 
193 BEG BEGINU “ ; 
194 CMP #° >” 3 17’S THE END 20 TEXT t HOME : PRINT CHR$ <4)"BLOAD INITIA": REM CHR$(49=CTRL D 
195 BEG ENDU 30 UTAB 2: PRINT TABS 6>3"ARRAYS BEFORE INITIALIZATION": PRINT 
196 ™P EPROP 4@ I$ = "“AFTER":G% = 15:D = 99.999 
a 5G DIM A$(3>,.Bx%(3),C<3) 
196 ENDU: 6@ FOR I = @ TO 3tAS(I> = “BEFORE"SBx<I) = I + 1:C¢1) = 1 * 16.78% NEXT T 
CG 4CB1ea 199 JMP CHRG 3 RETURN TO BASIC.. 76 GOSUB 150 Ss ; 
BsCz 260 5 80 PRINT TAB< 2>s"ARRAYS AFTER ZERO/NULL INITIALIZATION”: PRINT 
@3C3 261 =; ROUTINE SEARCHING THE ADDRESS OF THE BEGINNING 90 & 2(R$,B%,C) 
@3c3 292 : AND THE END OF THE STORAGE AREA OF THE ARRAY 10@ GOSUB 150 a. 
@3C3 263 3 11@ PRINT TAB 7)"ARRAYS AFTER INITIALIZATION": PRINT TAB¢ 8)3"WITH CHARACTER 
@3cS 264 SEARCH! ISTIC VALUE": PRINT 
@3C3 ABS = =—- 285 LDY #$24 3 LOAD THE DIMENSION NUMBER 120 & UCCI$),AS 7 (G%2.B% 7 (D),C) 
@3C5 B19B 206 LDA (POINTL)»Y ; were 130 GOSUB 150 
G@3C7 OA 207 ASL 3 MULTIPLY IT 140 END ' nae. eet 
@3C& 18 208 cL 15@ FOR I = @ TO 3 PRINT “ASC"SIS")="SASCIDS" BUC" STE" 2="SBACT D3" Cost snrang 
G@3C9 6965 269 ADC #$05 3 ADD FIVE BYTES ¢1)! NEXT I: PRINT 
@3Cce 216 3 - TWO FOR NAME 160 RETURN 
3 - TWO FOR OFFSET POINTER 


— ONE FOR DIMENSION NUMBER 













@Sce 21iZz 5 JRUN 
@3CB 6598 213 foc POINTE ARRAYS BEFORE INITIALIZATION 
G3CD 8594 214 AIRRA' 
@3cF ca 215 INY AS(G=BEFORE B%<G@>=1 CXYG)=0 
@3DG ASIC 216 LDA POINTH AS(1=BEFORE Bu(19=2 CK1)=10.78 
@3D2 6986 217 FOC #506 AS(22=BEFORE B%(29=3 C(2)=21.56 
@3D4 8595 218 STA AIRRAYH AS(3>=BEFORE B%(32=4 CX3>=32.34 
6 219 3 
aspe 18 226 cLe $ ROD OFFSET POINTER TO NEXT ARRAY ARRAYS AFTER ZERO’NULL INITIALIZATION 
@3D7 ABGZ 221 LDY #$02 
@3D9 B1SB 222 LDA <POINTL)»Y 
G@3DB 6598 223 ADC POINTL 
@3Db 35@@ 224 ENDST 
G3DF C& 225 
G@SEG BSB 226 LDA <POINTL).¥ ei aa 
@3EZ 659C 227 FOC POINTH ARRAYS AFTER INITIALIZATION 
G3E4 S561 228 STA ENDST+$01 WITH CHARACTERISTIC VALUE 
@3E6 6a 229 RTS 
@3E7 230 3 5 3 
G3ET Peay 5 =) 
G3E7 P32. 5 AS(Z=AFTER: 5 
GSE? 233 STOP? AS(3>=AFTER 5 
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continued from page 45 


APPLE CAL 
The Time Machine (Cont.) 


20188 FOR 1 = 1 10 2 STEP @ 

20118 VTAB 8: FOR J = 9 TO 28 

28128 HTAB J: PRINT " °; 

28138 FOR D = 1 TO L: NEXT D 

20148 HTAB J: PRINT "**"; 

20158 NEXT J 

20168 IF PEEK (¢ - 16384) > 127 THEN 20358 
20178 FOR J=8T70 11 

20188 VTAB J: HTAB 29: PRINT * *; 

20198 FOR D = 1 TO L: NEXT D 

28195 HTAB 29: PRINT "#"; 

20208 NEXT J 

20218 IF PEEK ( - 16384) > 127 THEN 20358 
20228 VTAB 12: FOR J = 29 T0 18 STEP - 1 
20238 HTAB J: PRINT " °; 

20248 FOR D = 1 TOL: NEXT D 

20258 HTAB J: PRINT "#"; 

28268 NEXT J 

28278 IF PEEK ( - 16384) > 127 THEN 20358 
20288 FOR J= 12709 STEP - 1 

28298 HTAB 9: VIAB J: PRINT " °; 

20388 FOR D = 1 TOL: NEXT D 

20318 HTAB 9: PRINT "*"; 

28328 NEXT J 

20338 IF PEEK < - 16384) > 127 THEN 20358 
20348 NEXT I 

28358 POKE - 14368,8 

20368 PRINT CHRS (7) 

20378 RETURN 

20400 REM ¥** FIX STACK ONERR ** 

28485 REM FROM PG 136, APPLE REF MANUAL 


20418 AS = "1041681841 4646223154872152872896" 


28428 FOR I = 1 TO 18 

208438 POKE 767 + I, VAL ( MIDS (A$,I * 3 - 2,3)) 
28448 NEXT 

28458 RETURN 


e 


RR LE 


continued from page 87 


Apple Checker 3.0 (Cont.) 


0923:85 02 234 STA BEG+i 

0925:4C 3A 09 235 JMP CONT 

0928:Bi OA 236 INTCLR LDA (HLD),Y 36ET LENGTH 

092A: 18 237 cic 

092B:65 01 238 ADC BEG ;CALCULATE NEXT LENGHT ADDR 
092D:85 O01 239 STA BEG 

O92F:AS 02 240 LDA BEG+1 

0931:69 00 241 ADC #0 

0933:85 02 242 STA BEG+1 

0935: 98 243 TYA 3 ZERO OUT LENGHT BYTE 
0936:91 OA 244 STA (HLD),Y 

0938:FO CB 245 BE@ INTLP 3D0 IT ALL AGAIN 

O93A: 246 & 

093A: 38 247 CONT SEC 3; COMPUTE END=END-—DECVAL 
O93B:AS OS 248 LDA END 

O93D:ES 08 249 SBC DECVAL 

O93F:85 03 250 STA END 

O941:AS 04 251 LDA END+1 

0943:E9 00 252 SBC #0 

0945:85 04 2353 STA END+i 

0947:AS 07 254 LDA FTYPE 31F BINARY-GO DO IT 
0949:C9 04 255 chp 84 

O094B:FO OD 256 BE@ DOCKCD 

094D:38 257 SEC ;COMPUTE LEN FOR BASIC FILES 
O974E:AS O03 258 LDA END ; LEN=END-BEG 

O950:ES O1 259 SBC BEG 

0952:85 0S 260 STA LEN 

0954:AS 04 261 LDA END+1 

0956:ES5 02 262 SBC BEG+1 

0958:85 06 263 STA LEN+1 

O9SA: 264 8 

OFSA: 265 * DO CKCD ROUTINE 

O95A: 266 8 

O9SA:AO 00 267 DOCKCD LDY #0 30 TO Y REG 

O9S5C:Bi O1 268 LDA (BYTE),Y ;GET BYTE OF PROGRAM 
O95E:8D 00 04 269 STA LINEO sSHOW ACTIVITY 

0961:A6 O07 270 LDX FTYPE ;DETERMINE IF MUST IGNORE 
0963:FO OE 271 BEQ CHKINT 31T'S INTEGER-IGNORE IF NECESSARY 
0965:EO 04 272 CPX 4 31S IT BINARY? 

0967:FO 28 273 BEQ SUMIT 3YES-SO GO CODE IT 

0969: 274 # IT’S APPLESOFT 

0969:C9 21 275 CMP #821 3 CHAR >SPACE? 

O96B:BO 24 276 BGE SUMIT 3; YES-SUMIT 

096D:C9 04 277 CMP #4 3CTL-D? 

O96F:FO 20 278 BEQ SUMIT 3 YES-SUMIT 

i aad oc 279 BNE .IGNCHR yNO-MUST BE CTL-CHAR OR SPACE-1GNORE 
0973:C9? 80 280 CHKINT CMP #$80 3 CHAR<CTL-a? 

0975:90 1A 261 BLT SUMIT 3 YES-SUMIT 

0977:C9 AL 282 CMP #SAl 3 CHAR >SPACE? 
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0979: BO 
097B:C9? 
O97D:FO 
O97F: 

O97F 3:38 


09780:A5 
O7B2:E9 
0984:85 
0986:A5 
0988:FO 
O9BA: EF 
0978C:85 
O98E: 4C 
o99ts 

0991318 
0992:45 
09943: 2A 
0993:65 
0997369 
0999; 85 
O99B: 

O99Br 

O99B: 

099B:18 
O99C:AS 
O99E: 69 
09A0:85 
09A2:98 
OFA3165 


09A5:85 
O9A7: 

OPA7s 

O9A7: 

O9A7:18 
O9AB: AS 
o97AA: CS 
OFAC: 90 
O9AE: DO 
09B0:18 
O9B1;AS 
09B3:CS 
09BS: BO 
O9B7: 

O9B7: 

O9B7: 

O9B7:A2 
09B9: BD 
O9BC: 20 
O9BF:CA 
0900: 10 
09C2:AS 
0904: A6 
09C6: 20 
0909: A2 
O9CB: BD 
O9CE: 20 
o97D1:CA 
09D2:10 
097D4:A5 
O9D6: 20 
097D9: 20 
O9DC: Ag 
O9DE: 8D 
O9E1:A2 
O9ES3: AP 
O9ES:81 
O9E7:AO 
O9E?: AP 
O9EB:99 
O9EE: 88 
O9EF : DO 
O9F 1:8D 
O9F 4: 8D 
O9F7:8D 
O9FA:8D 
O9FD:A9 
O9FF:85 
OAO1L: AP 
0A0S: 85 
QAOS: AS 
0A07: 85 
OAO9: AS 
OAOB: BS 
OAOD: 40 
OALO: 

OALO: 

OALO: 

OA10:A0 
OA13:D4 
0A16:CS 
OA18:8D 
OALA: AO 
OA1D: DS 
0A20:CS3 
OA23:CS 
OA24:8D 
OA2Z5S: AO 
OA2B: DO 
OA2B: 8D 
OA2ZC: AD 
OA2F : CF 
OA30: BD 
OAS3: 8D 
OAS34: BO 
OAS7:A0 
OASA: CF 
OASD:CB 
OA40:CB 
OA42: 

OA4E2: 

OA4S2: 

OA42:CA 
OA44:67 
OA46:72 
OA48:CB 
OA4A: 68 
OA4SC: 73 
OA4E: 4C 
OASO: AF 
OAS2: 60 
OAS4: 4D 
OAS6: BO 
OASB: 61 
OASA: 


$88 SUCCESSFUL ASSEMBLY: 


0? 


FD 


04 


00 


OB 
OB 
OB 
BS 


283 BGE SUMIT ; YES-SUMIT 
284 CMP 4884 3CTL-D? 
285 BEQ SUMIT ete 
286 % IGNORE CHARACTER ROUTI 
DEC LEN FOR EACH CHAR 
287 IGNCHR SEC ' ta © 
288 LDA LEN 
289 spc #1 
290 STA LEN 
291 LDA LEN+! 
292 BEQ SPOUT 
293 SBC #0 
294 STA LENt1 
295 SPOUT JMP NXT ; CONT INUE 
296 * BUILD CODE 
297 SUMIT CLC 
298 EOR CKCD ;DEVELOP CHECK CODE 
299 ROL A 
300 apc CKCD 
301 apc #0 
302 STA CKCD 
303 * 
304 & ADJUST POINTER FOR NEXT PROGRAM BYTE 
305 8 
306 NXT ELE ;CLEAR CARRY IND 
307 LDA BYTE ;GET LO ADDR 
308 apc #1 ; INCREMENT IT BY 1 
309 STA BYTE ;STORE IT BACK 
310 TYA 30 TO A REG 
Bil ADC BYTE+1 ; INCREMENT HI ADDR WITH 
CARRY (IF ANY) 
312 STA BYTE+! ;STORE IT IN HI ADDR 
3i3 8 
314 * CHECK FOR END OF PROGRAM 
35% 
316 cic ;CLEAR CARRY IND 
317 LDA BYTE+1 ;COMPARE HI ADDR 
318 CMP END+1 
319 BCC DOCKCD ;BYTE<END 
320 BNE ALLDONE ;BYTE>END 
321 cic 
322 LDA END ;COMPARE LO ADDR 
323 CMP BYTE 
324 BCS DOCKCD ;END< BYTE 
325 3 
326 * EXECUTION IS DONE 
327 8 
328 ALLDONE LDX #9 ;OUTPUT CONSTANT “LENGTH: ~ 
329 LP2 LDA LENGT,Xx 
330 JSR COUT 
331 DEX 
332 BPL LP2 
333 LDA LEN+1 ;GET HI BYTE OF LEN 
334 LDX LEN ;GET LO BYTE OF LEN 
335 JSR PRNTAX ;OUTPUT LENGTH 
336 LDX #808 ;QUTPUT “CHECKSUM: ” 
337 LPS LDA TOT,Xx 
338 JSR COUT 
339 DEX 
340 BPL LPS 
341 LDA CKCD ;6ET CKCD TOTAL 
342 JSR PRBYTE ;OUTPUT CHECKSUM 
343 JSR CROUT 
344 CLNUP LDA #$A0 ;BLANK OUT ACTIVITY IND 
345 STA LINEO 
346 LDx #4 
347 LDA #8 
348 STA (PBEGH,X) ;RESET BIN LOAD ADDR 
349 OUT LDY #25 ;CLEAN UP PAGE ZERO FOR BASIC 
350 LDA #0 
351 ENDLP STA PBEGL,Y 
352 DEY 
353 BNE ENDLP 
354 STA BGNASF 
355 STA BGNASF+1 
356 STA BGNASF+2 ;ZERO ASOFT NXT LINE ADDR 
357 STA DOSFT 30 TO FILE TYPE IN DOS 
358 LDA #1 
359 STA SPEED SET APPLESOFT SPEED TO MAX 
360 LDA #4 TERMINATE ASOFT PGM 
361 STA ASFTH 
362 LDA INTH ;TERMINAT INTEGER PGM 
363 STA INTL 
364 LDA INTH+1 
365 STA INTL+1 
366 JMP RTNBAS ;RETURN TO BASIC THROUGH DOS 
367 8 
348 8 
369 8 
370 LENGT asc ” :HTGNEL" 
371 DFB $8D,$8D 
372 TOT asc " : MUSKCEHC" 
373 DFB $8D 
374 CTYP asc “* :EPYT’ 
375 DFB $8D 
376 INP asc " :NO” 
377 DFB $8D,$8D, $8D. $8D 
378 asc "0.3 EDOC KCEHC” 
379 8 
380 & INDIRECT ADDRESSES 
3e1 8 
382 PDATA DW INTL 
383 DW = ASFTL 
384 DW OBINL 
385 DW sOINTL+1 
386 DW OASFTL+1 
387 Dw OBINL +1 
368 Dw INTH 
389 Dw = ASFTH 
390 Dw = BLEN 
391 Dw INTH+1 
392 DW ASFTH+1 
393 DW = =BLEN+1 
394 8 
NO ERRORS @ 
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GO — A Greetin 


(Cont.) 


g Program 


610 REM VERIFY 
620 CALL - 8468: HTAB H: PRINT "VERIFY": PRINT D®"“VERIFY” 
NS: GOTO 740 


640 IF PEEK (8) = 170 THEN 750 


340 VTAB I: HTAB I: INVERSE : PRINT B408;: VTAB I: HTAB FN 650 CALL — 668: HTAB Hs PRINT "LOCK": PRINT D®"LOCK"N6: POKE 
T(C): PRINT TS 8,1701 BOTO 740 
350 VTAB P: FOR X = P TO V: HTAB Q: FOR C = P TO R:A8(X,C 860 REM UNLOCK 
) = CHRS ( FN S(R)): NEXT : PRINT : NEXT O70) CIE PERKY SO) an 60: THEN 750 
360 VTAB P: FOR X = P TO V: HTAB Q: NORMAL 1 PRINT B3$;: HTAB BBO CALL. = 8680 HTAB Hs PRINT “UNLDCKSs (PRINT (DSSUNLOCKS 
R: INVERSE : PRINT CHR® (X + Y): NEXT :LL = X + 61:V N@s (POKE 98,1601 S50TO 740 
890 REM RENAME 
mK ob D 900 IF PEEK (S) = 170 THEN POKE S,106 
370 REM FILE NAME/TYPE 910 HTAB'I: CALL - 848: PRINT “RENAME";: NORMAL : PRINT 
380 VTAB V: HTAB H: CALL - 868: POKE - 16368,0: INVERSE “="“:; GOSUB 50: INVERSE : IF I$ = N® THEN 740 
INS = ""3E = 39 920 HTAB I: PRINT BL8"OK2?",: NORMAL 1: PRINT “ ";: INVERSE 
390 HTAB H: PRINT “FILE CHOICE? (OR #=SPACE X=END) ";: VTAB 
Vi HTAB R: GET X9: IF X$ = RS THEN 310 930 HTAB Rt GET X81 IF X® = “N" OR X® = R® THEN 740 
400 IF X® = "X" THEN HTAB H: CALL - 868: PRINT "END";: POKE 940 IF X® < > “Y" THEN 930 
44602,12: POKE 44603,253: POKE 44452,22: POKE 44405,2 950 HTAB I: PRINT "RENAME";: NORMAL : PRINT "=": IF PEEK 
1: GOTO 640 (8) = 106 THEN UN = I: PRINT D®*UNLOCK"NS | 
410 IF X$ = "@" THEN 640 960 PRINT D®"RENAHE"NSCSI8: IF UN THEN UN = 01 PRINT D8"L 
420 IF X® < AS OR ASC (X®) > LL THEN 390 OCK" 18 
430 LV = ASC (X®) - Y: VTAB LV: HTAB I:S = PEEK (FO) + PEEK 970 N® = I$: VTAB LV: HTAB Hi CALL - 868: INVERSE : PRINT 
(F1) & F2 NS: GOTO 740 F 
440 T = PEEK (S + I): IF T << > 193 AND T < > 194 AND T < 980 REM DELETE 
> 201 AND T < > 212 THEN VTAB V: GOTO 390 990 HTAB I: CALL - 66: PRINT "OK?";: NORMAL : PRINT “ 
450 FOR X = E TOF STEP - Is IF PEEK (S + X) < > B THEN "ss INVERBE : PRINT BL®"DELETE"; 
—E = X: GOTO 470 1000 IF PEEK (S) = 170 THEN POKE S,106: PRINT " LOCKED 
460 NEXT FILE"BLS; 
470 FOR X = F TO E:N® = NS + CHR® ( PEEK (S + X)): NEXT 1010 HTAB Ri GET XS: IF X® = "N" OR X® = R® THEN 740 
: VTAB LV: HTAB H: PRINT N®: VTAB Vi HTAB H: CALL — 1020 IF X® < > "Y" THEN 1010 
868 1030 HTAB I: NORMAL : PRINT "  ": IF PEEK (8) = 106 THEN 
480 REM COMMAND PRINT D®"UNLOCK"NS 
490 HTAB H: IF T = 212 THEN PRINT "EXEC";: GOTO 510 1040 PRINT D®"DELETE"NS: GOTO 310 
SOO PRINT “RUN LOAD"; 
. ’ 3 1050 REM ERRORS 
EE eg il lll etl 1060 OnE 768,104, PORE 749,168 COME 770, 104s PORE 7711 
3 si 3 ee 3 » 
S50 VTAB Vi HTAB Rs GET X¢: IF X6 = RB THEN VTAB LV: HTAB 1070 POKE 775,152: POKE 776,72: POKE 777,96: CALL 748: POKE 
Seo IF KOC AS AMD T © 194 THEN HTAB Is CALL - 066: PRINT Tne Le UH Aa Ooo EERE 
BL8;2 @OTG 1140 ; 2 1080 ER = PEEK (222): VTAB V: HTAB H: INVERSE : PRINT BLS 
SAAMTE Kars oa* SHEN Fi0 "ERROR “ER;: IF ER = 1 THEN PRINT “ — LANGUAGE NOT A 
VAILABLE" ; 
— a be zi a pac Ni Fae ae 1090 IF ER = 6 THEN PRINT " — FILE NOT FOUND"; 
aes 1 2 See a pone T = ake 1100 IF ER = 8 AND X$ = “V" THEN PRINT “ — UNABLE TO VER 
S80 IF X® = "E" THEN OS = "EXEC": SOTO 620 BELA E BORS tee 
1110 IF ER = 8 THEN PRINT ” — I/0"; 
S90 IF X® = "R" THEN OS = "RUN": GOTO 620 Teo MTAGI et GET Raereur 
600 IF X® < > “L" THEN 530 M N 
ia pd ial Ne a 1140. MTA Ty PRINT “e?">s, NORnaL: s! Phetdir "3: INVERSE 
: 37 : 3: 
620 POKE - 16298,0: POKE 44452,22: POKE 44605,21: POKE 4 : PRINT "ADDRESS/LENGTH (BOOT IF FAILS)";: HTAB R: GET 
4602,12: POKE 44603,253: IF T = 194 THEN BIS = "B ve 
430 HTAB H: CALL - G68: PRINT BIOS: PRINT D®BISOSNS; cane hs i £ ‘ 
640 POKE - 16298,0: POKE 34,0: NORMAL : VTAB V - (xe =" rd ren sadam tia abl hal oe Mi (Pa paged ll 
Pie tag a a Me elle 1160 IF X® < > "Y" THEN 1140 
seat) lela 2 ae Bal MLE LIS a aie I | 1100 HTAB 1: NORMAL | PRINT *  “s INVERSE. : PRINT DS"BLO 
470 RESTORE : FOR X = 896 TO 960: READ A: POKE X,A: NEXT Crane : P ‘ 
: POKE 905,149: POKE 938,149 : a ae 
680 anil PEEK (43626) 8 xeak _Peex (4362404 POKE 897,J: POKE okt regi eR A Biter tee tee eae OOO = 4 
,K: POKE 911,J3: POKE 912,K: CALL 919 a Se 
ee ea hl = i 1200 A {PEEK (43658) + PEEK (43635) 8 256:L PEEK (H) 
* USED="US" FREE="FR3: HTAB R: GET X$s GOTO 310 1210 VTAB PEEK (37): HTAB @: CALL - 868: PRINT "BLOAD A 
700 REM SIZE : p DDRESS="@"  LENGTH="L3 
710 HTAB Hz: CALL - G68: PRINT “SIZE: “3: FOR X = P TO Rt 1220 HTAB 5: GET X$: CALL - 868: HTAB @: PRINT "REQUIRED 
PRINT AS(LV,X);: NEXT : PRINT “ SECTORS"; BOUT 2 |PLEASE! WATT 
720 HTAB R: GET XS: CALL - 866: GOTO 490 1230 NORMAL : VTAB PEEK (37) — 1: PRINT CHRS (4)"PR®4 
730 REM FILE TENDING 1240 DATA 1,96,1,0,17,0, 145, 3,0,149,0,0,1,0,0,96,1,0, 1,23 
ig irons ae te a fe nee 9,216, 0,0, 169, 5, 160, 128, 32, 217, 3, 162, 0, 142, 149, 3, 142 
> 
750 HTAB H: PRINT “LOCK UNLOCK RENAME DELETE VERIFY";1 HTAB 1250 DATA 150,3, 160,56, 185, 0, 149, 142, 8, 10, 144, 8, 238, 149,3 
R: GET X$: IF X® = R® THEN CALL - G68: HTAB H: GOTO » 208, 3, 238, 150, 3, 202, 208, 242, 200, 192, 196, 144, 232, 96 
490 1260 REM BY CHRIS GLENN 
760 IF X® = “L™ THEN 840 
770 IF X® = "U" THEN 870 
780 IF X® = “R" THEN 900 
790 IF X® = "D" THEN 990 
800 IF X$ < > "V" THEN 750 
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Quick Sort (Cont.) 


83BE: 
83C8: 


83C1 


83C2: 
83C4: 
83C6: 
83C8: 
83C9: 
83CB: 
83CC: 
83CE: 
83D9: 
83D2: 
83D3: 
83D5: 
83D7: 
83DA: 


83DB 
83DD 
83DF 
83E1 
83E2 
83E4 
83E6 
83E8 
83EA 
83EC 
83EE 
83F0 
83F2 


E5 
AA 
:88 
Bl 
E5 
Dg 
8A 
FO 
6A 
45 
51 
29 
62 
AS 
Bl 
99 
88 
:D® 
:Bl 
:F@ 
AA 
:C5 
198 
:A6 
FO 
:Bl 
:D1 
198 
:D® 
:C8 


SE 


9B 
9D 
93 


97 


9D 
9B 
91 


G2 
9B 
OF 


F8 
9B 
19 


98 


324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
348 
341 
342 
343 
344 
345 
346 
347 
348 
349 
358 
351 
352 
353 


ROA 


RTS3 
GNYU 
GNYU1 


cos 


SBC 
TAX 
DEY 
LDA 
SBC 
BNE 
TXA 
BEQ 
ROR 
EOR 
EOR 
ORA 
RTS 
LDY 
LDA 
STA 
DEY 
BNE 
LDA 
BEQ 
TAX 
CMP 
BCC 
LDX 
BEQ 
LDA 
CMP 
BCC 
BNE 
INY 


IST+1 COMPARE INTEGERS 83F3:CA 354 DEX 
83F4:D8 F4 355 BNE COS 
83F6:AD BO 356 LDY #$08 

(SARA) , Y 83F8:B1 9B 357 LDA (SARA) ,Y 

IST 83FA:C5 9D 358 CIST CMP IST 

ROA 83FC:FO D4 359 BEQ RTS3 
83FE:6A 368 ROB ROR A 

RTS3 83FF:89 91 361 ORA #$81 CLEAR ZERO FLAG 

A 8491:68 362 ‘ RTS 

IST 8482: 363 » 

(SARA) ,Y 8482: 364 *« END OF PROGRAM 

#$61 CLEAR ZERO FLAG 8402: 365 « 

#$02 

(SARA) ,Y 

AGEB-1,Y STORE STRING INFO 

IN AGEB 

GNYU1 

(SARA) ,Y CALCULATE MINIMUM 

CIST LENGTH 

IST 

cos 

IST 

ROB 

(AGEB) ,Y COMPARE STRINGS 

(IST+1),Y 

ROB 

ROB 


v 
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Applesoft Record Command 
(A.R.C.) (Cont.) 


20 REM # INITIALIZE * 

30 REM # BY CHUCK KISS s 

40 REM % COPYRIGHT (C) 1982 & 

SO REM ¥* BY MICRO-SPARC INC * 

60 REM & LINCOLN, MA. 01773 * 

7O REM ‘*eREseenreeeeesssesass 

80 D$ = CHRS (4) 

90 PRINT D$"NOMON C,I,0" 

100 DIM TS{16),TV(16) , T(16) , TH(16) C126) 
SPEED= 255: TEXT : HOME :X$ = “ “ 

120 G$ = CHR$ (7):BC$ = CHRS (2):Vi$ = CHRS (91):V2% = 
CHR$ (93) 

130 FOR I = 0 TO 16:C(I) = O: NEXT :V = 16: FOR K = 1 TO 
V: READ T$(K): NEXT 

140 DATA “FULL NAME", "LAST NAME", “FIRST NAME", “INITIAL” 
, "ADDRESS", "CITY", "STATE", "ZIPCODE", "PHONE #", “COMMEN 
7", "OPTION 1","OPTION 2", "OPTION 3", "OPTION 4", "OPTIO 
N 5","OPTION 6” 

150 IF DI = 1 THEN 220 

160 VTAB 6: HTAB 11: INVERSE : PRINT “INITIALIZE NEW FILE 
“: NORMAL « HTAR 113.PRINT *——-———————————— % 

170 POKE - 16368,0 

180 FOR D = 1 TO 1000: NEXT D 

190 VTAB 13: HTAB 5: PRINT “NAME OF FILE";G$;: INPUT ": " 
;FILES 

200 IF LEN (FILES) = 0 THEN 190 

210 IF ASC ( LEFT$ (FILE$,1)) < 65 THEN VTAB 19: HTAB 1 
2: PRINT "ILLEGAL FILE NAME";G$;G$;: FOR D = 1 TO 150 
O: NEXT D: VTAB 13: HTAB 19: CALL - 958: GOTO 190 

220 HOME : INVERSE : HTAB (21 — LEN (FILES) / 2): PRINT 
FILE$: NORMAL : PRINT : INVERSE 

230 HTAB 14: PRINT “ INITIALIZER “: NORMAL : PRINT = POKE 
34,4 

240 HOME : PRINT “ YOU WILL BE ENTERING DATA IN AN” 

250 PRINT “ ORDERED FORMAT CONSISTING OF FIELDS." 

260 PRINT "SELECT A "3: INVERSE : PRINT “MAXIMUM OF 12 FI 
ELDS";: NORMAL : PRINT " :"3 PRINT 

270 FOR K = 1 TO V / 2: HTAB 2: PRINT K3". "3 T(K)33 HTAB 
(24 + (K = 1)): PRINT K + V / 2". "3TS(K + V / 2): NEXT 
K: PRINT 

280 N = 0 

290 N=N + 1: IF N > 12 THEN VTAB 20: HTAB 1: CALL - 95 
8: VTAB 23: HTAB 10: FLASH : PRINT" LIMIT = 1 
2 “3: NORMAL : FOR D = 1 TO 2000: NEXT D: GOTO 460 

300 VTAB 18: CALL - 958: PRINT "ENTER IN THE NUMBER REPR 
ESENTING YOUR CHOICE FOR ";: INVERSE : PRINT "FIELD 
#"5N;G$: NORMAL : POKE —- 16368,0 

310 VTAB 23: HTAB 11: PRINT "PRESS “3: INVERSE : PRINT "R 
ETURN";: NORMAL : PRINT " TO ";X$;3: POKE 35,22 

320 VTAB 19: HTAB (21 + (N > 9)): INPUT "=> "3T$: IF N > 
1 AND LEN (T$) = 0 THEN 460 

330 IF N= 1 AND LEN (T$) = 0 THEN PRINT D$"RUN A.R.C." 

340 XS = “QUIT” 

350 IF ASC ( RIGHTS (T$,1)) < 48 OR ASC ( RIGHTS (T$,1) 
) > 58 THEN 300 

360 IF LEN (T$) > 2 THEN 300 

370 T = VAL (T$): IF T < 1 OR T > V THEN 300 

380 IF C(T) = 1 THEN VTAB 21: HTAB 12: INVERSE : PRINT ” 
ALREADY SPECIFIED";G$;G$;: NORMAL : FOR D = 1 TO 100 
0: NEXT D: HTAB 12: CALL —- 868: VTAB 19: HTAB 233 CALL 
- 868: GOTO 310 

390 IF T < 11 AND T > O THEN 440 

400 IF T > 10 AND T < V + 1 THEN INVERSE : PRINT "ENTER 
NAME FOR THIS FIELD:";G$: HTAB 4: PRINT "(10 LETTERS 
OR LESS)": NORMAL : VTAB 20: HTAB 271 INPUT " "3Z$:TS 
(T) = 7s 

410 IF LEN (Z$) > 10 THEN VTAB 20: HTAB 28: CALL - 958 
: HTAB 29: INVERSE : PRINT “ INVALID ";G$%;G$: FLASH 

420 IF LEN (Z%) > 10 THEN VTAB 21: HTAB 4: PRINT "(10 L 
ETTERS OR LESS)": NORMAL : FOR D = 1 TO 1500: NEXT D: 
VTAB 20: HTAB 29: CALL - 868: HTAB 1: GOTO 400 

430 IF LEN (Z%) = 0 THEN T$(T) = “ * 

440 T(N) = T: VTAB (8 + T & (T < 9) + (T - 8) & (T > 8)): HTAB 
(6 + 23 8 (T > 8)): PRINT ” ";: REM 10 SPACE 
s 

450 HTAB (6 + 23 # (T > 8)): INVERSE : PRINT T$(T): NORMAL 
:C(T) = 1: GOTO 290 

460 POKE 35,23: HOME :N = N - 1 

470 IF INT (N / 2) = N / 2 THEN N2% = N / 2 

480 IF INT (N / 2) < >N/ 2 THENN2% =N/ 2+ 1 

490 FOR K = 1 TO N2% 

500 PRINT : HTAB 4: PRINT K3". ";TS(T(K))3: HTAB (24 - (( 
K + N2%) > 9)): PRINT K + N2%5"_ "3 T®(T(K + N2%)): NEXT 
K 

510 IF INT (N / 2) < >N// 2 THEN VTAB ( PEEK (37)): HTAB 
23: PRINT " ": REM 13 SPACES 

520 VTAB 22: CALL - 868: HTAB 14: PRINT "CORRECT (Y/N) 
";G$;: GET Y$: IF Y$ = "N" THEN X$ = "EXIT": RESTORE 
:DI = 1: GOTO 130 

530 IF Y$ < > "Y" THEN 520 

540 POKE 34,0: HOME : HTAB 3: PRINT “ ENTER LENGTH VALUES 
FOR EACH FIELD:": HTAB 3 

S50 PRINT “ ==sees==s=ss=eesssecsecsessssee==="; POKE 34, 
4 

560 HTAB 2: VTAB 22: PRINT V1$;" ";: INVERSE : PRINT "NOT 
E";: NORMAL : PRINT " ";V2%;" MAXIMUM FIELD LENGTH = 
20" 

570 FOR K = 1 TON 

580 VTAB 4 + K: PRINT "FIELD #";K;"......."32 INVERSE : HTAB 
16: PRINT T$(T(K));G$;: NORMAL : HTAB 31: INPUT " ";T 
vs 

590 TV(K) = VAL (TV$) 

600 IF K = 1 AND LEN (TV$) = 0 THEN POKE 34,0: RESTORE 
:DI = 1:X$ = "EXIT": GOTO 130 

610 IF TV(K) < 1 OR TV(K) > 20 OR TV(K) < > INT (TV(K)) 
THEN HTAB 29: VTAB 4 + K: FLASH : PRINT " INVALID " 
: FOR D = 1 TO 1000: NEXT D: VTAB 4 + Kz HTAB 29: CALL 
- 868:K = K ~— 1: NORMAL : HTAB 1 

620 NEXT K 

630 FOR D = 1 TO 500: NEXT D 

640 POKE 34,3: HOME 


REM SHTKATATTTATTAT TTT TTS 
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650 RL = O: HTAB S: PRINT “# FIELD NAME 


H 
660 HTAB S: PRINT "— 
670 FORK = 1 TON 


680 HTAB (5 — (K > 9)): PRINT Kj HTAB 9: INVERSE ;: 
NORMAL : 


bs “3: HTAB 9: PRINT TS(T(K) 5 


FIELD LENGT 


PRINT 
HTAB 


(28 + (TV(K) < 10)): PRINT " "3 TV(K)2RL = RL + TV(K)s 


NEXT K 

690 HTAB 27: PRINT “—-----— “: HTAB (29 — (RL > 99) + (RL < 
10)): INVERSE : PRINT RL;: NORMAL : HTAB 9: PRINT “RE 
CORD LENGTH =>"; 

7oo RL = RL + 1 

710 REM : CALC NUMBER OF RECORDS 

720 NR = INT (6 + 12000 / (RL + 29)) 

730 IF NR » 125 THEN NR = 125 

749 VIAB 21; HTAB 6: PRINT “FILE CAPACITY => "3: INVERSE 


: PRINT NR;: NORMAL : PRINT “ RECORDS” 
750 VTAB 23: HTAB 14: CALL 

3G$;: GET YS: IF Y® = “N™ THEN 540 
760 IF Y® < > “Y¥" THEN 750 


770 POKE 34,0: HOME : FOR D = 1 TO SOO: NEXT D: 


— 868: PRINT "CORRECT (Y/N) 


VTAB 11 


780 HTAB 6: INVERSE : PRINT “INIT{LALIZING FILE ON DISKETT 


E": NORMAL 
790 PRINT : HTAB 17: PRINT “STAND-BY” 
800 FOR D = 1 TU SOO: NEXT D 
810 PRINT D$"OPEN ";FILES + BCS 
820 PRINT D$"WRITE ";FILES + BCS 


@30 PRINT N: PRINT RL: PRINT NR: FOR K = 1 TO Nz PRINT T® 


(T(K)): PRINT TV(K): NEXT K 
840 PRINT DS®"CLOSE ";FILES + BCS 
850 PRINT DS"LOCK ";FILE$ + BCS 
860 PRINT DS®"OPEN “;FILES$",L"“3RL 
870 PRINT DS"WRITE ";FILES",RO” 
880 PRINT O 
890 PRINT D$"CLOSE” 
900 PRINT D$"RUN A.R.C.” 


910 END 
A.R.C. SEARCH 

0302- 20 ES DF JSR SDFES O33B- FO 1E 
0o305-— 85 06 STA $06 O33D- cs 19 
0307- 84 07 STY $07 O33F- 90 1A 
0309-— AO 00 LDY #s00 O341- AS 19 
O30B-— 64 1A STY sia O343- FO 16 
O30D-— Bl 06 LDA ($06),Y 0345- as 18 
OSOF-— 85 18 STA $18 0347- 38 
o311- cs INY 0348- €5 19 
0312- Bl 06 LDA ($06),Y O34A- 85 1B 
0314- 48 PHA o34C- a0 00 
o315- ca INY O34E- Bi 06 
0316- Bi 06 LDA ($06),Y 0350- Di os 
0318- 85 07 STA $07 Oo352- DO 08 
O31A- 68 PLA 0354- ce 
O31B- 85 06 STA $06 o355- c4 19 
031D- 20 BE DE JSR SDEBE O357- 90 FS 
0320-— 20 ES DF JSR $DFES O359-— E6 1A 
0323-— 85 08 STA $08 Oo35B- 60 
0325- 84 09 STY $09 o3S5c- ES 1A 
0327-— AO 00 LDY #s00 O3SE- aS 1B 
0329- Bi 08 LDA ($08),Y 0360- cs 1a 
O32B-— 85 19 STA $19 0362- 90 08 
032D-— cs INY 0364- ES 06 
O32E-— Bi 08 LDA ($08),Y 03446- DO 02 
O330— 48 PHA 0368- ESé 07 
O331-— cs INY O34A- DO EO 
O332- Bil 08 LDA ($08) ,Y O36C- az? 00 
O334- 85 09 STA $09 O346E- 85 1A 
O336- 68 PLA O370- FO E9 
O337- 65 08 STA $08 

O339- Aas 18 LDA $18 
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8566:A9 BO 654 LDA #$BO 
8568:8D 04 86 655 STA NUMB+1 
856B:EE 03 86 656 INC NUMB 
856E 60 657 RTURN RTS 
B56F: 658 . 
856F: 659 «THIS ROUTINE PRINTS THE ERROR MESSAGE 
856F: 6608 . 
856F:20 BE FD 661 ERROR JSR CROUT 
8572:A2 88 662 LOX #$89 
8574:BD 82 85 663 ERRORI LDA ERRMSG,X 
8577:FO 06 664 BEQ ERROR2 
8579:28 ED FD 665 JSR COUT 
857C:E8 666 INX 
8570:08 F5 667 BNE ERROR1 
857F:4C 35 82 668 ERROR2 JMP EASE1 
8582: 669 . ‘ 
8582:C2 Cl C4 676 ERRMSG ASC "BAD COMMAND” 
8585:A® C3 CF 
8588:CD CD Cl 
858B:CE C4 
858D:8D 8D 88 671 OFB $8D,$8D,$80 
8596: 672 « 
8598: 673 » BUFFERS 
8590: 674. 
8590: 675 CMDBUF DS~ $7 
8597: 676 FILBUF DS $4 
859B: 677 COMMND DS $48 
as 60 avs 678 STRING DS $28 
: ® 679 NUMB 
he DFB $B9,$B0,$B8, $A 
8607:01 BA 64 688 TIMES DFB $61,$0A,$64 
860A: 681. 
860A: 682 .» ABRREVIATED COMMAND LIST 
860A: 683 . 
86@A:CC CF Cl 684 CMDLST ASC " i 
860D:D5 CE CC 685 ps “UNL 


8618:C4 C5 CC 686 ASC "DEL" 


8613:D2 D5 CE 687 ASC "RUN" 
8616:C5 D8 C5 688 ASC "EXE" 
8619:C2 CC CF 689 ASC "BLO" 
861C:C2 D2 D5 699 ASC "BRU" 
861F:CC CF C3 691 ASC "LOC” 
8622:D3 Cl D6 692 ASC "SAV" 
8625:D2 C5 CE 693 ASC 'REN' 
8628:C2 D3 Cl 694 ASC 'BSA' 

862B: 695 » 

862B: 696 » BUFFER HOLDING ADDRESSES OF FULL 
862B: 697 »« COMMAND LIST 

862B: 698 . 

862B:41 86 699 CMDPTR DW  WCMD1 
862D:47 86 789 DW WCMD2 
862F:4F 86 791 DW WCMD3 
8631:57 86 762 DW WCMD4 
8633:5C 86 793 DW WCMD5 
8635:62 86 784 DW WCMD6 
8637:69 86 705 DW = WCMD7 
8639:6F 86 786 DW WCMD8 
863B:75 86 707 DW WCMD9 
863D:7B 86 788 DW WCMDA 
863F:83 86 789 DW WCMDB 

8641: 718 » 

8641: 711 » UNABBREVIATED COMMAND LIST 
8641: 712. 

8641:CC CF Cl 713 WCMD1 ASC "LOAD - 
8644:C4 AD 

8646 : 88 714 DFB $89 


8647:D5 CE CC 715 WCMD2 ASC "UNLOCK My 
864A:CF C3 CB 

864D: Ad 

864E : 98 716 DFB $98 
864F:C4 C5 CC 717 WCMD3 ASC "DELETE be 
8652:C5 D4 C5 


8655: Ad 

8656 : 08 718 DFB $08 
8657:D2 D5 CE 719 WCMD4 ASC "RUN My 
865A: Ad 

865B : 00 728 OFB $99 
865C:C5 D8 C5 721 WCMD5 ASC “EXEC Ss 
865F:C3 Ad 

8661:98 722 DFB $89 


8662:C2 CC CF 723 WCMD6 ASC "BLOAD i. 
8665:Cl C4 Ad 


8668 : 00 724 DFB $88 
8669:C2 D2 D5 725 WCMD7 ASC "BRUN 
866C:CE Ad 

866E : 89 726 DFB $99 
866F:CC CF C3 727 WCMD8 ASC "LOCK i 
8672:CB AS 

8674:88 728 OFB $898 
8675:D3 Cl D6 729 WCMD9 ASC "SAVE g 
8678:C5 Ad 

867A: 85 738 DOFB $80 


867B:D2 C5 CE 731 WCMDA ASC "RENAME Fi 
867E:Cl CD C5 

8681:Aa 

8682 : 08 732 DFB $88 
8683:C2 D3 Cl 733 WCMDB ASC "BSAVE 2 
8686:D6 C5 Ad 


8689: 06 734 DFB $89 

868A: 735 » 

868A: 736 » CONSTANTS 

868A: 737 »« 

868A: 08 738 COUNT DFB $08 

868B : 09 739 COUNT1 DFB $90 

868C : 88 749 ALPHA DFB $99 

868D : 08 741 BETA DFB $80 

868E: 742 « 

868E: 743 « THE CONTROLLING SUBROUTINE 

868E: 744 4 PER THE DOS MANUAL 

868E: 745 « 

868E:A9 86 746 CONTRL LDA #<IOB 

8698:AB 96 747 LDY #>I0B 

8692:26 BS B7 748 JSR RWTS 

8695: 68 749 RTS 

8696: 750 « 

8696: 751 » THE INPUT/OUTPUT CONTROL BLOCK 

8696: 752 » (10B) AS PER THE DOS MANUAL 

8696; 753 »« 

8696 :91 754 I0B OFB $91 ; I10B TYPE INDICATOR 

8697 :68 755 IBSLOT DFB $68 ; SLOT NUMBER TIMES 16 
8698:61 756 IBDRVN DFB $81 ; DISK DRIVE NUMBER 

8699 : 88 757 IBVOL DFB $808 ; EXPECTED VOLUME NUMBER 
869A: 06 758 IBTRK DFB $008 ; TRACK NUMBER 

869B : 08 759 IBSECT DFB $9 ; SECTOR NUMBER 

869C:A7 86 768 IBDCTP DW DCT ; ADDRESS OF DCT L.O. BYTE FIRST 
869E : 06 761 IBBUFP DFB $9 ; L.O. BYTE OF DATA BUFFER STARTING ADDR 
869F : 28 762 DFB $26 ; H.O. BYTE OF DATA BUFFER STARTING ADDR 
86AD : 88 763 DFB $89 ; NOT USED 

86A1: 98 764 DFB $89 ; NOT USED 

86A2:01 765 IBCMD DFB $01 ; READ/WRITE COMMAND CODE 
86A3 : 86 766 IBSTAT DFB $90 ; ERROR CODE 

86A4 : 08 767 IBSMOD DFB $8 ; ACTUAL VOLUME NUMBER 

86A5 : 69 768 IOBPSN DFB $68 ; PREVIOUS SLOT ACCESSED 
86A6 : 91 769 IOBPDN DFB $91 ; PREVIOUS DRIVE ACCESSED 
86A7: 776 » 

86A7: 771 » THE DEVICE CHARACTERISTICS TABLE 

86A7: 772 « (DCT) AS PER THE DOS MANUAL 

86A7: 773 » 

86A7 : 98 774 DCT OFB $69 ; DEVICE TYPE CODE 

86A8:91 775 OFB $91 ; NUMBER OF PHASES PER TRACK 
86A9:EF 776 DFB $EF ; TIME COUNT 

86AA: D8 777 OFB $D8 ; TIME COUNT 

86AB: 778 ADDRA EQU + 

8720: 779 BUFFP EQU HOOKS+$508 

«+« SUCCESSFUL ASSEMBLY: NO ERRORS 9 
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4200 NEXT 

4210 A$ = FI$: IF CH = O THEN 4240 

4220 PRINT CHR$ (4)"DELETE "A$: PRINT CHR$ (4)"OPEN "A$: 
PRINT CHR$ (4)"WRITE "A$ 

4230 FOR | = 1 TO MC = 1: PRINT ME$(1): PRINT MD$(1): NEXT 
: PRINT CHR$ (4)"CLOSE" 

4240 VTAB 15: CALL - 958: PRINT " CHANGE ANOTHER";: INPUT 
YN$: IF LEFTS$ (YN$,1) = "Y" THEN HOME :CH = 0: GOTO 400 

4250 RETURN 


4260 VTAB 15: CALL - 958: PRINT " DATE (MM/DD/YY) :";: FOR 
J = 1 TO 8: PRINT CHR$ (95);: NEXT : VTAB 15: HTAB 19: INP 
UT "";MD$(1) 

4270 IF LEN (MD$(I)) > 8 THEN VTAB 7: CALL - 958: GOTO 4 
260 

4280 A$ = ME$(1): GOTO 4110 

4290 VTAB 13: CALL =- 958: PRINT " MESSAGE :": VTAB 15: FOR 

J = 1 TO 224: PRINT CHR$ (95);: NEXT : VTAB 15: GOSUB 8000 

4300 IF LEN (ST$) = 1 THEN A$ = ME$(I): GOTO 4320 

4310 ME$(I) = ST$:A$ = STS 

4320 GOTO 4110 

4330 VTAB 17: CALL =- 958: PRINT " ENTER 'DEL* TO CONFIRM : 

"ss: INPUT "";YN$: IF YN$ < > "DEL" THEN 4110 

4340 IF | = MC THEN MC = MC = 1: GOTO 4200 

4350 FORJ= 1! TOM - 1 

4360 ME$(J) = MES(J + 1):MD$(J) = MD$(J + 1): NEXT 

4370 MC = MC - 1 

4380 A$ = ME$(1) 

4390 IF | > = MC THEN 4180 

4400 GOTO 4110 

5000 REM :::DELETE FILE::: 

5010 HOME : VTAB 12: PRINT " ENTER FILE TO BE DELETED :": P 
RINT : HTAB 10: FOR | = 1 TO 10: PRINT CHR$ (95);: NEXT : P 
RINT : VTAB 14: HTAB 10: INPUT "";A$ 

5020 IF A$ = "" THEN RETURN 

5030 IF LEN (A$) > 10 THEN 5010 

5040 GOSUB 15000 

5050 FOR | = 1 TO CZ - 1: IF A$ = TI$(I) THEN 5090 

5060 NEXT 

5070 HOME : VTAB 12: PRINT " UNABLE TO MATCH THAT NAME.": P 
RINT : PRINT " TRY AGAIN 7": INPUT "";YN$: IF LEFT$ (YN$,1 
) = "Y" THEN 5000 

5080 RETURN 

5090 PRINT : PRINT " ENTER "DEL? TO DELETE FILE,": PRINT : 

HTAB 10: INPUT YN$: IF YN$ < > "DEL" THEN RETURN 

5100 ‘HOME : VTAB 12: HTAB 5: INVERSE : PRINT "FILE BEING DE 
LETED.": NORMAL 

5110 IF | = CZ - 1 AND | = 1 THEN PRINT CHR$ (4)"DELETE T 
ITLES": PRINT CHR$ (4)"DELETE "A$: RETURN 

5120 FOR J = | TO CZ - 1:TIS(J) = TIS(J + 1): NEXT 


5130 PRINT CHR$ (4)"DELETE TITLES": PRINT CHR$ (4)"OPEN T 
ITLES": PRINT CHR$ (4)"WRITE TITLES": FOR | = 1 TO CZ - 1: 
PRINT TI$(1): NEXT : PRINT CHR$ (4)"CLOSE" 

5140 PRINT CHRS$ (4)"DELETE "A$ 

5150 PRINT : PRINT " FILE DELETED, DO ANOTHER ?"3: INPUT "" 
sYN$: IF LEFT$ (YN$,1) = "Y" THEN 5000 

5160 RETURN 

6000 REM :::VIEW NAMES::: 

6010 GOSUB 15000 

6020 B = 1: HOME 

6030 FOR | = B TO CZ - 1 

6040 IF | < 10 THEN HTAB 2 

6050 IF PEEK (37) < 22 THEN PRINT I". "TI$(1): GOTO 6070 

6060 GOTO 6090 

6070 NEXT 

6080 GET A$: PRINT A$: RETURN 

6090 J = I:! = CZ = 1: IF J = | THEN 6150 

6100 VTAB 2 

6110 FOR | = J TO CZ - 1 

6120 HTAB 16: IF PEEK (37) < 22 THEN PRINT I", "TIS$(1): G 
OTO 6140 

6130 GOTO 6150 

6140 NEXT : HTAB 16: GET A$: PRINT A$: RETURN 

6150 HTAB 16: GET A$: PRINT AS 

6160 B= I:l = CZ - 1: IF B = | THEN 6140 

6170 HOME : GOTO 6030 

7000 TEXT : HOME : END 

8000 REM :::!INPUT ROUTINE::: 

8010 ST$ = ": CALL = 662 

8020 FOR J = 512 TO 736:X = PEEK (J) 

8030 IF X = 141 THEN 8060 

8040 ST$ = ST$ + CHRS (X - 128) 

8050 NEXT : IF LEN (ST$) > 224 THEN PRINT : PRINT CHRS ( 
7)" TOO LONGI": FOR J = 1 TO 3000: NEXT : HOME : POP : GOTO 
3070 

8060 IF ST$ = "" THEN POP : HOME : GOTO 3070 

8070 RETURN 

9000 REM :::READ MESSAGES:: 

9010 MC = 1 

9020 PRINT CHR$ (4)"OPEN "A$: PRINT CHR$ (4)"READ "A$ 

9030 sT$ =" 

9040 CALL —- 662 

9050 FOR | = 512 TO 736:X = PEEK (1): IF X = 141 THEN 9090 

9060 IF X > 141 THEN X = X = 128 

9070 ST$ = ST$ + CHR$ (X) 

9080 NEXT 

9090 ME$(MC) = ST$: INPUT MD$(MC):MC = MC + 1 

9100 GOTO 9030 

9110 PRINT CHR$ (4)"CLOSE" 

9120 RETURN 

10000 REM :::::PRINT FORMATTER 

10010 IF LEN (A$) < = RM=— LM THEN PRINT A$: RETURN 

10020 FOR J = RM- LM TO 1 STEP -1 

10030 C$ = MIDS (A$,J,1): IF C8h="" ORCS ="."OR CH=" 
»" OR C$ = "I" OR C$ = "27" OR C$ = "=" THEN 10050 

10040 NEXT :J = RM—- LM 

10050 IF C$ = " " THEN A1$ = LEFT$ (A$,J - 1):A$ = RIGHTS 


(A$, LEN (A$) - J): GOTO 10090 continued on next page 
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10060 IF C$ = "I" OR C$ = "," OR c$ = "." OR C$ = "7" OR C$ 
= "" AND J = RM- LM THEN GOSUB 10130:A1$ = LEFTS (A$,J) 
:A$ = RIGHTS (A$, LEN (A$) = J - 1): HTAB LM: PRINT A1$: GO 
TO 10100 
40070 AIS = LEFTS (A$,J): IF LEN (A$) < > LEN (A1$) THEN 
A$ = RIGHTS (A$, LEN (AS) - J): GOTO 10090 
10080 GOTO 10110 
10090 HTAB LM: PRINT AI$ 
10100 IF LEN (A$) > RM — LM THEN 10020 
10110 HTAB LM: PRINT A$ 
10120 RETURN 
10130 IF J = LEN (A$) THEN RETURN 
10140 IF MIDS (A$,J + 1,1) < >" " THEN Al$ = LEFTS (AS, 
J):A$ = RIGHTS (AS, LEN (A$) - J): HTAB LM: PRINT Al$;: POP 
: GOTO 10100 
10150 RETURN 
11000 PRINT TAB( ((32) - LEN (A$)) ./ 2)A$: RETURN 
12000 DATA "1. LOAD & DISPLAY FILE","2. ADD TO A FILE 
"3, ADD A NEW FILE ","4, CHANGE A FILE 85s DEL 
ETE A FILE "6. VIEW NAME=FILE ","7,. EXIT PROGRAM 
" 


15000 REM :::READ TITLES FILE::: 

15010 CZ = 1 

15020 PRINT CHR$ (4)"OPEN TITLES": PRINT CHRS (4) "READ TI 
TLES" 

15030 INPUT TIS(CZ): IF TIS(CZ) = "***" THEN 15050 

15040 CZ = CZ + 1: GOTO 15030 

15050 PRINT CHR$ (4)"CLOSE" 

15060 RETURN 

32000 REM :::ERROR ROUTINE::: 

32010 ER = PEEK (222):EL = PEEK (218) + PEEK (219) * 256 

32020 CALL 768 

32030 IF ER = 5 AND EL = 15030 AND A< > 3 THEN PRINT : P 
RINT CHR$ (4)"CLOSE": HOME : VTAB 12:A$ = "NO TITLES IN FIL 
E.": GOSUB 11000: FOR | = 1 TO 4000: NEXT : POP : RETURN 

32040 IF ER = 5 AND EL = 15030 THEN PRINT : PRINT CHRS (4 
)"CLOSE":ER = 1: GOTO 15060 

32050 IF ER = 5 AND EL = 9040 OR EL = 9100 THEN PRINT : GO 
TO 9110 ; 

32060 IF ER = 22 AND EL > 10000 THEN RESUME 

32070 IF ER = 255 THEN SPEED= 255: GOTO 130 


32080 HOME 

32090 IF ER = 9 THEN PRINT "DISK FULLI": END 

32100 IF ER = 10 THEN PRINT "FILE IS LOCKEDI": END 

32110 IF ER = 8 THEN PRINT "DISK I/O ERRORI": END 

32120 IF ER = 4 THEN PRINT "REMOVE WRITE PROTECT TABI": EN 


3) 
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2378 POKE 33,48: HOME 

2388 PRINT TAB( 33)"ERASE": POKE 33,39 

2398 COLOR= 9 

2498 HOME : GOTO 489 

2419 REM «+ CENTER SUB «« 

2428 HTAB 29 - LEN (A$) / 2: PRINT A$: RETURN 


2438 REM «+ POKE CALCS +« 

2449 VTAB 19: PRINT "START HEX NUMBERS WITH 
Ay St: 

2458 VTAB 17: INPUT "WHERE WILL YOU PUT THE 
TABLE ";X$ 

2460 Y = VAL (X$) 

2476 IF LEFT$ (X$,1) = "$" THEN X$ = RIGHTS 
(X$, LEN (X$) - 1): GOSUB 2548 

2466 X = ¥Y - INT (Y 7 256) » 256:Z = INT (Y 
/ 256) 

2498 HOME : PRINT "USE THESE POKES IN YOUR P 
ROGRAM BEFORE YOU DRAW YOUR FIRST SHAPE 


2500 PRINT : PRINT "“POKE 232,";X: PRINT "POK 
E 233, 72 

2518 PRINT 

2529 END 

2538 REM +«« HEX CONVERTER «+ 

2540 Y=@G6:Z=@6 

2558 FOR I = LEN (X$) - 1709 STEP - 1 

2568 Z=Z+ 1 

2578 Y1 = ASC ( MID$ (X$,Z,1)) - 48 

2588 IF Yl > 16 THEN Yl = Yl - 7 

2599 Y=Y+Yl+s+l16AI 

2688 NEXT 

2618 RETURN 

2628 REM «+ TURTLE MODE «+ 

2639 GR : POKE 34,20: HOME : PRINT "MOVE DOT 
TO START & PRESS 'P'": POKE 34,21 

2646 Z = 1:X = 20:Y = X:XX = Y:YY = Y:TM = 1 

2658 COLOR= @: PLOT XX,YY: COLOR= 15: PLOT X 
Vv XK = XVY = Ys HOME + PRINT “Mu"sX<* 
Y=";Y: GET A$ 


2660 IF A$ = "P" THEN SX = X:SY = Y: GOTO 27 
26 

2678 IF A$ = "I" AND Y > @ THEN Y = Y - 1 

2688 IF A$ = "M" AND Y < 39 THEN Y = Y + 1 

2699 IF A$ = "K" AND X < 39 THEN X = X + 1 

2708 IF A$ = "J" AND X > @ THEN X = X - 1 


2718 GOTO 2659 

2728 P = 1:0C = @: POKE 34,28 

2730 XX = X:YY = Y: HOME : PRINT “X=":X;" Ya" 
Fa 
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2749 IF P = 1 THEN PRINT "PLOT ON": GOTO 27 
69 

2758 PRINT "PLOT OFF" 

2768 GET A$ 

2770 IF A$ = "M" AND Y < 39 THEN G(Z) = 2:Z = 
Z + 1:F = @:Y = Y + 1: GOTO 2878 

2780 IF A$ = "J" AND X > @ THEN G(Z) = 3:Z = 
Z + 1:F = O:X =X - 1; GOTO, 2872 

2798 IF A$ = "K" AND X < 39 THEN G(Z) = 1:2 
7 4% dap = O:X% = Xe 1: GOTO 2872 


2800 IF A$ = "I" AND Y > @ AND (F = ®@ OR P = 
1) THEN G(Z) = @:F = 1:2 =2 + 1:Yoe Y = 
1: GOTO 2876 

2819 IF A$ = “?" THEN 3119 

2820 IF A$ = "E" THEN P = @: GOTO 2730 

2830 IF A$ = "P" THEN P = 1: GOTO 2738 


2840 IF A$ = "Q" THEN G(Z) = 19: COLOR= OC: PLOT 
X,Y: GOTO 1658 

2858 IF A$ = CHR$ (27) THEN 2908: REM ESC 
KEY 

2868 GOTO 27398 

2870 CO = SCRN( X,Y): COLOR= OC: PLOT XX,YY: 
COLOR= 15: PLOT X,Y:0C = CO 

2880 IF P = 1 THEN G(Z - 1) G(Z - 1) + 4: COLOR= 
1: PLOT XX,YY 

2898 GOTO 2739 

2998 IF Z>@ THENZ=Z - 1 

2919 IF Z< = @ THEN 2738 

2920 ON G(Z) + 1 GOSUB 2948,2959,2968,2978,2 
949,295 , 2968, 2979 

2938 COLOR= 15: PLOT X,Y: COLOR= 9: PLOT XX, 
YY: GOTO 2738 


nou 


2948 Y = Y + 1: RETURN 
2958 X = X - 1: RETURN 
2968 Y = Y - 1: RETURN 
2978 X = X + 1: RETURN 


2988 REM ++ LINE MODE HELP ++ 
2998 POKE 33,48: HOME 
3008 PRINT "V-> DRAW VERTICAL LINES": PRINT 
"H-> DRAW HORIZONTAL LINES": PRINT "F-> 
ENTER FREE CURSOR MODE": INPUT “PRESS 
RETURN" ; A$: HOME 
3018 PRINT "DRAW LINES BY GIVING THE ENDPOIN 
TS AND": PRINT "LEVEL TO DRAW ON”: INPUT 
"PRESS RETURN" ;A$: HOME 
3026 PRINT "P-> TURNS PLOT ON (DRAW LINES)”: 
PRINT "E-> TURNS PLOT OFF (ERASELINES)” 
INPUT "PRESS RETURN ";A$: HOME 
3038 PRINT "Q-> QUIT DRAWING AND CODE THE S 
HAPE": INPUT "PRESS RETURN";A$: HOME : GOTO 
23398 
3048 REM «+ FREE CUR HELP +s 
3859 HOME 
3060 PRINT "I,J,K,M KEYS MOVE THE CURSOR": PRINT 
"P-> PLOT A POINT": PRINT “E-> ERASE A 
POINT": INPUT "PRESS RETURN”; A$ 
3878 HOME 
3088 PRINT "P & E ONLY EFFECT THE POINT THE 
CURSOR ": PRINT "IS RESTING ON, NO OTHE 
RS!": INPUT "PRESS RETURN" ;A$: HOME 
3098 PRINT "Q-> RETURNS YOU TO THE HLIN MOD 
E WITH": PRINT “THE PLOT ON": INPUT "PRE 
SS RETURN"; A$: HOME 
3198 GOTO 1989 
3118 REM +«* TURTLE MODE HELP «+ 
3128 HOME : PRINT “I,J,K,M KEYS MOVE THE CUR 
SOR": PRINT "P-> TURN PLOTTING ON": PRINT 
"E-> TURN PLOTTING OFF": INPUT "PRESS R 
ETURN" ; A$: HOME 
3138 PRINT “THE ESC KEY WILL ALLOW YOU TO 'B 
ACK UP'": PRINT "AND ERASE ERRORS"* INPUT 
“PRESS RETURN"; A$: HOME 
3148 PRINT "Q-> QUIT DRAWING AND CODE THE S 
Aah INPUT "PRESS RETURN";A$: HOME : GOTO 
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9148 DATA VEGETABLES, BREAD/ROLLS/PIES/COOK 
see DERE ee ee 

9158 FOR X = 1 TO NH: READ HD$(X): NEXT 

9168 DATA 162,8,32,117,253,168,2,138,145,185 
,208,169,8,145,105,208,169,2,145,185,189 
garnet ART RRS Rud Roe RAR Er eee 

9178 FOR J = 888 TO 833: READ I: POKE J,I: NEXT 


9188 DATA 2/8,4/8,6/8,2/4,2/6,4/6,2/16,4/16 
,6/16, 8/16, 18/16, 12/16, 14/16 

9198 DATA 1/4,1/2,3/4,1/2,1/3,2/3,1/8,1/4,3 
/8,1/2,5/8,3/4,7/8 

9208 FOR X = 1 TO 13: READ RE$(X): NEXT 

9218 FOR X = 1 TO 13: READ FA$(X): NEXT 

9220 PRINT D$; "RENAME"; 1X$;",";IX$: PRINT 


@: 


9238 
9249 
9259 
9269 
92708 


9289 
9298 


9308 
93198 


9329 


PRINT OP$; IX$;L$ 

PRINT RD$; IX$;",RO" 

INPUT N: INPUT NX% 

IF N = @ THEN GOTO 928g 

FOR X = 1 TO N: PRINT RD$; IX$;",R";X: INPUT 
TR%(X): CALL 888:NR$(X) = MID$ (CV$,1): 
NEXT 

PRINT CL$; IX$ 
X = PEEK (37): REM SET ADDRESSES FOR S 
CREEN LINES 

FOR I = ® TO 23: POKE 37,1: CALL - 999 
L%(I) = 256 « ( PEEK (41)) + PEEK (4B): 
NEXT 

POKE 37,X: CALL - 999: GOTO 3a 
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19828 FOR XX = 77@ TO 833: READ XY: POKE XX, 
XY: NEXT 

12038 CALL 770: REM GET IOB ADDR 

19040 IOB = PEEK (6) + ( PEEK (7) +* 256) 

19958 IBSL = IOB + 1 

18868 IDRV = IOB + 2 

19878 IVOL = IOB + 3 

19889 ITRK = IOB + 4 

19998 ISEC = IOB + 5 

19198 ICMD = IOB + 12 

19119 IERR = IOB + 13 

19126 IAVOL = IOB + 14 

19138 BUF = PEEK (IOB + 8) + ( PEEK (IOB + 9 
yt 256) . 

18148 POKE IVOL,@: REM CLEAR VOLUME ID 

18158 RWTS = 789 

18168 RD = 1:WR = 2 

18178 TEXT : HOME 


19188 PRINT 


gy * * * * DISK DOCTOR * * 


* * ": POKE 34,2 

19198 PRBYTE = 899 

19298 ESCF = 64578 

19218 BYTE = 8 

19226 ZAP = 818:BDISP = 26: REM ZAP VARIABLE 
Ss 

19238 POKE 27, PEEK (IOB + 8): POKE 28, PEEK 
(IOB + 9) 


3178 IF XU = @ THEN PRINT " FILE NOT 
FOUND" 
3188 FOR XX = 1 TO 1580: NEXT 
3198 RETURN 
3508 IF LEN (S$) < 38 THEN S$ = S$ + MID$ 
. a aes 
LEN (S$)): REM 39 SPACES 
3519 XU = 1 
3528 FOR XZ = 1 TO 29 
3538 IF PEEK (BUF + XY + XZ +2) < > ASC 
( MID$ (S$,XZ,1)) + 128 THEN XU = @:Xz = 
38 
3548 NEXT 
3550 RETURN 
490 REM REMOVE DOS 
4818 HOME : VTAB 7 
4628 PRINT " IF DOS IS REMOVED YOU CAN NOT B 
OOT THE": PRINT 
4938 PRINT " DISK. DO YOU WANT TO CONTINUE? 
(Y/N) " 
4048 FOR XX = 1 TO 2 STEP @ 
4950 TAB 9: HTAB 39: INPUT "":S$ 
4960 IF S$ = "N" OR S$ = "Y" THEN XX = 2 
487% NEXT 
4989 IF S$ = "N" THEN RETURN 
4998 POKE ITRK,17: POKE ISEC,9 
419 POKE ICMD,RD: CALL RWTS: REM READ THE 
VTOC 
4119 IF PEEK (IERR) < > @ THEN GOSUB 1129 
_ @: RETURN 
4128 POKE BUF + 56,0: POKE BUF + 57,9: REM 
TRK @ NOT AVAILABLE 
4138 FOR XX = 68 TO 64 STEP 4: POKE BUF + XX 
,255: POKE BUFF + X + 1,255: NEXT 
4148 POKE ICMD,WR: CALL RWTS 
415@ IF PEEK (IERR) < > @ THEN GOSUB 1199 
@: RETURN 
4168 FOR XX = 1 TO 118: POKE BUF + XX - 1,ND 
B(XX) ; NEXT 
417@ FOR XX = 118 TO 255: POKE BUF + XX,@: NEXT 
4188 POKE ITRK,®: POKE ISEC,@ 
4198 CALL RWTS: REM WRITE BOOT SECTOR 
4208 IF PEEK (IERR) < > @ THEN GOSUB 1199 
g 
4218 RETURN 
5000 HOME : VTAB 6 
5818 HTAB 18: PRINT "CURRENT SLOT:"; PEEK (I 
BSL) / 16: PRINT 
5828 HTAB 9: PRINT "CURRENT DRIVE:"; PEEK (I 
DRV): PRINT 
5038 FOR XX = 1 TO 2 STEP @: VTAB 12: HTAB 1 
4: INPUT "NEW SLOT:";S$:S$ = LEFT$ (S$, 
1): IF S$ > "6" AND S$ < "8" THEN XX = 2 
5848 NEXT 
5050 POKE IBSL, VAL (S$) * 16 
5868 FOR XX = 1 TO 2 STEP ©: VTAB 14: HTAB 1 
3: INPUT "NEW DRIVE:";S$:S$ = LEFT$ (S$ 
,1): IF S$ > "@" AND S$ < "3" THEN XX = 
2 
5978 - NEXT 
5888 POKE IDRV, VAL (S$) 
5998 RETURN 


6998 I = 2: RETURN 


19248 DIM NDB(118) 


19258 FOR XX = 1 TO 118: READ NDB(XX): NEXT 
19268 DIM ZTBL(19) 
19278 FOR I = @ TO 19: READ ZTBL(I): NEXT 


19000 REM «xxx SETUP «x««x 
19818 REM INSTALL INTERFACES 


19288 RETUR 


N 


19298 REM RWTS INTERFACE 

19308 DATA 32,227,3,133,7,132,6,96,234,234 

19318 DATA 165,7,164,6,32,217,3,176,6 

19328 DATA 169,8,169,13,145,6,96 

19338 DATA 234,234,234,234 

19348 REM MONITOR PRBYTE INTERFACE 

19358 DATA 165,8,32,218,253,96 

19368 REM NIBBLE ZAP ROUTINE 

19378 DATA 234,234,234,234,162,249,165,8,16 

19388 DATA 8,19,19,19,18,133,8,162,15,138 

18398 DATA 164,26,49,27,5,8,145,27,96 

19408 REM BOOT ROUTINE WHEN DOS REMOVED 

10419 DATA 1,157,136,192,142,244,3,138,74 

19420 DATA 74,74,74,9,192,141,45,8,165 

19438 DATA 8,141,44,8,32,96,251,162,9 

10448 DATA 189,46,8,249,6,32,248,253,232 

18458 DATA 208,245,32,111,253,198,44,8,0 

19468 DATA 9,141,141,160,169,168, 169,160,169 

19478 DATA 168,160,169, 206, 207,160,196, 207,2 
11 

19488 DATA 16@,207,206,160,212,200,201,211,1 
60 

19498 DATA 196,2@1,211,203,141,141,160,169,2 
G1 

19588 DATA 206,211,197,218,212,168,196,291,2 
11 

19518 DATA 203,168,215,201,212,200,168,196,2 
97 

19528 DATA 211,168,193,206,196,168,208,219,1 
97 

19538 DATA 211,211,168,219,197,212,213,219,2 
96 

19548 DATA @ 

19558 REM 

19568 REM TAB TABLE FOR ZAP 

19578 REM 

19589 DATA 38,38,31,31,0,32,32,33,33,0,34,3 
4,35,35,9,36,36,37,37,0 

19978 REM 

19988 REM ~---- DISK ERROR HANDLER ---- 

19998 REM 

11998 HOME :XX = PEEK (IERR) 

11918 IF XX = 16 THEN S$ = " DISK IS WRITE P 
ROTECTED " 

11928 IF XX = 32 THEN S$ = " VOLUME MISM 
ATCH 4 

11938 IF XX = 64 THEN S$ = " I/O ERRO 
R " 

11949 IF XX = 128 THEN S$ = " READ ER 
ROR : 

11958 INVERSE : VTAB 7: HTAB 8: PRINT SPC( 
25): VTAB 8: HTAB 8: PRINT S$: VTAB 9: HTAB 
8: PRINT SPC( 25) 

11968 FOR XX = 1 TO 2588: NEXT 


11878 NORMA 
11988 RETUR 


L 
N 
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To order Nibble Software, use the 
convenient bind-in card in this issue. 
See the back page for ordering information. 


APPLE TRAC PLUS/SPACE MAZE... $24.95 + 
Shipping. Featured in Vol. 1, Issue #1 


Apple TRAC Plus is an easy-to-use, adaptable 
system for analyzing “Where Your Money 
Goes.” TRAC Plus accepts information about 
your credit cards, checks, and cash transactions 
and prints more than 10 different reports for 
Budget Spending Analysis. Examine Year-To-Date 
Spending, Trends, Comparisons to Average 
Spending. (TRAC Plus is the core program for a 
complete Personal Finance system with its com- 
panion programs TRAC Budget, TRAC Graphics, 
and Income TRAC (offered as separate disks in 
this ad). (48K AS) 


Space Maze is a Hi-Res Graphics game in 
which the player pilots his ship through a Maze 
using the Game Paddle controls (or a joystick). 
Includes a number of sound options and two 
levels of play. A challenge for all! (16K AS) 


STAR ATTACK/AIRSEA BATTLE/LOW RES 
SHAPEWRITER... $19.95 + Shipping. Featured 
in Vol. 1, Issue #2 


Star Attack is a very fast, Hi-Resolution 
Graphics Gallery game. It combines Assembly 
Language and either Applesoft or Integer Basic 
for fast challenging action. Seven ships scan 
across the screen making random appearances, 
sometimes at random speeds. Some are Hostile 
Klingon and Tie Battle ships. Others are friendly 
... Hospital ship, Communications Satellite and 
more. The trick is to zap the bad guys and 
avoid hitting your friends...and it’s not easy! 
Runs under game paddle control. (32K AS/IB) 


Airsea Battle combines Assembly Language 
and Integer Basic to produce a Low Resolution 
Graphics battle between the Navy and the Air 
Force. You can choose sides (in either the Two- 
Player game or the One-Player vs. the Apple). 
Shapes, Explosions, and Splashes heighten the 
Graphics effect. (16K IB) 


Low Resolution Shapewrite is a combined 
Assembly-Language and Integer Basic program 
for creating and running high speed Low Reso- 
lution Shapes in your programs. You create 
shapes with Up, Down, Right, Left, and Plot/No 
Plot commands from the keyboard. Instructions 
are given for saving shapes and then integrating 
them into your own programs. (16K IB) 
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APPLE TEXT PROCESSOR (T.0.U.G.H.)/APPLE 
SIMON/TIGER GRAPHICS... $24.95 + Shipping. 
Featured in Vol. 1, Issue #3 


Apple TOUGH (Text Outputter, Updater, and 
Generalized Handler) transforms your Apple into 
a line-oriented Text Processor. It is very easy to 
use and allows: ¢ Upper/Lower Case Characters; 
e Right Margin Justification; * Tab/Indent; 

e Variable Line Length; * Horizontal Page 
Centering. Editing Features include: * Review; 
e Erase/Retype Lines; * Insert Lines; ¢ Shift 
Paragraphs; ¢ Find/Replace Words and Print 
Text. Operates with Parallel or Serial Printer 
(and incorporates features of Epson MX-80, IDS 
series, and Centronics 737-739). Requires 1 disk 
drive. (48K AS) 


Apple Simon is a Low Resolution Graphics ver- 
sion of the popular game. Combines Color and 
Sound to test your coordination and memory! 
It’s fun! (16K IB) 


Tiger Graphics is an Applesoft and Machine 
Language program for printing the High Resolu- 
tion Graphics screen to the iDS 440/460 Paper 
Tiger Printers. Program controls allow printing 
with Black-on-White or White-on-Black. Requires 
the printer to be equipped with the Graphics 
Option. (32K AS) 


FAST/SUPER WEAVER/ FOOTBALL... $24.95 
+ Shipping. Featured in Vol. 1, Issue #4 


F.A.S.T. (Forecasting and Sales Trending) is a 
Simulation and Modeling Tool for testing different 
strategies in selling multiple products and ser- 
vices. Prompts the user to build a productivity 
model which is then used to test different Hiring 
Rates, Pricing, Product Emphasis and Product 
Introduction Timing. Four different reports pro- 
ject Unit and Dollar Sales. (16K AS) 


Super Weaver simulates an 8 Harness Loom in 
High Resolution Graphics. Simple keyboard 
commands allow the weaver to enter the thread- 
ing, tie-up, and treadling of the Loom to produce 
a woven pattern on the screen. The finalized 
pattern can then be printed as a Draw-Down on 
a Centronics compatible parallel printer (it is 
written for the IDS 440 printer). (16K AS) 


Football is a Low Resolution Graphics simulation 
of the popular hand-held game. Two players 
alternately choose Running, Passing, or Kicking 
plays in order to score touchdowns and field 
goals. (16K IB) 


PIP I/| AM BUDDHA/TAPE LOAD AIDS...$24.95 
+ Shipping. Featured in Vol. |, issue #1 


PIP | is a Tape-based Personal Inventory Pro- 
gram which provides data base management for 
inventorying and tracking your personal assets. 
PIP | provides reports on Depreciation Costs, 
Decreasing Replacement Values, Overall Asset 
Analysis, and more. Optional serial/parallel 
printer. (32K AS) 


| Am Buddha is an interactive game which pro- 
duces surprising answers to your What, Who, 
Where, Why, When, and How questions. A little 
oracle! (16K AS) 


Tape Loading Aids are two utilities which assist 
an accurate loading of programs and data from 
tape cassettes. Provides audible confirmation of 
beginning and end of Load. The second provides 
Auto Re-Try if errors are encountered. (16K ML) 


PIP I/AMPER-INTERPRETER/FOUR-IN-A- 
ROW... $29.95 + Shipping. Featured in Vol. 1, 
Issue #6 


PIP II (Personal Inventory Program) provides a 
complete disk-based data management system 
for managing and tracking your personal assests. 
It is a disk version of PIP | (described above). 
Uses optional serial/parallel printer. (48K AS) 


Amper-interpreter Utilities provides an 
extremely powerful Utility Library for your Apple. 
It uses the Ampersand Key to emulate the 
PRINT...USING command for formatting Decimal, 
Binary, Floating Point and Hexadecimal Results. 
Provides Hooks to also: ¢ Clear Screen; ¢ Clear 
Page; ¢ Bell; « Clear Error; and ¢ Execute 
ONERR Patch. (48K ML) 


Four-In-A-Row is an interactive Low Resolution 
Graphics game of skill and strategy. You'll try to 
beat your opponent to a Four-In-A-Row line of 
blocks to win. Watch the Force of Gravity drop 
your blocks through the grid as each play strug- 
gles for a Win! (48K IB) 


APPLE A.I.M./CONCORDANCE/LOW SCORE 
Il... $28.95 + Shipping. Featured in Vol. 1, 
Issue #7 


Apple A.I.M. (Automated Intelligent Mailing) is a 
highly modular system for managing Mail Lists 
and other Filing/Retrieval/Listing applications. 
With A.I.M., you can define up to 32 different 
Fields of information in each record. Rearrange 
and Select special Fields for formatting/printing. 
Includes options for: * Formatting; « Adding; 

* Deleting; * Editing; * Finding; * Sorting; and 
¢ Printing the stored information. You can print 
Mailing Labels directly from your disk file! Uses 
a serial or parallel printer. (48K AS) 


Apple Concordance is a powerful Utility which 
aids your programming! Automatically prepares 
lists of Where your Program Variables are Used 
and How they’re Referenced. Also prepares a 
Cross-Reference of Program Line Numbers and 
where they are used. (32K ML) 


Low Score Il is a Hi-Res graphics game of Skill 
and Strategy. Try to Beat the Apple to the Lowest 
Score to Win! Uses a library of shapes which 

can be applied to your own programs! (32K AS) 


WILL O’ THE WISP/BLAST AWAY/LOAN 
REDUCTION ANALYSIS... $19.95 + Shipping. 
Featured in Vol. 1, Issue #8 


Will O’ The Wisp is a complete Adventure-type 
game that takes you through forests, caves, and 
castles to the den of Ralph, the Magician. You 
follow the Will O’ the Wisp (which sometimes 
leads you correctly and other times leads you 
into dangerous turf). Illustrates the principles in- 
volved with writing your own Adventure games. 
(48K AS) 


Blast Away! is a fast action shoot ’em up in 
Low Resolution graphics. As each window of the 
old ghost house lights up you have to quickly 
aim and fire before the ghost moves on. Illus- 
trates a number of game writing principles. 
Uses joystick or game paddles. (16K AS) 


Loan Reduction Analysis is a useful application 
for testing alternate financing methods for your 
major purchases. Simple screen prompts let you 
test Interest, Changes in Interest, Term of Loan, 
etc. Produces a screen full of resulting payments 
(while varying the principal and interest). 

(16K AS) 
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APPLE CHAMP/AMPER READER/APPLE COM- 
MUNICATOR... $28.95 + Shipping. Featured in 
Vol. 2, Issue #1 


Apple CHAMP (Checkbook Advanced Manage- 
ment Program) is a versatile data entry and 
checkbook reconciliation system. CHAMP allows 
for record Addition, Editing, Search/Change, 
Posting, and Bank Reconciliation. It maintains 
automatic running bank balances and facilitates 
monthly checkbook balancing. Requires 1 disk. 
(48K AS) 


Amper-Reader is an Assembly Language pro- 
gram which speeds disk file access of sequential 
text files by 5-10 times normal speed. Dramati- 
cally reduces DOS overhead for reading large 
files. Optional Automatic Record Blocking for 
large files, i.e., you can read in 10 or 20 or 100 
records at a time from files containing many 
more records (in order to conserve memory 
space). Disk contains Amper-Reader and demon- 
stration program. Requires 1 disk. (48K ML) 


Apple Communicator is a basic demonstration 
program for assembling words and sentences 
using the Game I/O Connector. Under Game 
Paddle Control, the cursor scans across the 
screen-displayed alphabet. Pressing the button 
picks a letter to add to words being formed at 
the bottom of the screen. Adaptable to a variety 
of input/control methods for communication with 
people who may be handicapped and unable to 
speak or type. (16K IB) 


MUSIC RETRIEVAL SYSTEM (M.R.S.)/LE 
MANS/MORSE CODE SYSTEM... $19.95 + 
Shipping. Featured in Vol. 2, Issue #2 


Music Retrieval System (M.R.S.) is a fast, flex- 
ible file management system for storing, catalog- 
ing, and retrieving information on your record 
collection. Sort by title, composer, etc. M.R.S. is 
readily adaptable to other storage/retrieval tasks 
by changing the data names. (48K AS) 


Le Mans is a very fast racing game in Low 
Resolution graphics. One or Two Players com- 
pete by guiding the race car(s) along twisting, 
narrowing roads. Watch out for crashes and 
make it safely through the passes to win. 
(16K IB) 


Morse Code System generates Morse Code 
sight and sound for learning Digits, Alpha, and 
Special Characters. Demonstrates the use of the 
DOS EXEC Commands for file control and 
automatic Apple operation. (16K IB) 


APPLE PAINTBOX/MAD MAD CUBE/LINE- 
FINDER... $24.95 + Shipping. Featured in Vol. 3, 
Issue #2 


Apple Paintbox is a High Resolution Graphics 
program which combines the functions of Etch- 
A-Sketch, Spirograph, and a Function-Driven 
Drawing Board. Automatic Color Selection, Lines, 
Rectangles, Curves, and Auto-Color-Fill-In make 
it an unusual graphics drawing aid. Optional 
Disk for saving pictures. (16K AS) 


The Mad Mad Mad Mad Cube is a Low Resolu- 
tion Graphics version of the popular 3x3x3 plastic 
Cube Game. After setting the colors of the faces 
of the cube, the blocks of 9 cubes can be rotated 
Horizontally and Vertically. After several rotations, 
the challenge is to return to the original color 
combination. Optional Disk for saving cube con- 
figurations. (24K AS) 


Applesoft Linefinder is a powerful utility for 
locating individual Applesoft program lines in 
memory. Use for Appending Forbidden Line 
Numbers, Repairing Programs, Improving Pro- 
gram Efficiency, and more. Specifying the Target 
Line searches for the Start/End memory position. 
Also produces information on Program Start/End, 
HIMEM, Strings, Free-Space, Variables and 
Arrays. (48K AS) 


APPLE STAR SYSTEM/ TRAP’EM/BOOT 3.2/ 
3.3... $29.95 + Shipping. Featured in Vol. 2, 
Issue #4 


Apple Star System is an extremely powerful 
and flexible system for data file management. 
The program is generally self-prompting, and 
allows the user to enter and delete data, as well 
as to display entries and modify them as needed. 
Deleted records may be restored quickly and 
easily. Other features include data output to a 
printer and single field sorting. Requires 1 disk 
drive. (48K AS) 


Trap’em is an addictive character graphics 
game that combines quick reflexes with quick 
thinking. You may choose to play against up to 
3 deadly beasts which stalk you as you attempt 
to trap them while staying out of their fatal reach. 
Trap’em is written entirely in Applesoft. (16K AS) 


Boot 3.2/3.3 is a machine language utility which 
allows you to boot thirteen sector diskettes 
under DOS 3.3 without the inconvenience of 
using the Basics disk or running “BOOT 13”. 
The program modifies the data write and sector 
search routines of the RWTS. Boot 3.2/3.3 does 
not destroy the 3.3 sector header, so the disk- 
ette may be easily restored. (48K ML) 


APPLE DISK MASTER/APPLE TRAPSTEP/ 
BIORHYTHMS... $29.95 + Shipping. Featured 
in Vol. 2, Issue #5 


Apple Disk Master is a multi-featured DOS utility 
program for the Apple. It allows: Recovery of 
Deleted Files; Direct Track/Sector Examination; 
Catalog Sorting; and a variety of other functions. 
It is adaptable between DOS 3.2 and 33 with the 
change of a single memory location. (48K ML) 


Apple Trap/Step is a powerful Applesoft Program 
Development Aid. It allows single stepping 
through the execution of an Applesoft program 
to examine program logic. It also allows the 
placement and removal of “Traps” throughout 
the program to examine the values of specific 
variables without disrupting the program flow. 
(48K ML) 


Apple Biorhythms is a versatile implementation 
of the popular Biorhythm principle. It produces 
Printed Bio-Charts as well as Low Resolution 
Graphics display. Now you can take your Bio- 
Charts with you to watch for critical days. For 
IDS or EPSON printers. (48K, Printer, AS) 


APPLE M.A.P.S./T-SORT/ARTIST... $29.95 + 
Shipping. Featured in Vol. 2, Issue #6 


Apple MAPS is a comprehensive Marketing and 
Personal Shopping system. It helps keep track 
of your stock of groceries and other items; flags 
the need for buying stocks; and even prints a 
pre-sorted shopping list! Learn what you have 
and what to get! Keeps running totals on all 
products. Easy editing of grocery files. (48K AS) 


Amper-Jump and T-Sort is a fast Machine Lan- 
guage Utility for Sorting Primary and Index 


Fields of arrays simultaneously! This gives the 
sequence of a Sorted Field and the Index to the 
Physical Location of each Record in the File! 
The utility uses less than 2K of memory and 
sorts arrays of any size. (48K ML) 


Apple Artist is a Hi-Res Graphics Picture Maker 
which puts you in Command of the Screen. 
Your Keyboard controls the direction and in- 
cludes functions for drawing Boxes, Fill-Ins, 
Lines, and More. Pictures may be saved to disk. 
(16K AS) 


APPLE DART/PRINT-USE/LASER BLASTER... 
$29.95 + Shipping. Featured in Vol. 2, Issue #7 


Apple D.A.R.T. is a Home Finance System 
which allows you to compare Monthly Expendi- 
tures. It projects Future Expenditures and Debts 
for 15 Debt Accounts, 10 Asset Accounts, and 5 
Miscellaneous Accounts. It allows you to evaluate 
and plan your Financial Position. Project your 
Net Worth! Test new Investment and Debt Stra- 
tegies. Show the past year’s history and the 
coming year’s projections for any combination of 
accounts. (48K AS) 


© Plus Typing for Tots, the 
final DOS Disassembly, 
2 and other surprises! 
Se 





Amper-Print-Use is a powerful Machine Lan- 
guage Utility for Fast Formatting of Alphabetic 
and Numeric Information. It simulates the PRINT 
. USING instruction found on other larger com- 
puters and handles Column Headers, Decimal, 
Scientific Notation, Left and Right Justification 
of Strings... and more. Numbers may be rounded 
and aligned with dollar signs, commas and/or 
exponents. Instantly accessible from your Apple- 
soft Programs. (48K ML) 


Laser Blaster is a Hi-Resolution Graphics Action 
Game in outer space. Asteroids and Aliens are 
on a Collision Course with your Space Station. 
Rotate your Laser Turret and Fire before they 
HIT! (16K AS) 


FINANCIER IIl/POOR BOY’S LE/CATSUP/NFL 
RANKER... $19.95 + Shipping. Featured in 
Vol. 2, Issue #7 


Financier Ill is a complete Apple Financier pack- 
age, with direct reduction loan calculation, 
amortization, two types of depreciation, simple 
interest calculation and interest through com- 
pounding. (32K AS) 





Poor Boy’s LE is a program editing aid that is 
transparent to the user’s program. Features in- 
clude start and stop list, fast cursor advance, 
screen clear, shorten line length, and last BLOAD 
address and length. (48K ML) 


Apple CATSUP is a HELLO program which will 
catalog a disk and provide a shorthand method 
for issuing DOS commands. All commands are 
presented in menu format and may be invoked 
by using one or two keystrokes. (48K AS) 


NFL Ratings System is a quantitative program 
that measures the relative strengths of all the 
NFL teams and updates itself as the season pro- 
gresses. The program will predict the correct 
winner of pro football games with 70 to 75 per- 
cent accuracy. (48K AS) 


TRAC“B”/TRAC GRAPH/ARCHIVES/TIC-TAC- 
TOE... $29.95 + Shipping. Featured in Vol. 2, 
Issue #8 


TRAC “‘B”’ (Budget TRAC) is a Flexible, Fast 
Budget account Preparation and Reporting 
System for your Personal Finances. Working 
with Apple TRAC (offered elsewhere in this ad) 
TRAC “B” allows Manual or Automatic Budget 
preparation using information from your original 
TRAC files. Allows Budget/Actual comparisons, 
Individual Account Percent of Total, and Over/ 
Under Calculation. Uses the screen and/or op- 
tional Serial or Parallel Printer. (48K AS. 
Recommended: TRAC Plus) 


TRAC GRAPH plots your Finances in High 
Resolution Graphics for each Finance Category, 
takes information directly from the TRAC Files 
and Charts it for Review. A Picture is worth 
many numbers! (48K AS. Required: TRAC Plus) 


Apple Archives is a super-fast Machine Lan- 
guage program for Automatic Transfer of Disk 
Files to and from Tape Cassette. Allows entry of 
Header Information Record to Tape. Backup your 
Disk Files automatically and inexpensively with 
tape copies! (48K ML) 


Three-D Tic-Tac-Toe is a Lo-Res Graphics ver- 
sion of the popular multi-level board game. Fast 
Action and Automatic Scoring! (16K AS) 


HEXPAD/DOS REMOVER/COMMAND 
CHANGER/FORMAT/X-Y PLOT... $19.95 + Ship- 
ping. Featured in Vol. 2, Issue #8 


Apple Hexpad is a new “Phantom” Keypad for 
Fast, Easy Entry of Machine Language programs 
into your Apple. It transforms a portion of your 
keyboard into a true HEXPAD. Features automatic 
Forward/Backward 8 position spacing. (16K AS) 


DOS Remover physically expunges DOS from 
Tracks 1 and 2 of your Diskettes. Frees an addi- 
tional 8K of disk storage for those Large Files. 
(48K AS) 


Command Changer lets you physically Change 
and Shorten your DOS commands to your own 
taste. Great for Customized programs! (48K AS) 


Formatter is a Routine for Controlling the 
Format of Data Entry for your screen applica- 
tions! Professional looking screens are a snap. 
(16K AS) 


XY Plot provides simple parameters for Plotting 
Data with the Apple Tool Kit. (32K AS + Toolkit) 
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TURTLE GRAPHICS/TRAC ‘“‘I’/CRUNCHER... 
$29.95 + Shipping. Featured in Vol. 3, Issue #1 


Apple Turtle Graphics is a pseudo LOGO-type 
language for Guiding your Hi-Resolution Turtle 
around the Screen! You write a series of simple 
instructions for Directing the Turtle to Move, 
Turn, and Draw...and it follows your every com- 
mand! The program is also a study in the devel- 
opment of new pseudo-languages. (48K AS) 


TRAC “I” (Income TRAC) adds a Third Major 
Module to the TRAC Home Finance System. it 
is an easy-to-use system for monitoring your 
Income from various sources. Generates Reports 
for Year-to-Date Income Profiles (and Monthly 
Income Statements...using data from TRAC 
Budget and TRAC Files shown elsewhere in this 
ad). Shows Current vs. Average Months and In- 
come Summaries. (48K AS. Recommended: 
TRAC Plus) 


Applesoft Line Cruncher is a powerful utility 
for compressing multiple Applesoft program 
lines into smaller, multi-statement programs. 
Speeds up your programs and reduces the 
amount of memory required to contain your 
Applesoft programs. (48K ML) 


APPLE TURTLE GRAPHICS TUTOR... $23.95 
+ Shipping. Featured in Vol. 3, Issue #1 


A complete Turtle package for Young and Old! 
Dynamic Demonstration Library of all Turtle func- 
tions shows you what the Turtle can do and how 
to put it through its paces! Create your own Pic- 
tures! Combine them! Even create 3-D Effects! 
The Turtle Tutor is simplicity itself to operate! 
(48K AS) 


SCRAMBLE/CHECKER/SCROLL/X-REF/FREE 
SPACE... $19.95 + Shipping. Featured in Vol. 3, 
Issue #1 


Apple Scramble is a Hi-Res version of the Popu- 
lar 49¢ Letter/Tiles Game. Arrange the letters in 
alphabetic order by sliding the tile this way and 
that. Great for learning game logic and control 

while you test your manipulative skills. (48K AS) 


Apple Checker is an important utility for com- 
paring your typing of Nibble Programs with 
Checksum totals which are published in Nibble. 
Checker Checksums are published for the major 
programs in each issue. (48K ML) 


Lo-Res Hyper-Scroll provides very fast Four-Way 
Scrolling of your screens. A very handy tech- 
nique for spectacular screen displays. (48K ML) 


Variable Cross Referencer allows you to Ex- 
tract, Sort and Alphabetize all of your Applesoft 
Variables along with the Program Line Numbers 
where they are used. (48K AS) 


Amper Free Space uses the Ampersand to 
trigger a useful Disk Free Space indicator. Now 
you can find out how much disk space is left, 
any time...without loading other programs! 
(48K ML) 
ee 
APPLE MLE/LAMP/APPLE CAL... $29.95 + 
Shipping. Featured in Vol. 3, Issue #2 


Apple MLE (Machine Language Editor) is a 
powerful and unique Utility for Entering and 
Editing Machine Language Programs. It allows 
dynamic Insert, Delete, and Xchanging of 
Machine Code directly in Memory. Includes full 
Disk Command set for retrieving and saving 


files. NO MORE RETYPING of Machine Lan- 
guage programs to correct minor errors. A Must 
in your Library! (48K ML) 


LAMP is a useful Utility program which performs 
the following tasks: ¢ Decimal-to-Hex Conversion; 
e Lists parameters of Last BLOADed or BRUN 
program; ¢ Finds the location of an Applesoft 
Line in memory; ¢ ASCII Conversion; * Locates 
Specified Program spaces in Memory; and ¢ 
Displays Free Sectors on Disk Drive 1 or 2. 
(48K ML) 


Apple CAL allows you to schedule Events, Holi- 
days, and Appointment Days, Months or even 
Years in Advance. Automatically prints Month 
Calendars for any month you specify for any 
year between 1981 and the year 2000. Retrieves 
key holidays through 1987! Easy and Handy! 
(48K AS) 


APPLE SLUGGER/PIECHART/AMPER-FIND/ 
SORT... $19.95 + Shipping. Featured in Vol. 3, 
Issue #2 


Apple Slugger is a Hi-Res Action Baseball 
Game. Pitch, Bat, and Field in your own home! 
The routines can be used in your own game 
development! (16K AS) 


Apple Piechart is a set of routines which use 
the Apple Toolkit for Hi-Res Pie Charting with 
Color, Labels, and Highlighting! (Toolkit, 

16K AS) 


Amper-Find is a Fast Machine Language utility 
for Searching Out Variables, Strings, and Com- 
mands in your Applesoft Programs. Great for 
checking out Variable Name usage! (16K ML) 


Speed Sort will speed up your String Sorting 
by a factor of 60. Handles one and two dimen- 
sion arrays in a flash. Includes instructions for 
appending the machine language to your BASIC 
program for automatic loading. (48K ML) 


APPLE BOND MANAGER/DOS 3+2/DARTS... 
$29.95 + Shipping. Featured in Vol. 3, Issue #3 


Apple Bond Manager is a comprehensive pro- 
gram for analyzing Alternate Bond Investments. 
You enter information about bonds and your own 
financial position and Bond Manager produces 
Comparative Gross Yields, Capital Gains Yields, 
Current Yields, and After Tax Yields. Bond 
records can be stored, retrieved, and edited 
from disk as needed. (48K AS) 


DOS 3+2 is the perfect Utility for fast switching 
between Apple's DOS 3.2 and 3.3. It provides 
for Co-Resident 3.3 and 3.2 and is selectable 
from within any program with a single POKE. 
Any Disk Read Error will automatically switch to 
the “Other” DOS version to try reading again! 
Read and write on 13 or 16 sector disks inter- 
changeably! (48K ML) 


Apple Darts is a challenging Hi-Res Graphics 
Dart Game. Two levels of play and spectacular 
Hi-Res displays heighten the fun. It takes skill 
and quick timing to Win at Darts! (16K AS) 


AMPERSPEED/LAMP II/PROTECTOR/3-D 
MAP...$22.95 + Shipping. Featured in Vol. 3, 
Issue #3 


Amperspeed is a very fast Utility program for 

Reading and Writing Sequential Text Files. Im- 
proves the disk access speed by nearly 3 to 1! 
(48K ML) 
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LAMP II works with LAMP (offered elsewhere in 
this ad) to add more utility functions to the 
LAMP Library. It includes a utility for placing 
itself or any program between DOS and its buf- 
fers. Adds 3 letter commands for Cataloging and 
Displaying Free Sectors on disk drive 1 or 2. 
(48K ML) 


Program List Protector is a Utility Processor 
for preventing your Applesoft programs from 
being Listed or Run by unauthorized people. 
Simple to use. Keys the program access to your 
own Code-Word. (48K AS/ML) 


3-D MAP is a demonstration program for 
displaying three dimensional landscapes using 
the Apple Toolkit. Describes the methods used 
for converting two to three dimension displays. 
(16K AS + Toolkit) 





MICRO-CALC/VARIABLE CRUNCHERILIFE... 
$29.95 + Shipping. Featured in Vol. 3, Issue #4 


Micro-Calc generates your own, customized 
Finance programs for Home and Business. You 
set up your own Accounting Spreadsheet on the 
screen. You specify data, comments, and formu- 
las for up to 20 columns and 20 rows. You can 
examine the results with left and right screen 
scrolling. Then Micro-Calc takes over and liter- 
ally creates your own Applesoft program to do 
the job! (48K AS) 


Applesoft Variable Crucher is a powerful Utility 
for compressing your variable names to one or 
two letters. Don’t be afraid to waste memory 
writing long, descriptive variable names. Crun- 
cher will shrink them down to size. Your pro- 
grams will save memory and run faster. 

(48K ML) 


Apple LIFE is a fast, Hi-Resolution Graphics 
program which allows you to set up your own 
Colony of Life Cells. Then the cells follow the 
simple but powerful rules for Birth, Death, and 
Survival. The Colony begins to Live... Grow... 
Decline... and Create other Colonies. Fascinating 
to watch. (48K AS) 





ABACUS/GO/QUICKSORTIINITIA... $22.95 + 
Shipping. Featured in Vol. 3, Issue #4 


Electric Abacus is a Low Resolution Graphics 
version of the timeless oriental calculator. Demon- 
strates the logic and operation of your very own 
Graphic Abacus. (16K AS) 


Apple GO is a flexible Utility that exercises all 
of your DOS keyboard commands with only a 
keystroke or two for each command. Use a 
Single Letter for the Command and a Single 
Letter-designator for each File Name. Also dis- 
plays disk free space, file sizes, and binary file 
addresses and lengths. (48K AS) 


QuickSort is a fast Machine Language Utility 
for sorting your arrays 50-170 times faster than 
with Applesoft. A simple ampersand command 
specifies your one or two dimensional array and 
puts the array in order in a flash. (48K ML) 


Apple INITIA is a unique Utility for setting and 
resetting individual arrays within your Applesoft 
programs. With normal Applesoft, you have to 
use FOR...NEXT Loops to initialize and clear 
arrays. It takes 47 seconds to initialize an 
A$(1000,10) array. INITIA does the job in 2.5 
seconds! (48K ML) 


A.L.E. (APPLESOFT LINE EDITOR)/SPRINT/ 
OTHELLO... $29.95 + Shipping. Featured in 
Vol. 3, Issue #5 


A.L.E. (Applesoft Line Editor) is a powerful 
utility for helping you write and edit Applesoft 
programs. Auto Line Numbering, Insert, Delete, 
and other commands allow you to directly edit 
program lines without having to retype or recopy 
entire lines. Watch your Applesoft lines open up 
magically to make room for additions! A single 
control character saves the entire line when 
you've finished editing it. A.L.E. is a MUST for 
your library. (48K ML) 


SPRINT (Speed Reading Improvement Tech- 
nique) is an automatic Text/Number Generator 
which can help you increase your reading speed 
by up to 100%. It has options for Pre-schoolers 
up through the adult level of reading. (48K AS) 


OTHELLO is a Lo-Res Graphics version of the 
popular board game. You Flip and Flank your 
opponent and capture more and more pieces to 
win. You can play against another player or 
against your Apple! And your Apple is an excel- 
lent player! (48K AS) 





DDT/HOURGLASS/DISK DUMP/INPUT-SCREEN/ 
SUPER-WRITER... $22.95 + Shipping. Featured 
in Vol. 3, Issue #5 





* 12 Original Programs for Your Apple x 
Plus Tips, Reviews, Tutorials, Macintosh and More! 


© Grade Book 

® Mathemagician 

@ Tadpole Alphabet © Ai 

® Free Sector Chart © ProMenu 


o NTT 
DDT is a set of fast utilities for relocating and 
imbedding programs above DOS buffers and 
recapturing tracks 1 and 2 from your disk. 
(48K AS) 


Electric Hourglass is a Lo-Res Graphics hour- 
glass with sound and multi-colored sand (from 

different deserts). Demonstrates Graphics and 

Game Methods. (16K AS) 


Disk Dumper provides a fast, simple way to 
dump selected or all disk files to your printer 
automatically! (48K AS) 


Input Screen Building provides samples for 
professional data entry screens using simple 
DATA Statements. (16K AS) 


Super Writer lets you create formatted text files 
using your Applewriter Program. Formats text in 
pages for forward and backward page review. 
(48K AS) 





A.R.C. (APPLESOFT RECORD COMMAND)/ 
DOS COMMANDER/ART GALLERY... $29.95 + 
Shipping. Featured in Vol. 3, Issue #6 


A.R.C. (Applesoft Record Command System) 
is a comprehensive Data Filing, Editing, Printing, 
and Communications program. Build your own 
records and fields...search records...merge files... 
send data over communications lines. Fast, in- 
memory operation! (48K AS) 


DISK Commander is a very handy Utility that 
shortens your DOS commands to 3 characters 
and your catalog names to 1-2 digits. Saves 
wear and tear in catalog control. A few key- 
strokes do the job! (48K ML) 


Apple Art Gallery is a comprehensive collec- 
tion of 33 different art forms! Each art form has 
multi-variations for hours of entertainment and 
it’s all in Hi-Res Graphics! (48K AS) 





BINARY CLOCK/DUMP/SHOP LIST/PRINT USR/ 
COMPARE... $22.95 + Shipping. Featured in 
Vol. 3, Issue #6 


Binary Clock is an accurate Machine Language 
timepiece in Lo-Res Graphics. See the current 
time in 8-4-2-1 Code! (16K ML) 


Hi-Res Dump combines the Epson MX-80 and 
Graftrax to produce giant 2X prints of the Hi-Res 
Graphics Screen! (16K ML) 


Shopping List is a comprehensive personal 
shopping and inventory program which demon- 
Strates the principles of Structured Programming! 
Performs Editing, Filing, and Display of your 
personal shopping items. (48K AS) 


Print USR is a fast, accurate new Utility for for- 
matting big and little numbers in your programs. 
Automatic Decimal Alignment, Scientific Notation, 
and more. (48K ML) 


Compare Applesoft is a valuable Utility for 
comparing different versions of your programs 
for Changes, Additions, and Deletions. A must 
for keeping track of new versions! (48K AS) 





AMP-L-SOFT/MESSAGE CENTER/FOOTBALL... 
$29.95 + Shipping. Featured in Vol. 3, Issue #7 


AMP-L-SOFT is a whole Library of Utilities under 
Ampersand Control. TONE, SYSCALL, HEX- 
CONVERT, BIT CONTROL, TAGSORT, and SUB- 
STRING SEARCH are directly accessible by 
your programs to improve the speed and power 
of Applesoft! (48K ML) 


Electronic Message Center is a versatile Mes- 
sage Handler for Entering, Editing, and Automati- 
cally Displaying sequences of messages. Great 
for passing the word at home or the office. 
(48K AS) 


Apple Bowl Football is a fast moving text game 
that uses actual football statistics to produce a 
realistic simulation of the game! A complete 
selection of plays! Pass, Run, and Kick your 
way to Glory! (48K AS) 





SHAPE/LIGHTSABRE/PRICE/SCROLL/LOWER 
CASE WRITER... $23.95 + Shipping. Featured 
in Vol. 3, Issue #7 


The Shape is a powerful Free-Form Shape Table 
Creation program that lets you create Graphics 
Shapes on the Lo-Res Screen. Then The Shape 
scans your shape and translates it into a Hi-Res 
Table for your own programs. (48K AS) 


LightSabre Battle pits Darth and Luke in a Slug- 
Fest in Low Resolution Graphics. Learn the 
basics for your own game development. 

(16K AS) 


Price Demo uses a Product Pricing problem to 
illustrate the use of Indexing to access very large 
files! (48K AS) 


Apple Scroller puts Right, Left, and Downward 
Text Scrolling at your fingertips with the fast 
machine language program! A spectacular addi- 
tion to your library. (48K ML) 


Lower Case Writer lets you type Upper and 
Lower Case Letters to your Hi-Res Screen. 
Experiment with text processing or add titles to 
your games! (48K ML) 


RECIPE BOX/DISK DOCTOR/QUASAR... $29.95 
+ Shipping. Featured in Vol. 3, Issue #8 


Apple Recipe Box makes Cook-Booking Simple! 
Retrieve, Edit, Display, and/or Print your favorite 
Recipes! Automatic portioning for Y2X, 2X, and 
4X servings! You'll love it as a kitchen aid! 
(48K AS) 


Apple Disk Doctor is a comprehensive “Zap” 
Utility for direct Reading, Writing, and Editing of 
your diskettes. See Deleted Files...Hide your 
Catalog Names...See how DOS sorts your Data! 
(48K ML) 


Quasar II puts you in command of a Starship 
charged with clearing distant galaxies of Meteors 
and Asteroids. Dodge the debris and fire before 
you collide! Fast, flicker-free animation! (48K AS 
and ML) 


FAT GRAPH/DRAW/SAV-DEL/FINANCIER... 
$23.95 + Shipping. Featured in Vol. 3, Issue #8 


Fat Graph gives you Hi-Res Graphics tracking 
of your Dieting Objectives and Actual Weight 
Loss. Watch the pounds roll off in color! 

(16K AS) 


Southern Draw gives you a new, precision 
“Pencil” cursor for drawing Hi-Res Graphics 
Pictures. Fast, Easy Sketching! (16K AS) 


SAV-DEL is a sophisticated and easy to use util- 
ity for Saving/Deleting selected arrays in memory. 
You can pick what you want without having to 
CLEAR the whole memory. (48K ML) 


Financier/Tax Depreciation adds the new tax 
rules and financier updates for the Economic 
Recovery Act. Use it with Apple Financier or as 
a stand-alone program. (48K AS) 


DISK LIBRARIAN/GO-TO/’PILLAR MUNCH... 
$29.95 + Shipping. Featured in Vol. 4, Issue #1 


Apple Disk Librarian lets you get contro! of 
those Big Disk Libraries. Handles up to 500 disks 
with Sorting, Editing, and Search. (48K AS) 


Fast Go-To Processor is a machine language 
short-cut to subroutines! Up to 100% speed 
improvement with GOTO and GOSUB com- 
mands. (48K ML) 


Pillar Munch is a fast action arcade game in 
Hi-Res Graphics! Munch...munch the leaves and 
watch your ’Pillar GROW! Munch enough and 
your ’Pillar turns into a Butterfly! But watch out 
for the “Bird Drops”...they’re Deadly! (48K AS) 
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For Software ordering information, see the 


coupon immediately following this catalog. Other 


products may be ordered by addressing your 
order directly to: 


NIBBLE 

45 Winthrop St. 
Concord, MA 01742 
(617) 371-1660 


Master Charge and VISA cards accepted. 


1.R.S./TYPER/SORT/EDIT... $23.95 + Shipping. 
Featured in Vol. 4, Issue #1 


Apple I.R.S. is a tax estimating program for 
evaluating alternative income, investment, and 
tax strategies. Load a “Base Line” and then test 
“What If” changes. (48K AS) 


Tiny Typer is a short, powerful text editor. Lets 
you type Upper/Lower Case, Append, Erase, 
Compact, Format, and Edit your text files. 
(48K AS) 


Compact Sort is a very fast, easy-to-use 
Machine Language Sorting Routine that lets you 
assign strings and do Ascending/Descending 
Sorts! (48K ML) 


Line Edit applies the Applesoft ROM List tech- 
niques to full width screen listings. Good “Front 
End” for Program Editing! (48K ML) 


INVESTOR/DISK MAP/SPACE ROVER... $29.95 
+ Shipping. Featured in Vol. 4, Issue #2 


The Nibble Investor is a comprehensive Track- 
ing, Analysis, Reporting, and Graphics Charting 
System for your stocks and other investments. 
Five different reports! Complete Data File Man- 
agement. (48K AS) 


The Disk Map System is a disk analysis system 
that lets you print and analyze your Disk Files, 
the Location on Disk, and their Space Utilization. 
(48K ML) 


Space Rover is a Hi-Res Graphics Game that 
demonstrates the use of Graphics Scrolling for 
your Game Programming. Try to land your Space 
Probe safely as the landscape scrolls across the 
screen! (48K AS) 


CHAMP-R/FORMULA/WRITER KIT/NAME 
MOVER... $23.95 + Shipping. Featured in Vol. 
4, Issue #2 


CHAMP-R is a comprehensive, indexed Reporting 
System for Checks and Accounts developed 
with the CHAMP Checkbook Management 
System. (48K AS + CHAMP System) 


Formula | is a Hi-Res Racing Game with 5 dif- 
ferent Track Patterns, Barriers, and 5 speeds to 
challenge your racer control! (48K AS) 


Applewriter | Enhancement Kit is a complete 
program kit to let you imbed control characters 
in your Applewriter Text. Exercise all of your 
Printer Features with Ease! (48K ML) 


File Name Mover is a Disk Utility that allows 
you to Switch/Exchange Catalog Names to put 
them in proper sequence! (48K AS) 


ee 
DESIGNER/ILLUSTRATOR/ZAP/INFERNO... 
$29.95 + Shipping. Featured in Vol. 4, Issue #3 


The Nibble Designer and Illustrator are 
companion programs for creating, editing and 
displaying complex graphics screens. The lilus- 


trator uses Medium-Resolution Graphics to draw 
tables and then lets you Scale, Edit, Rotate and 
even Re-Draw your Shapes. The Designer allows 
you to retrieve shapes from your own library. 
Then you can Move, Scale, Rotate, Erase and 
Deposit them in your Design. A powerful team! 
(48K AS) 


Disk Zap is a comprehensive system that lets 
you Read, Examine, Edit, and Write your Disk 
Sectors directly. Great for exploring disk storage 
techniques and repairing damaged disk sectors. 
(48K ML) 


Nibble Inferno is a Hi-Res Arcade Game that 
will have you playing Fire Chief to rescue babies 
from a burning orphanage. Direct your men 
quickly or disaster may be the result! (48K AS) 


POINTERS/SORT5/MODIFY/TIMER/HIDE... 
$24.95 + Shipping. Featured in Vol. 4, Issue #3 


Pointers is a set of Applesoft Utilities and 
Instructions that let you: Recover from Resets; 
Recover from FP commands; Split Programs; 
and Overiay Programs. (48K AS) 


Sort5 is a Case Study in five different Sorting 
Techniques that includes Demonstration Bench- 
marks. (48K AS) 


Self-Modifying Applesoft lets you literally 
change Applesoft programs while they’re run- 
ning. Your programs can now Modify themselves 
without losing Variables. (48K AS) 


Interval Timer is a Machine Language utility 
that lets you time up to 25 events with control 
signals. Great for photographic work or other 
Timed Sequences! (48K ML) 


Hide/Unhide. Explore the mysteries of Applesoft. 
Unmask the FP and INT command and then use 
the techniques with this utility to Hide and 
Retrieve your programs from a RAM memory 
Expansion Card. (64K ML) 


RAM MANAGER/EXPENSE CALC/SEARCH- 
REPLACE... $29.95 + Shipping. Featured in 
Vol. 4, Issue #4 


The Nibble RAM Manager is a powerful utility 
that puts up to 10 Programs of your choice into 
a 16K RAM Card for Instant Access at the touch 
of a key! No more hunting around for Utility 
Disks. Opens a whole new dimension of Appli- 
cations! Works with 64K Apple Il, the Apple Ile 
and the Franklin ACE. (64K ML) 


Expense Calc is an easy-to-use Spreadsheet 
program for Weekly Expense Reporting. Includes 
Left/Right Scrolling, Auto-Crossfooting, and com- 
plete Editing, Storage, and Retrieval of Past Ex- 
penses. (48K AS) 


Search and Replace is a potent program writing/ 
debugging utility that applies Word Processing 
Techniques to Appiesoft program development. 
Allows automatic Scanning and Global or Selec- 
tive Replacement of Strings, Variables, or any 
other Program Data. A Must for Programming! 
(48K ML) 
ee ee ee ee ree e638 SE 





nibble PROGRAMS ON DISKETTE 





SOFTWARE ORDERING COUPON 


Nibble Magazine offers the major programs from this Nibble Express and each 
issue on diskette. The programs are complete, debugged and ready-to-run. Each 
disk is accompanied by reprints of the Original articles which documented the 
programs. Nibble disks are supplied in DOS 3.3 format. 3 

To order, simply check the box next to the disk you want to purchase, clip 
this coupon (or use a copy), enclose it with payment (be sure to include shipping 


and handling for each disk), and mail to Nibble, 45 Winthrop Street, Concord, 
MA 01742. 





















The disks below are listed according 
to the first program on the disk. Each 
disk contains multiple programs; for 
complete descriptions see the catalog 
preceding this order form. 


TR O Apple TRAC Plus 
V1/#1. $24.95 














Hexpad 
V2/#8. $19.95 


O IR O LR.S. 
TU O Turtle Graphics 

=| 

O 


V4/#1. $23.95 
IV. © Investor 
V4/#2. $29.95 
FO CHAMP-R 
V4/#2. $23.95 











V3/#1. $29.95 


Apple Turtle Graphics Tutor 
V3/#1. $23.95 






















































































































O Star Attack sc Scramble DS C Designer 
V1/#2. $19.95 V3/#1. $19.95 V4/#3. $29.95 
CO Apple Tough ML UO Apple MLE PT CO Pointers 
Vi/#S. $2495 V3/#2. $29.95 V4/#3. $24.95 
O F.A.S.T SL O Apple Slugger RA C] RAM Manager 
V1/#4. $24.95 V3/#2. $19.95 V4/#4. $29.95 
O PIPI BN CO Apple Bond Manager 
V1/#5. $24.95 V3/#3. $29.95 
O PIP Il AM () Amperspeed 
V1/#6. $29.95 V3/#3. $22.95 
O Apple A.1.M. mc (1) Micro-Calc 
Vi/#T. ne V3/#4. $29.95 
Will ’O Th i AB CO Abacus 
7 Vane. 919.00 4 V3/#4. $22.95 
AL O A.L.E. 
% on Pony V3/#5. $29.95 
M tri Db 0 DDT 
7 V2iN2. $19.95. VSi#5. $22.95 
AR CO A.R.C. 
7 4364 Seng V3/#6. $29.95 
BC CO) Binary Clock 
: cone erie ie V3/#6. $22.95 
AP ©) AMP-L-SOFT 
Zs ote eof ee V3/#7. $29.95 
SH OC Shape 
Zs “fated alge V3/#7. $23.95 
RB C Recipe Box 
“ ee) ast V3/#8. $29.95 
OC Financier II! Fr O spol oe 
V2/#7. $19.95 /#8. $23. 
O TRAC ‘‘B”’ LB CO Disk Librarian 






















V2/#8. $29.95 V4/#1. $29.95 





Please send me the products I have checked. 








Name 
| am paying by: een 
0 Check © Money Order OO VISA OC MasterCard City 
(Gear pee ee es ee ee eee EXD, State ip 
(PLEASE PRINT CLEARLY) 
Telephone 


Amount Enclosed $. 


(ALL PRICES PLUS SHIPPING) 


U.S. Shipments please add $1.50 for shipping and handling. Outside U.S. add $2.50 for shipping 
and handling. MA residents add 5% Sales Tax. NOTE: Disk updates require return of original 
NIBBLE diskette. Add shipping and handling. 


@ ® 
We accept MasterCard and VISA nibbl 45 WINTHROP ST. 
CONCORD, MA 01742 


Mail this order form to: 








Alverno College 
Library Media Center 
Milwaukee, Wisconsin 
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